基于UDP的P2P小Demo (穿透NAT)delphi源码含Server和Client端

时间:2010-07-11 05:55:28
【文件属性】:

文件名称:基于UDP的P2P小Demo (穿透NAT)delphi源码含Server和Client端

文件大小:558KB

文件格式:RAR

更新时间:2010-07-11 05:55:28

Delphi NAT P2P UDP 网络通信类

具有文字聊天和传文件的功能,没有使用Indy网络控件,直接用的WinsockAPI。传文件用的也是UDP,还不会TCP穿透的说-_-!,用了简单的重传机制。
请把Server放在公网上,Client放在内网来测试,否则就没有穿透的意义了。


【文件预览】:
P2P Demo(UDP)
----P2P_COMMON()
--------Protocol.pas(4KB)
--------Winsock2.pas(57KB)
--------2ccc.com.nfo(746B)
----P2P_SERVER()
--------P2P_SERVER.dof(2KB)
--------UnitMainForm.dfm(1KB)
--------P2P_SERVER.res(22KB)
--------UnitMainForm.pas(8KB)
--------P2P_SERVER.dpr(341B)
----deletebak.bat(234B)
----Bin()
--------P2P_CLIENT.exe(501KB)
--------config.ini(62B)
--------P2P_SERVER.exe(506KB)
--------server.ini(19B)
----P2P_CLIENT()
--------UnitMainForm.dfm(4KB)
--------CRC32.pas(4KB)
--------P2P_CLIENT.dpr(366B)
--------UnitMainForm.pas(23KB)
--------res()
--------P2P_CLIENT.dof(2KB)
--------P2P_CLIENT.res(29KB)

网友评论

  • 真的不错,试了!
  • 正在研究这方面的知识,谢谢
  • 源码可以运行,很有参考价值
  • 运行起来了
  • 正在研究这方面的知识,谢谢
  • 编译通过。好像在公网上面不能穿透。
  • 只是原理,还得改进,只能参考。
  • 可以用来了解NAT穿透的原理,实用性上还有待改进
  • 运行提示 连接服务器失败
  • 挺漂亮的,测试失败,继续测试。
  • 在Delphi7环境下试用没有成功,没有穿透内网,不知什么原因!
  • delphi xe6下编译出错
  • 我自己测试是可以,D7环境下的,不过没在公网上试过
  • 互联网就不行了、不晓得什么逻辑
  • 看过,新手不容易看得懂啊
  • 地址对了,但是信息包没看见.什么原因
  • 试了一下,局域网发文件到公网不行也
  • delphi xe2下编译出错。
  • 好像不是很稳定,不过作为教材可以了
  • 很小巧,不错!
  • 没有实现内网穿透功能,不过还是有值得学习的地方,谢谢分享
  • delphiXE下需要对源码的string类型转换为ansiString才可正常使用
  • 用2010可以编译成功,但是客户端连不上服务器
  • socket的,d7不能用,哎
  • 可以通过 但是好像不是很稳定..正在测。。谢了哈