Я несколько лет внедрял в свое серверное приложение NAT UPnP go, который в то время работал на мой маршрутизатор, но, похоже, в наши дни он не работает с современными маршрутизаторами, даже если в маршрутизаторе включен UPnP. Что-то вроде этого ..
NATUPnP := CreateOLEObject('HNetCfg.NATUPnP');
PortMapping := NATUPnP.StaticPortMappingCollection;
PortMapping.Add(Port, 'TCP', Port, IP, True, EntryName);
Но мне нужен код для NAT-PMP или PCP, который я нигде не могу найти. Я видел другие приложения, использующие этот метод, и он, кажется, всегда работает. Я использую Indy10 в Delphi 7. Мои новые пользователи часто не имеют ни малейшего понятия, как вручную настроить переадресацию портов в их маршрутизаторе, и это тратит много времени на поддержку.
Большое спасибо за любую помощь.