Introduction - If you have any usage issues, please Google them yourself
程序说明:
1.模拟实现即时消息互发.
2.P2P通讯说明:
1).网关类型是在理想状态下.即非对称型NAT.
2).同在一个内网的两个CLIENT端通讯时,如果网关NAT不支持环回,将会失败.
文件目录说明:
Server:程序服务端,请将其放在公网上运行.
Client:程序客户端,可以在不同的内网中运行登录连接到服务端.
Common:公共协议文件夹
本程序只是实现简单的P2P互发消息.完成的比较粗糙,更多功能欢迎朋友们更新完善..
Packet : delphi-P2p.rar filelist
delphi-P2p\Server\MainUnit.dcu
delphi-P2p\Server\MainUnit.ddp
delphi-P2p\Server\MainUnit.dfm
delphi-P2p\Server\MainUnit.pas
delphi-P2p\Server\MainUnit.~ddp
delphi-P2p\Server\MainUnit.~dfm
delphi-P2p\Server\MainUnit.~pas
delphi-P2p\Server\ServerProject.cfg
delphi-P2p\Server\ServerProject.dof
delphi-P2p\Server\ServerProject.dpr
delphi-P2p\Server\ServerProject.dproj
delphi-P2p\Server\ServerProject.dproj.2007
delphi-P2p\Server\ServerProject.dproj.local
delphi-P2p\Server\ServerProject.identcache
delphi-P2p\Server\ServerProject.res
delphi-P2p\Server\ServerProject.~dpr
delphi-P2p\Server\testQQCommon.dcu
delphi-P2p\Server\testQQCommon.~pas
delphi-P2p\Readme.txt
delphi-P2p\Common\testQQCommon.pas
delphi-P2p\Client\AboutUnit.dcu
delphi-P2p\Client\AboutUnit.ddp
delphi-P2p\Client\AboutUnit.dfm
delphi-P2p\Client\AboutUnit.pas
delphi-P2p\Client\AboutUnit.~ddp
delphi-P2p\Client\AboutUnit.~dfm
delphi-P2p\Client\AboutUnit.~pas
delphi-P2p\Client\MainUnit.dcu
delphi-P2p\Client\MainUnit.ddp
delphi-P2p\Client\MainUnit.dfm
delphi-P2p\Client\MainUnit.pas
delphi-P2p\Client\MainUnit.~ddp
delphi-P2p\Client\MainUnit.~dfm
delphi-P2p\Client\MainUnit.~pas
delphi-P2p\Client\tQClientProject.cfg
delphi-P2p\Client\tQClientProject.dof
delphi-P2p\Client\tQClientProject.dpr
delphi-P2p\Client\tQClientProject.res
delphi-P2p\Client\tQClientProject.~dpr
delphi-P2p\Server
delphi-P2p\Common
delphi-P2p\Client
delphi-P2p