Delphi
jjpweb
个人简介
展开
-
delphi编码相互转换
unit util_utf8;interfaceuses Windows;type UTF8String = AnsiString; function AnsiToWide(const S: AnsiString): WideString; function WideToUTF8(const WS: WideString): UTF8String; funct...转载 2020-03-02 17:33:00 · 1111 阅读 · 0 评论 -
Delphi跨程序发送数据信息
//接收方procedureGetCopyDataMsg(varMsg:TMessage);messageWM_COPYDATA;procedureGetCopyDataMsg(varMsg:TMessage);varcdst:TCopyDataStruct;tmp:string;begincdst:=PcopyDataStruct(Msg.LPa...原创 2019-09-06 09:36:55 · 224 阅读 · 0 评论 -
Delphi设置日期格式
procedure SetTimeFormatX;var P: DWORD;begin try SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_IDIGITS, '2'); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICURRDIGITS, '2'); SetLocaleIn...转载 2019-06-28 11:54:36 · 1152 阅读 · 0 评论 -
Delphi写日志函数
procedure WriteLog(sAppPath: string; sContent: string; logNamePre: string = ''; logDir: string = 'log');var tFile: TextFile; filename: string;begin filename := sAppPath + logDir + '\' + logNam...原创 2018-12-25 09:30:26 · 1119 阅读 · 0 评论 -
SeeTaFace人脸识别动态库之delphi接口
{https://github.com/seetaface/SeetaFaceEngine}unit STFintf;interfaceconst DetectDLL = 'seeta_fd_lib.dll'; AlignDLL = 'seeta_fa_lib.dll'; IdentifyDLL = 'seeta_fi_lib.dll';type PSTF_Imag...原创 2018-07-18 12:20:07 · 1599 阅读 · 5 评论 -
Delphi绘制只有四个角有线的矩形
procedure DrawOtherRect(x1, y1, x2, y2: Integer; img: TImage; cColor: TColor = clLime; LineLen: Integer = 50);var lineLength: integer; x3, y3, x4, y4: Integer;begin lineLength := LineLen; img.Canv...原创 2018-06-22 12:02:44 · 384 阅读 · 0 评论 -
Delphi程序开机自动启动
procedure SetAutoRun(ok: boolean);var Reg: TRegistry;begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true); ...转载 2018-06-21 08:57:26 · 1159 阅读 · 0 评论 -
Delphi中Ini读写函数
function ReadIni(filename, Section, ident, sdefault: string): string;var tmpIni: TIniFile;begin try tmpIni := TIniFile.Create(filename); Result := tmpIni.ReadString(Section, ident, sdefault); ...原创 2018-06-21 08:52:50 · 217 阅读 · 0 评论 -
Delphi从DBgrid导出Excel
procedure TDMx.DbGrid2Xls(dbgrd: TDBGrid; fileName: string);var Xls: Variant; I, L, J: Integer;begin if LowerCase(RightStr(fileName, 4)) <> '.xls' then fileName := fileName + '.xls'; try ...原创 2018-06-21 08:45:53 · 1878 阅读 · 1 评论