Thema: Delphi UPNP kapiers nicht

Einzelnen Beitrag anzeigen

Benutzerbild von TKC
TKC

Registriert seit: 21. Apr 2004
Ort: Tuningen
367 Beiträge
 
Delphi XE2 Enterprise
 
#4

Re: UPNP kapiers nicht

  Alt 11. Nov 2006, 13:26
Zitat von runger:
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.

Rainer
Wie wärs denn mal mit nen Blick in die Doku zu UpnP ... da würdest du auch sehen woher du die IP bekommst.
Zitat:
WANIPConnection:1 Service Template Version 1.01
For UPnP™ Version 1.0

2.4. ACTIONS........................................... .................................................. ...........................................16
2.4.1. SetConnectionType................................. .................................................. ................16
2.4.2. GetConnectionTypeInfo............................. .................................................. ..........17
2.4.3. RequestConnection................................. .................................................. ................17
2.4.4. RequestTermination .................................................. ..............................................18
2.4.5. ForceTermination.................................. .................................................. .................19
2.4.6. SetAutoDisconnectTime............................. .................................................. ..........20
2.4.7. SetIdleDisconnectTime............................. .................................................. ..........20
2.4.8. SetWarnDisconnectDelay............................ .................................................. .........21
2.4.9. GetStatusInfo..................................... .................................................. .....................21
2.4.10. GetAutoDisconnectTime............................. .................................................. ......22
2.4.11. GetIdleDisconnectTime............................. .................................................. ......22
2.4.12. GetWarnDisconnectDelay............................ .................................................. .....23
2.4.13. GetNATRSIPStatus.................................. .................................................. .............23
2.4.14. GetGenericPortMappingEntry .................................................. .......................24
2.4.15. GetSpecificPortMappingEntry....................... ................................................25
2.4.16. AddPortMapping.................................... .................................................. ................25
2.4.17. DeletePortMapping................................. .................................................. ............27
2.4.18. GetExternalIPAddress .................................................. .....................................27
  Mit Zitat antworten Zitat