我可以使用 IdUDPClient 发送 M-SEARCH 请求吗?

Question

我的网络中很少有uPNP设备。 我正在尝试向网络发送M-SEARCH请求，并希望从中收到一些回复。 这就是我正在尝试的：

var sIP, sOut: string;
    iPort: Word;
    S: TStringBuilder;
begin
  S := TStringBuilder.Create;
  try
    S.Append('M-SEARCH * HTTP/1.1').AppendLine
     .Append('HOST: 239.255.255.250:1900').AppendLine
     .Append('MAN: "ssdp:discover"').AppendLine
     .Append('MX: 10').AppendLine
     .Append('ST: ssdp:all').AppendLine;
    IdUDPClient1.ReceiveTimeout := 3000;
    IdUDPClient1.Broadcast(S.ToString, 1900, '239.255.255.250');
    sOut := IdUDPClient1.ReceiveString(sIP, iPort);
    Memo1.Lines.Add(sIP);
    Memo1.Lines.Add(IntToStr(iPort));
    Memo1.Lines.Add(sOut);
  finally
    S.Free;
  end;
end;

我从 UDP 客户端收到任何消息。 我使用Wireshark来监控网络流量，但没有从我的主机发送任何消息。

有什么想法吗？ 谢谢。

我终于找到了答案：

uses
  System.SysUtils, IdUDPClient, IdStack;
var S: TStringBuilder;
    U: TIdUDPClient;
    iPeerPort: Word;
    sPeerIP, sResponse: string;
begin
  U := TIdUDPClient.Create(nil);
  S := TStringBuilder.Create;
  try
    S.Append('M-SEARCH * HTTP/1.1').AppendLine
     .Append('HOST: 239.255.255.250:1900').AppendLine
     .Append('MAN: "ssdp:discover"').AppendLine
     .Append('MX: 3').AppendLine
     .Append('ST: ssdp:all').AppendLine
     .AppendLine;
    U.BoundIP := GStack.LocalAddress;
    U.Send('239.255.255.250', 1900, S.ToString);
    U.ReceiveTimeout := 1000;
    repeat
      sResponse := U.ReceiveString(sPeerIP, iPeerPort);
      if iPeerPort <> 0 then begin
        WriteLn(Format('%s:%d', [sPeerIP, iPeerPort]));
        WriteLn(sResponse);
      end;
    until iPeerPort = 0;
    ReadLn;
  finally
    S.Free;
    U.Free;
  end;
end.

Answer 1

在

字符串生成器的末尾调用AppendLine()两次。 HTTP 请求标头由两个 CRLF 对终止，但您只附加一对，因此您正在发送不完整的请求。

Answer 2

使用

TIdUDPServer （Indy 9） 的快速和肮脏解决方案。

将

TIdUDPServer 组件放在窗体上，然后使用对象检查器将绑定设置为本地 IP，例如 10.1.0.78：0，将"广播启用"和"活动"设置为 true。在表单上放置一个 TMemo 和 TButton。

按如下方式完成 OnClick 和 UDPRead 事件：

uses IdSocketHandle;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPServer1.Send('239.255.255.250', 1900, 'M-SEARCH * HTTP/1.1' + #13#10 +
     'HOST: 239.255.255.250:1900' + #13#10 +
     'MAN: "ssdp:discover"'+ #13#10 +
     'MX: 3'+ #13#10 +
     'ST: ssdp:all'+ #13#10 +
     #13#10);
end;
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var 
   data: string;
begin
   setlength(data, Adata.Size - AData.Position); //No fragmentation :)        
   AData.ReadBuffer(data[1], length(data));
   memo1.Lines.Add('Read: ' + inttostr(AData.Position) + ' / ' + inttostr(AData.Size) + ' PeerIP: ' + ABinding.PeerIP);       
   memo1.Lines.Add(data);
end;

救，跑，鲍勃是你的叔叔。

Answer 3

对于多播 M-SEARCH，消息格式定义如下。* * 之间的值是实际值的占位符。

M-SEARCH * HTTP/1.1
HOST: 239.255.255.250:1900
MAN: "ssdp:discover"
MX: *seconds to delay response*
ST: *search target*
USER-AGENT: *OS/version UPnP/1.1 product/version*

所以你需要修复接收超时

U.ReceiveTimeout := 3000;

它至少应等于请求延迟 （MX：3） 3 秒 = 3000 毫秒