自动生成编号，Delphi+数据库..rar

delphi indy demo合集,包含indy众多操作

网上看了一些转的方法都有漏洞下面直接上代码

FastReport_6.9.14_VCL_Delphi_11_Alexandria_FS,报表打印组件，最新源码版，支持Delphi xe11

医院HIS系统 delphi 编译完全正确，适合新手学习和二次开发使用，

把Ping命令可视化，用Delphi写成winForm窗口式的程序，一个可以单步执行的Delphi Ping命令操作程序源码，在框内输入IP地址，点击“执行Ping”按钮，将执行一次Ping命令，不能连续执行Ping操作，不过稍加改进就能做出类似Windows一样的Ping程序。try 　　 if pReqData^ = pIPE^.Options.OptionsData^ then 　　 begin 　　 StatusShow.Lines.Add(PChar(PingEdit.Text) '-----' 　　 IntToStr(pIPE^.DataSize) '-----' IntToStr(pIPE^.RTT)); 　　 end; 　　 except 　　 showmessage('没有找到Ip地址!'); 　　 end; 　　 finally 　　 FreeMem(pRevData); 　　 FreeMem(pIPE); 　　 end; 　　 end 　　else 　　 showmessage('请输入Ip地址'); 　　end; 　　// 通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还 　　//有很多，都可以通过对Icmp.dll的函数调用来实现。 　　procedure TTMyPing.FormCreate(Sender: TObject); 　　var 　　 hICMPdll: HMODULE; 　　begin // Load the icmp.dll stuff 　　 WSAStartup(2,WSAData); 　　 hICMPdll := LoadLibrary('icmp.dll'); 　　 @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); 　　 @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle'); 　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho'); 　　 hICMP :=IcmpCreateFile; 　　 StatusShow.Text := ''; 　　 StatusShow.Lines.Add('目的IP地址-----字节数----返回时间(毫秒)'); 　　end; 　　// 接下来，就要进行如下所示的Ping操作的实际编程过程了。

Delphi代码编写SqlServer数据库备份还原工具，可直接还原sql server 的 mdf ldf 文件，直接还原备份文件。

上兴远程控制3.2的delphi源码，希望对大家有用

RAD Studio 11.1安装包 DevExpressVCL 21.1.6[CS]

unigui滑块图片验证.rar