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