如何在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請求嗎？