UPNP kapiers nicht
Hallo,
wir versuchen seit geraumer Zeit einen Automatissmus zu finden mit der sich die öffentliche IP adresse eines DSL Routers herausfinden lässt. Soweit ( siehe Beispiel wir haben den Code stark vereinfacht) sind wir schon forgeschritten: f1 ist UPNPdevicefinder
Delphi-Quellcode:
Kann jemand helfen? Wie gehe ich vor um die Verbindungsdaten zu kriegen.
UPnpDevices:=f1.FindByType('upnp:rootdevice',0); //upnp:rootdevice UPnPDevicex
Memo1.Lines.Add('----------------------------------------------------------------------------'); Memo1.Lines.Add('Number of UPnP devices: ' + IntToStr(upnpdevices.Count)); Memo1.Lines.Add('----------------------------------------------------------------------------'); EnumVariant := IEnumVariant(UPnpDevices._NewEnum); EnumVariant.Next(1, rgvar, celtFetched); UPnpDevice := IUPnpDevice(IUnknown(rgvar)); Memo1.Lines.Add('FriendlyName: '+UPnpDevice.FriendlyName); Memo1.Lines.Add('UniqueDeviceName: '+UPnpDevice.UniqueDeviceName); Memo1.Lines.Add('Services: '+IntToStr(UPnpDevice.Services.Count)); Memo1.Lines.Add('PresentationURL: '+UPnpDevice.PresentationURL); Memo1.Lines.Add('SerialNumber: '+UPnpDevice.SerialNumber); Memo1.Lines.Add('ModelURL: '+UPnpDevice.ModelURL); Memo1.Lines.Add('UPC: '+UPnpDevice.UPC); Bitte keine Beiträge, die auf das Internet verweisen wie www.ipadresse.net. Da ich die IP intern benötige sind solche Beiträge absolut sinnlos!! Rainer |
Re: UPNP kapiers nicht
|
Re: UPNP kapiers nicht
Hallo,
diese Antwort hilft mir leider überhaupt nicht. Ich brauche die Adresse in einem laufenden Programm! Rainer |
Re: UPNP kapiers nicht
Zitat:
Zitat:
|
Re: UPNP kapiers nicht
Hallo,
in der Doku, die du da gepostest Hast steht absolut nichts drin. Meinst du ich hätte mich ans Forum gewandt wenn ich weitergekommen wäre? Rainer |
Re: UPNP kapiers nicht
Hallo ace-ppp
woher hast du denn diese Doku? Ich kann sie jedenfalls, in der Form nirgends finden. Rainer |
Re: UPNP kapiers nicht
Hi,
klar im laufenden Programm: einfach eine Abfrage auf diese Webseite machen (z.B. mit synapse unit httpsend) und das Ergebnis auswerten. Wir haben uns in der Firma auf diese Art und Weise eine eigene Implementierung von DynDNS geschaffen. Sollte nur ne Anregung sein..... Gruss Thomas. |
Re: UPNP kapiers nicht
Hi,
die Doku ist hier komplett zu finden .. UPnP Standards IGD @UPnp.org Das ist auch per Google einfach zu finden :wink: |
Re: UPNP kapiers nicht
Hi,
danke für die Hilfe, aber jetzt häng ich an einer anderen Stelle: Ich hab mir ein Stück Code aus der DP gesucht um eine Portliste anzuzeigen:
Delphi-Quellcode:
Egal welchen Service ich benutze, ich bekomme immer die Exception OLE Fehler. Was mach ich falsch?
var
sOut : OleVariant; sArg : OleVariant; ret : OleVariant; iCount : integer; x : Integer; ..... if not Assigned(WANIPConn) then exit; try // Portmappings zählen ret:='PortMappingNumberOfEntries'; iCount := WANIPConn.QueryStateVariable(ret); // hier bekomm ich Exception Rainer |
Re: UPNP kapiers nicht
Bitte erstell für eine neue Frage einen neuen Thread, sonst eht es hier drunter und drüber.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz