Forum: Netzwerke
Delphi
by TKC,
9. Jul 2008
Hi,
kann ich leider nicht machen, da ich eine eigene Komponente dafür benutze und diese noch weit von einem Release weg ist ;) .
Du kannst mir aber dein Projekt schicken, dann schaue ich mal danach.
mfg
Thomas
Forum: Netzwerke
Delphi
by TKC,
9. Jul 2008
Hallo,
du hast ja in deinem Code das Upnp Gerät schon gefunden.
Jetzt fehlt dir noch der Aufbau der Innereien des Gerätes, gehe mal nach folgender Reihenfolge vor:
1. UPNP Gerät finden
2. WANConnectionDevice finden (falls du nicht direkt danach gesucht hast)
3. Services des WANConnectionDevice durchlaufen und WANIPConnection finden
4. jetzt kannst du mit der WANIPConnection...
Forum: Netzwerke
Delphi
by TKC,
31. Aug 2006
Versuche doch mal nach root device zu suchen und dann die dienste und untergeräte zu enumerieren .. evtl. bringt das mehr speed.
Forum: Netzwerke
Delphi
by TKC,
29. Aug 2006
Nach was suchst du denn ... RootDevice oder InternetGatewayDevice ??
Und CreateAsyncFind gehört zum TUPnPDeviceFinder !!
Das Callback Interface sieht dann so aus, und muss selst noch deklariert werden.
type
IUPnPDeviceFinderCallback = interface(IUnknown)
procedure DeviceAdded(iFindData: Integer; UPnPDevice: UPnPDevice); stdcall;
procedure DeviceRemoved(iFindData: Integer;...
Forum: Netzwerke
Delphi
by TKC,
23. Aug 2006
du kannst dir die Dokumentation durchlesen .... www.upnp.org :wink:
In diesem Fall die des InternetGatewayDevices
Forum: Netzwerke
Delphi
by TKC,
22. Aug 2006
Wenn du mir mal dein Projekt per PN Schickst schaue ich es mir mal an ... ansonsten versuche es so wie ich mit AsyncFind und CallBack.
Forum: Netzwerke
Delphi
by TKC,
22. Aug 2006
Dieser Fehler tritt nur auf wenn die Suche noch nicht abgeschlossen ist und du versuchst auf den Service zuzugreifen !!!
Achte darauf das FindByType('urn:schemas-upnp-org:service:WANIPConnection:1', 0) vollständig durch ist bevor du versuchst auf den Service zuzugreifen!!
Forum: Netzwerke
Delphi
by TKC,
22. Aug 2006
Hi,
zu 1. kann man so machen .. ich persönlich benutze UPnPMonitor.CreateAsyncFind mit einem CallBack
zu 2.
Port löschen
procedure DelPortClick(WANIPConn:UPnPService);
var
Forum: Netzwerke
Delphi
by TKC,
22. Aug 2006
also ich mache das so...
procedure AddPortClick(WANIPConn:UPnPService);
var
sOut : OleVariant;
sArg : OleVariant;
ret : OleVariant;
begin
Forum: Netzwerke
Delphi
by TKC,
22. Aug 2006
bei InvokeAction musst du doch alle Werte als Variant übergeben oder ?
Forum: Netzwerke
Delphi
by TKC,
21. Aug 2006
Eventuell ist ja AddPortMapping nicht erlaubt auf dem Router... bei der FritzBox kann man das z.B. einstellen.