UPNP / Portscan

[TKC]

Zitat von MrPayne:

Das funktioniert bitte wie? Der Upnpdevicefinder braucht mir mittlerweile zu lange...

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.

Delphi-Quellcode:

type
  IUPnPDeviceFinderCallback = interface(IUnknown)['{415A984A-88B3-49F3-92AF-0508BEDF0D6C}']
    procedure DeviceAdded(iFindData: Integer; UPnPDevice: UPnPDevice); stdcall;
    procedure DeviceRemoved(iFindData: Integer; wsUDN: WideString); stdcall;
    procedure SearchComplete(iFindData: Integer); stdcall;
  end;