Delphi实现内网到内网的直接连接

时间:2015-10-08 09:27:34
【文件属性】:

文件名称:Delphi实现内网到内网的直接连接

文件大小:1.22MB

文件格式:RAR

更新时间:2015-10-08 09:27:34

内网到内网

本程序为一个真正点对点通讯示范程序:) 实现内网到内网的直接连接(QQ用的技术) 使用Delphi实现。在网上未看到类似的程序,特此发布提供喜欢的朋友参考。 通过UDP来实现穿透NAT的点对点通讯。 >>原定 程序设置一个共享目录里边所有文件都可供别人多点下载(类似BT) 独立服务端 负责消息中转、用户登陆 客户端从服务端获取用户列表 然后直连各个用户 以实现 聊天 语音 视屏 文件传输等可能的一切服务 >>>结果 由于工作太忙<一个小借口^O^>,文件传输、语音 视频等服务一直没去实现。 希望有朋友在此基础上完善后能发布了给大家学习:)


【文件预览】:
mmzmagic_PeerToPeer.gif
请先看我.url
天下网吧论坛.url
请先看我.txt
PeerToPeer
----Doc()
--------PLoveCon.exe(1.07MB)
--------DB.mmz(2KB)
----Client()
--------bin()
--------dcu()
--------Share()
--------sources()
----Public()
--------UntTBaseSocketServer.pas(2KB)
--------UntClient.pas(3KB)
--------UntSendThread.pas(8KB)
--------PMyBaseDebug.pas(14KB)
--------untFunctions.pas(36KB)
--------UntUser.pas(1KB)
--------UntProctol.pas(5KB)
--------UntTIO.pas(5KB)
--------UntCFGer.pas(2KB)
--------UntTBaseSocketClient.pas(3KB)
--------NMUDP.pas(23KB)
--------untFunction.inc(143B)
--------Public_Var.pas(1KB)
----Server()
--------Sources()
--------bin()
--------dcu()
readme.txt
帮助文档.htm

网友评论

  • demo的客户端不能显示客户名。。 不过总得来说,程序的一些模块非常有帮助
  • 资源不错,很有帮助,局域网测试,无法显示用户名
  • 一个很简单的示例,没用到多少有价值的技术,不过还是谢谢
  • demo的客户端不能显示客户名。。 不过总得来说,程序的一些模块非常有帮助