UPNP / Portscan

[JonnyGuitar]

ja, 10 - 15 sekunden sucht der bei mir auch.

aber ich hätte noch eine bitte. mir hat ein bekannter ein beispiel python quellcode geschickt:

Delphi-Quellcode:

import win32com.client
from pythoncom import CoInitialize,CoUninitialize

def AddPortMapping(Port,LocalIP):
try:
CoInitialize()
DeviceFinder=win32com.client.Dispatch("UPnP.UPnPDeviceFinder")

Connections=DeviceFinder.FindByType("urn:schemas-upnp-org:service:WANIPConnection:1",0)
Connection=Connections.__getitem__(0)
Service=Connection.Services.__getitem__(0)

Service.InvokeAction("AddPortMapping",["",Port,"TCP",Port,LocalIP,True,"BitTorrent",""],"")
return True
except:
return False



def ReleasePortMapping(Port):
try:
CoInitialize()
DeviceFinder=win32com.client.Dispatch("UPnP.UPnPDeviceFinder")

Connections=DeviceFinder.FindByType("urn:schemas-upnp-org:service:WANIPConnection:1",0)
Connection=Connections.__getitem__(0)
Service=Connection.Services.__getitem__(0)
r=[]
Service.InvokeAction("DeletePortMapping",["",Port,"TCP"],r)
finally:
return

es gibt ja nun auch UPnpService.InvokeAction. kann mir einer das Service.InvokeAction("AddPortMapping",["",Port,"TCP",Port,LocalIP,True,"BitTorrent"," "],"") nach delphi übersetzen?
UPnpService.InvokeAction('AddPortMapping', [0, 1000, 'TCP', 1000, '192.168.0.1', True, 'TEST', 0], '') gibt nur fehler aus

mfg Jonny