Delphi中的UDP文件传输

Arm*_*min 4 delphi delphi-xe3

我正在编写一个程序来通过局域网计算机传输文件,我一直在搜索Delphi中的文件传输方法.我发现UDP是一个很好的解决方案,但是有一个问题:在每个示例或文章中我发现服务器程序旁边都有一个客户端程序,但我的程序必须向/从网络中的每台计算机发送和接收,没有特定的服务器或客户端,像p2p,我不想让计算机服务器和另一个客户端,我该怎么办?我也搜索了Indy文章,它也在服务器/客户端模式下工作(据我所知).

在此输入图像描述

希望问题足够清楚

Arn*_*hez 6

UDP可以在广播模式下工作,这是您所需要的.但是这样的UDP广播不能在当前网络之外路由(即它们被路由器阻塞),因此如果您的项目需要在主物理网络之外可访问,则必须实现更复杂的东西.

不要重新发明轮子!如果您想看到实现此概念的一些工作源,请参阅Ares Galaxy:

"具有高规模能力和快速广播式搜索系统的Delphi自组织p2p网络项目.客户端支持多源文件传输,部分文件共享,内置音频/视频播放器和分散式聊天室".

源代码文件都可以从SourceForge.您可以根据需要重新使用/调整P2P网络层 - 但是如果您在项目中使用它,请注意Ares源代码的许可条款.