随笔分类 - Delphi
Delphi 相关
摘要：通过类名称（字符串）创建类实例 首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass); 然后在运行期使用如下代码创建 TYourClass 类的实例。 procedure Txxx.xxxx;varcls: TPersistentClass;
阅读全文
摘要：通常用WaitForCompletion(True) 去等待 如果中途不想要继续接受数据了 有两种方法： 在DataReceived里 //当前请求跳过 TRtcDataClient(sender).Request.Skip; //跳过所有请求 TRtcDataClient(sender).Skip
阅读全文
摘要：procedure TForm1.con1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Co
阅读全文
摘要：function CreateEvent( lpEventAttributes: PSecurityAttributes; {安全设置} bManualReset: BOOL; {第一个布尔} bInitialState: BOOL; {第二个布尔} lpName: PWideChar {对象名称}
阅读全文
摘要：使用默认皮肤相关单元： dxSkinsDefaultPainters //默认皮肤 dxSkinscxPCPainter //要引用这个pagecontrol才有皮肤 dxSkinsdxStatusBarPainter //用引用这个 状态栏才有皮肤 dxSkinsdxBarPainter //菜单
阅读全文
摘要：对接快麦接口时，使用TIdMultiPartFormDataStream 多表单提交数据。 因为TIdMultiPartFormDataStream 每加一个字段时，总会在最后多加一个回车。这也就导致了最后总是有一个回车，接口在读取最后一个值时会多一个回车字符。导致签名过不了。 要处理一下，这里不改
阅读全文
摘要：//使用土拨鼠单元 uses SynCrypto; //有中文要先UTF8Encode var sha256Digest:TSHA256Digest; begin HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest); ShowMessage(
阅读全文
摘要：注入exe//给出exename 找到pid function GetExePid(const aExeName: string):Cardinal; var _vHandle : THandle; _vProEntry : TProcessEntry32; _vIsFound : Boolean;
阅读全文
摘要：{ 下拉弹出式窗体 2022-04-07 by tag 649998142@qq.com 这里写的比较简单只支持一个方向。靠左下拉的弹出式窗体 窗口设置BorderStyle := bsNone; 但是要给窗口一个 WS_BORDER 支持改变大小在 WMNCHIST 消息里处理 思路： FormD
阅读全文
摘要：原文链接：https://blog.csdn.net/suiyunonghen/article/details/2325416 今天有一个朋友问我怎样可以拖拽一个没有边框的窗体，使其改变大小。于是很快想到一个消息WM_NCHITTEST 该消息用来描述，当关标移动或当按下或当释放了鼠标按扭的时候，就
阅读全文
摘要：delphi 连接access 连接完如无特殊情况，一定是断开连接。不断开的话那么它会频繁的去读取mdb文件，不知道是啥机制。 一个这样的没有关系，如果说有无数个这个样的程序就。。。。。 以下是用进程跟踪工具 （processmonitor） 毫秒级别的去读取。很占用CPU,积少成多。导致CPU暴涨
阅读全文
摘要：// \??\C:\WINDOWS\system32\drivers //选择的盘是映射盘，需要得出正确的路径 function GetDosPath(path:string):string; var DriveChar, Drive: string; Buf: Array [0..MAX_PATH
阅读全文
摘要：var cpuset : set of 0..31; cpucount, i:integer; begin cpucount := sysset.ReadInteger('SysConfig', 'cpucount', 2); // 默认给两个就可以了 cpuset:=[]; for i := 0
阅读全文
摘要：delphi ShellExecute 传递多个参数 如果调用的exe 接收多个参数。 一般无特殊可以用空格隔开，但是如果参数的值本身有空格。则得按这样的格式来传递 "p1","p2" 参数值有空格 ShellExecute(0, 'open',PAnsiChar('exe') , PAnsiCha
阅读全文
摘要：{不阻塞提示对话框 TimeOut 超时参数，多久没有回应。超过时间则返回 IDTIMEOUT 默认0无限等待 返回： IDABORT (3) Abort IDCANCEL (2) Cancel IDCONTINUE (11) Continue IDIGNORE (5) Ignore IDNO (7
阅读全文
摘要：function ConvertGMTTimeToLocalTime(GMTTimeStr: string): string; var TimeStrList: TStringList; Month: string; LocalTime: TDateTime; begin //GMTTIME Tue
阅读全文
摘要：经测试： 测试的是docs.qq.com 用Fiddler2 去监控时，因为使用了代理。RTC 自动会使用winhttp 的，所以在看的时候是可以的。一旦退出了Fiddler2 就又不可以了。 1. UseWinHTTP = False 时如果请求的是https的，用的是winnet.dll 的 H
阅读全文
摘要：//一般可以在一开始就先连接网站。设置自动连接即可 with RtcHttpClient do begin AutoConnect := True; ServerAddr := 'xxxx.com'; ServerPort := '80'; if not RtcHttpClient.isConnec
阅读全文
摘要：function TfrmBillattachment.cxRicheditInsertFile(FilePath:string): Boolean; const REO_CP_SELECTION = $FFFFFFFF; REO_IOB_SELECTION = $FFFFFFFF; IID_IUn
阅读全文
摘要：cxlabel 某些情况下，显示的文字。鼠标移过去再移开会显示不全。或者变大变小。将以下属性改成FALSE 会改善 label.Style.TransparentBorder 能解决的方式是更换字体，不要使用默认字体。比如宋体
阅读全文
浙公网安备 33010602011771号