Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 22. Aug 2006
  aso, ich hatte auch schon festgestellt, dass die suche unterschiedlich lang dauert. bei deinem beispielprogramm geht es wesentlich schneller als bei mir.
  
  kann es bei der suche nach den ports vielleicht sein, dass er gar keine findet und deswegen die fehlermeldung schmeisst?
  
  mfg Jonny
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 22. Aug 2006
  nabend zusammen,
  
  also das port anlegen und wieder löschen funktioniert nur wenn ich die devices per:
  
  UPnPDeviceFinder.FindByType('urn:schemas-upnp-org:service:WANIPConnection:1', 0) gesucht habe.
  
  suche ich über UPnPDeviceFinder.FindByType('upnp:rootdevies', 0) so folgt der fehler:
  "EOLEException: Die Besitzer-SID eines Abonnements auf Einzelbenutzerbasis ist nicht vorhanden".
  
  Die...
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 22. Aug 2006
  moin zusammen,
  
  das codebeispiel funktioniert einwandfrei, nun hätte ich noch weitere fragen:
  
  1)suchst man die devices so
  a) UPnPDeviceFinder.FindByType('urn:schemas-upnp-org:service:WANIPConnection:1', 0) oder
  b) UPnPDeviceFinder.FindByType('upnp:rootdevice', 0).
  
  2) sehe ich das richtig das ich beim löschen des ports folgendes machen muss?
  WANIPConn.InvokeAction('DeletePortMapping',...
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 22. Aug 2006
  also die drei parameter sind:
  
  bstrActionName: WideString;
  vlnActionArgs: OleVariant;
  pvOutActionArgs: OleVariant;
  
  Also demnach ja. Oder wolltest du mich jetzt irgendwo drauf stoßen weil irgendwas dummes gemacht habe? sehe mittlerweile den wald vor lauter bäumen nicht ;)
  
  mfg Jonny
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 22. Aug 2006
  morgen zusammen,
  
  also upnp ist auf dem router aktiviert. ich denke das sollte funktionieren. aber es kommen ja auch erstmal fehler von delphi:
  
  UPnpService.InvokeAction('AddPortMapping', , '')
  
  bei den beiden Portangaben 1000 kommt "Konstantenausdruck verletzt untere Grenzen"
  
  bei der ip angabe und dem Portnamen 'test' kommt "inkompatible...
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 21. Aug 2006
  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:
  
  
  import win32com.client
  from pythoncom import CoInitialize,CoUninitialize
  
  def AddPortMapping(Port,LocalIP):
  try:
• Forum: Netzwerke

  Re: UPNP / Portscan

    Delphi
    by JonnyGuitar, 21. Aug 2006
  moin zusammen,
  
  ich plage mich zur zeit auch mit dem thema upnp herum. aufgelistet kriege ich die geräte auch schon aber danach hört es bei mir auch auf. es muss doch leute geben die da durchblicken :) .
  
  @mr payne: die dll lässt sich unter projekt/typ bibliothek importieren einbinden. danach hast du unter dem active x reiter diverse komponenten.
  
  mfg jonny guitar