WebServices - Discovery: Hello, Probe, Bye ......

[TERWI]

Hab noch mal ein wenig rumgelesen...

Billy Boy Gates lässt hier
https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx
schreiben:
A Probe message is a WS-Discovery message used by a client to search for services on the network by service type. For more information about Probe messages, see section 5.2 of the WS-Discovery Specification.
A Probe message is sent by UDP multicast to port 3702. Unicast Probe messages are not supported.
DPWS clients send Probe messages. The following list shows scenarios in which WSDAPI will send a Probe message.

Im oben benannten PDF
http://specs.xmlsoap.org/ws/2005/04/...-discovery.pdf
findet man auf Seite 4/5 entsprechendes wieder:
... Probe message multicast by a Client searching for ... (dort Drucker)
Because there is no explicit ReplyTo SOAP header block [WS-Addressing], any response to this Probe will be sent as a UDP packet to the source IP address and port of the Probe transport header [SOAP/UDP].

Lt. dem Beispiel im ONVIF-Progger-Handbuch (link dazu weiter oben) und Wiki's ist die Multicast-Adresse 239.255.255.250
Als Port bei MS als auch bei ONVIF ist 3207 angegeben.


Nach sehr vielen Jahren hab ich wieder INDY in der letzten Version Indy10_5339 auf das Delphi 7 gepackt, reichlich aus dem Netz abgeguckt betreff UDP und was mit UDPClient/-Server gebastelt. (Grausig, warum es so viele Unterschiede von Indy 9 nach 10 bei den Demos gibt ...)

Code:

unit TestUnit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  IdUDPBase, IdUDPServer, IdBaseComponent, IdComponent,
  IdGlobal, IdSocketHandle, IdUDPClient, IdStack;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    EditHost: TEdit;
    Label2: TLabel;
    EditPort: TEdit;
    UDPServer: TIdUDPServer;
    Button1: TButton;
    UDPClient: TIdUDPClient;
    procedure UDPServerUDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// http://stackoverflow.com/questions/15741862/delphi-xe2-indy10-udp-client-server-interchange-using-sendbuffer-receivebuffer

// -----------------------------------------------------------------------------
procedure TForm1.UDPServerUDPRead(AThread: TIdUDPListenerThread;
          const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
  Memo1.Lines.Add(' Server read: ' + ToHex(AData, length(AData)));
//  with ABinding do
//    SendTo(PeerIP, PeerPort, AData);
end;

// -----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  XMLRequest : TStringStream;
  SndBytes,
  RcvBytes   : TIdBytes;
  k : integer;
begin
  Memo1.Clear;
  // Siehe ONVIF Application Programmer's Guide - Seite 14-15
  XMLRequest := TStringStream.Create(
    '<?xml version="1.0" encoding="UTF-8"?>' + #10#13 +
    '<e:Envelope xmlns:e="http://www.w3.org/2003/05/soap-envelope"' + #10#13 +
    'xmlns:w="http://schemas.xmlsoap.org/ws/2004/08/addressing"' + #10#13 +
    'xmlns:d="http://schemas.xmlsoap.org/ws/2005/04/discovery"' + #10#13 +
    'xmlns:dn="http://www.onvif.org/ver10/network/wsdl">'+ #10#13 +
    '<e:Header>' + #10#13 +
    '<w:MessageID>uuid:84ede3de-7dec-11d0-c360-f01234567890</w:MessageID>' + #10#13 +
    '<w:To e:mustUnderstand="true">urn:schemas-xmlsoap-org:ws:2005:04:discovery</w:To>' + #10#13 +
    '<w:Action a:mustUnderstand="true">http://schemas.xmlsoap.org/ws/2005/04/discovery/Probe</w:Action>' + #10#13 +
    '</e:Header>' + #10#13 +
    '<e:Body>' + #10#13 +
    '<d:Probe>' + #10#13 +
    '<d:Types>dn:NetworkVideoTransmitter</d:Types>' + #10#13 +
    '</d:Probe>' + #10#13 +
    '</e:Body>' + #10#13 +
    '</e:Envelope>');
  SndBytes := RawToBytes(XMLRequest, SizeOf(XMLRequest));
  try
    // Setup UDP-Server:
    with udpServer do
    begin
      Active := false;
      DefaultPort := strtoint(EditPort.text); // DEFAULT: 3702
      BufferSize := 8192;
//      BroadcastEnabled := true;  // ??
      ThreadedEvent := true;
      Active := True;
      if Active then
        Memo1.Lines.Add('Server started on port: ' + IntToStr(DefaultPort));
    end;
    // Setup UDP-Client:
    with udpClient do
    begin
      BufferSize := 8192;
      Host := EditHost.Text;;          // DEFAULT: 239.255.255.250
      Port := strtoint(EditPort.text); // DEFAULT: 3702
    end;
    Memo1.Lines.Add(' Client sending Probe-Message');
    with udpClient do SendBuffer(Host, Port, SndBytes);
    try
      k := udpClient.ReceiveBuffer(RcvBytes, 10);
      if k > 0 then
        Memo1.Lines.Add(' Client read: ' + ToHex(RcvBytes, length(RcvBytes)))
      else
        Memo1.Lines.Add(' Client no response !');
    except
      on E: exception do
      begin
        Memo1.Lines.Add(Format(' Client read err: %s',[E.Message]));
      end;
    end;
  except
    on E: Exception do
    begin
      ShowMessage(E.ClassName + ': ' + E.Message);
    end;
  end;
  XMLRequest.Free;
end;

end.

Prinzipiell müsste das meiner bescheidenen Meinung nach funktionieren.
Das Proggy läuft zwar fehlerfrei - ich bekomme allerdings keinerlei Antwort. Gar nix, auch kein Daten-Kauderwelsch.

Was ist (grundsätzlich ?) falsch ?
Was hab ich vergessen ? (Zuweisungen, Einstellung am Client, Server, ...)

Ich alles komplett auch mit EXE angehängt, falls das jemand mal probieren möchte - vielleicht hat ja jemand eine ONVIF-taugliche Kamera o.ä. Gerät in seinem LAN.

Nochmals Hilfe bitte - hier ist mein KnoffHoff eher sehr bescheiden.