如何在Delphi XE2上实现uPnP

Question

我有一个使用Delphi XE2上的indy TidHTTPServer实现的Http服务器。 该产品主要用于Intranet，但是有时也需要从Internet访问它。 目标客户是小公司，为此PnP功能是必须的。

供内部使用，该服务器使用服务器上的当前IP并尝试分配端口8888。

我想在网络上发现一个wandevice，可以让我请求端口路由。 我不确定端口路由也不是最好的解决方案，我对这种可能性并不熟悉。 但是，我更喜欢最广泛使用的可能性，因为我相信并非所有路由器都有完整的选择。

对于这些情况，我正在考虑DSL安装随附的通用路由器，例如linksys，tplink等，这些路由器广泛用于小型公司。

如果有一个组件或源代码的链接已经实现了，那就更好了。

Answer 1

UPnP Delphi组件似乎可用

• http://www.whitebear.ch/upnp.htm （含源，免费软件/捐赠软件）

此处提供了UPnP基础知识的描述和源示例的链接。

• http://francois-piette.blogspot.de/2013/02/using-universal-plug-and-play-upnp-with.html

有关使用Indy进行设备发现的相关问题：

• 我可以使用IdUDPClient发送M-SEARCH请求吗？