delphi - 如何在Delphi XE2上实现uPnP

Question

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

对于内部使用，此服务器使用服务器的当前 IP，并尝试分配端口 8888。

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

对于这些情况，我正在考虑常见的路由器，如 linksys、tplink 等，它们附带 DSL 安装，广泛用于小公司。

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

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 发现设备的相关问题:

• Can I use IdUDPClient to send M-SEARCH request?