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:
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);
Kann jemand helfen? Wie gehe ich vor um die Verbindungsdaten zu kriegen.
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