鸿飞的博客

functionPortUsed(Port:Integer):Boolean;varsSocket:TSocket;Wsd:TWSAData;SockAddrIn:TSockAddrIn;beginifWSAStartup(2,Wsd)=0thenbeginsSocket:=Socket(AF_INET,SOCK_STREAM,0);Result:=True;tryif(sSocket<...

一、基础知识简介：1、包的命名介绍： 包的命名没有规则，但是建议遵守包的命名约定：包的命名与包的版本相关，包的名称前面几个字符通常表示作者或公司名，也可以是控件的一个描述词，后面紧跟的Std表示运行期包，Dsgn表示设计期包，然后是版本号。如：MyDataEditStd60，MyDataEditDsgn60。2、对象浏览器【Object Inspector】中一个属性感知一类控件的原理： 控件属性的感知只不过是将它的一个属性声明...

Format('x=%d', [12]); //'x=12' //最普通Format('x=%3d', [12]); //'x= 12' //指定宽度Format('x=%f', [12.0]); //'x=12.00' //浮点数Format('x=%.3f', [12.0]); //'x=12.000' //指定小数Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置Format('x=%.5d', [12]); //'x=00012' //前面

在使用Delphi运行软件的过程中，有时候会发生软件已经在运行，但是又从编译器中再次运行，这个时候编译器就会编译失败。然后我们一般就得手动结束掉运行的软件，再在编译器中重新启动软件才行。那么有没有什么技巧可以在编译器中运行时自动结束掉已经运行的软件呢，答案是有的。首先我们打开project下的options,然后再找到下图所示的选项菜单看到箭头所指向的Commands嘛，在里面输入一下命令：　　taskkill /f /im $(OUTPUTFILENAME) 2>&1 .

Delphi编写下载程序：UrlDownloadToFile的进度提示urlmon.dll中有一个用于下载的API，MSDN中的定义如下：HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB);Delphi的UrlMon....

procedure Hex2Png(str: string; out png: TPngObject);var stream: TMemoryStream;beginif not Assigned(png) then png := TPngObject.Create;stream := TMemoryStream.Create;stream.SetSize(Length(str) div 2);HexToBin(PChar(str), stream.Memory, stream...

procedure TForm1.FormCreate(Sender: TObject);typeTByteArr = array [0..1] of Byte;PByteArr = ^TByteArr;varBytes: TBytes;buf,buf2: TByteArr;cmd,n_10: string;Len: Integer;c: char;n_int:ushort;w:Word;{Ushort : word}begincmd:= 'F';...

wgethttp://altd.embarcadero.com/releases/studio/20.0/PAServer/Release3/LinuxPAServer20.0.tar.gzsudoapt-getinstalljoewgetp7zip-fullcurlbuild-essentialzlib1g-devlibcurl4-gnutls-devsudofirewall-cmd--zone=public--add-port=64211/tcp--permanents...