delphi判断程序是否无响应

function IsAppRespondig9X(dwThreadId: DWORD): Boolean; type TIsHungThread = function(dwThreadId: DWORD): BOOL; stdcall; var hUser32: THandle; IsHungThread: TIsHungThread; begin Result := True; hUser32 := GetModuleHandle('user32.dll'); if (hUser32 > 0) then begin @IsHungThread := GetProcAddress(hUser32, 'IsHungThre

Delphi全局对象的创建

全局对象在什么时候创建也是有讲究的，如果在调用之前尚未创建肯定会报错，那么下面通过调用函数间接调用全局对象的方法就不会有任何问题了。 var FUserInfo: TUserInfo = nil; function UserInfo: TUserInfo; begin if not Assigned(FUserInfo) then FUserInfo := TUserInfo.Create; Result := FUserInfo; end;

Delphi-Cross-Socket-master.zip

对于Delphi的开源库相对比较少，这是我从Git库中搜到的其中一个，跨平台的通信开源库，有时间可以可以研究一下！借鉴坐着的思路！会对自已有一个提升！

delphi variant的一些操作函数

网上下载的一些Variant操作函数，有需要的下载研究一下

加密解密函数

从网上下载的一个加密解密方法，有需要的可以下载研究一下

对象池的一个小例子

对象池的一个小例子，可以参考一下，个人感觉还可以。

JSON还原为结构体

1）JSON字符串还原为结构体； 2）访问结构体的字段值； uses SynCommons; const // JSON字符串 JSON1 = '{' + #13#10 + '"glossary": {' + #13#10 + '"title": "中国",' + #13#10 + ' "GlossDiv": {' + #13#10 + '"title": "湖南省",' + #13#10 + ' "GlossList": {' + #13#10 + '"GlossEntry": {' + #13#10 + '"ID": "湘乡市",' + #13#10 + ' "SortAs": "SGML",' + #13#10 + ' "GlossTerm": "Standard Generalized Markup Language",' + #13#10 + ' "Acronym": "SGML",' + #13#10 + ' "Abbrev": "ISO 8879:1986",' + #13#10 + ' "GlossDef": {' + #13#10 + '"para": "A meta-markup language, used to create markup languages such as DocBook.",' + #13#10 + ' "GlossSeeAlso": ["咏南中间件", "XML"]' + #13#10 + '},' + #13#10 + ' "GlossSee": "markup"' + #13#10 + '}' + #13#10 + '}' + #13#10 + '}' + #13#10 + '}' + #13#10 + '}'; type // 记录 TGlossary = record glossary: record title: string; GlossDiv: record title: string; GlossList: record GlossEntry: record ID, SortAs, GlossTerm, Acronym, Abbrev: string; GlossDef: record para: string; GlossSeeAlso: array of string; end; GlossSee: string; end; end; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var gloss: TGlossary; json: RawUTF8; begin json := JSON1; RecordLoadJSON(gloss, @json[1], TypeInfo(TGlossary)); Memo1.Clear; Memo1.Lines.Add(gloss.glossary.title); // 中国 Memo1.Lines.Add(gloss.glossary.GlossDiv.title); // 湖南省 Memo1.Lines.Add(gloss.glossary.GlossDiv.GlossList.GlossEntry.ID); // 湘乡市 Memo1.Lines.Add(gloss.glossary.GlossDiv.GlossList.GlossEntry.GlossDef.GlossSeeAlso[0]); // 咏南中间件 end;

DataSnap例子

DataSnap的一个服务端和客户端的一个例子，可以参考一下！

高吞吐量的一个日志函数类_用于IOCP (Delphi)

高吞吐量的一个日志函数类_用于IOCP (Delphi)

delphi队列与堆栈的用法

delphi队列与堆栈的用法，一点实例，希望对大家能有帮助！