Как реализовать uPnP на Delphi XE2

У меня есть Http-сервер, реализованный с использованием indy TidHTTPServer на Delphi XE2. Этот продукт в основном используется для внутренней сети, однако иногда требуется доступ и из Интернета. Целевые клиенты - небольшие компании, и для этого возможности PnP просто необходимы.

Для внутреннего использования этот сервер использует текущий IP-адрес сервера и пытается назначить порт 8888.

Я хочу найти в сети wandevice, который позволяет мне запрашивать маршрутизацию портов. Я также не уверен, что маршрутизация портов - лучшее решение, я не знаком с возможностями. Однако я предпочитаю наиболее широко доступные возможности, так как считаю, что не все маршрутизаторы имеют полные возможности.

В этом случае я рассматриваю обычные маршрутизаторы, такие как linksys, tplink и т. Д., Которые поставляются с установками DSL и широко используются в небольших компаниях.

Если есть ссылка на компонент или исходный код, которые уже реализуют это, еще лучше.


person Eduardo Elias    schedule 20.03.2013    source источник


Ответы (1)


Компоненты UPnP Delphi кажутся доступными

Описание основ UPnP и ссылки на исходные примеры доступны здесь.

Связанный вопрос об обнаружении устройств с помощью Indy:

person mjn    schedule 20.03.2013
comment
компонент UPNnP delphi, доступный по этой ссылке, связан с очень старой версией Indy (7, если я не ошибаюсь), я пытался довести его до 10, но есть много проблем. - person Eduardo Elias; 29.03.2013