Delphi DDE发送消息实例，程序分为客户端和服务端，运行服务端后输入一条消息，打开客户端然后建立连接，会自动接收来自服务器的消息，没有用到控件，程序简单，可为你提供学习参考。
2024-01-13 13:30:37
13KB
1
Delphi P2P文件发送实例，点对点传输文件，类似QQ聊天中的文件发送功能，模块代码，并不包括太多功能。初学INDY控件时写的，编译时需要引入RzTray.dcu文件。
2023-02-27 10:19:06
12KB
1
DELPHI获取网卡属性和IP地址，获取网卡IP地址、MAC号、子网掩码、网关等信息，支持IPV4和IPV6的IP信息，比较详细的网卡配置信息。
2023-01-30 15:10:53
12KB
1
把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操作的实际编程过程了。
2023-01-16 11:35:00
3KB
1
Delphi UDP 文件传输实例程序 代码，主程序分为三个部分：一、服务端（接收文件）、客户端（发送文件）、公共库（主体程序部分）。通过本程序你将了解到一些UDP方面的技巧，如何基于UDP传输文件，里面有一个文档，详细说明了UDP与TCP的区别，并讲了如何更优化的使用UDP。
2022-12-09 15:58:54
102KB
1
Indy Delphi控件包 v9.0，内含Indy 9.0.18、Indy 9.0.14两个版本的源码，适用于D7，indy9.0.18为安装版，下载后请双击exe安装的控件包。并不一定最新的控件就好用，Indy9普遍认为功能实用，简洁小巧，并不比indy10差。
2022-11-26 16:29:32
5.74MB
1
基于 Delphi UDP 的服务端和客服端发送数据测试程序，测试程序实现了客服端请求数据时服务端将马上做出反应并回馈数据，测试先运行服务端，再运行客户端，可在客户端发送测试数据。
2022-09-07 18:29:21
192KB
1
多功能Delphi闹钟，看一看运行截图，是不是很精美的闹钟界面？并且本闹钟支持托盘图标显示，右键菜单支持，支持对闹钟进行一系列设置：比如显示数字时钟、隐藏闹钟主窗体、日期和时间设置、背景风格设置、其它设置，关于闹钟等。
2022-07-01 14:25:25
1.9MB
1
Delphi远程屏幕截图的实现代码，支持TCP与SPXII协议，属WinAPI编程的范畴，不依赖于任何三方控件。程序仅初步完成，还有很多莫名其妙的bug(如类型转化语句不能执行，FreeMem报错而FreeMemory正常等，详见注释)，仅供参考，谢谢。
SPX:21位地址码 任意分割符(1位) 地址坐标(X:Y:Width:Height)
TCP(无需客户端):在IE中输入http://IP地址(127.0.0.1表示本机):5150/X-Y-Width-Height-
2022-04-20 00:01:11
60KB
1