处理TUdpSocket

Question

我正在尝试在 Delphi 中使用 TUdpSocket。我想做的是连接到 UDP 服务器，发送一些数据并等待答复。数据发送正确，但控件未收到任何内容。我不知道为什么。我已经在这个问题上挣扎了好几个小时了，我要放弃了:-(。

我尝试使用 TIdUDPClient，但情况是一样的。数据发送正确，但没有收到。

只有 TIdUDPServer不幸的是，数据接收是由单独的线程（主线程或其他线程，取决于 ThreadedEvent 属性）处理的，这迫使我使用同步并使我想要处理的整个代码变得复杂。我自己的线程中的 UDP 连接。只需发送一些数据并调用 WaitForData() 等待答案，然后在同一线程中处理它，

如果可能，我不想使用任何第三方控件，但如果是的话。唯一的解决方案，我接受它。

非常非常感谢您提前提供的帮助。

---- 示例 ---

i) TUDPSocket：

var
  lR, lW, lE: boolean;
begin
  UdpSocket1.LocalPort := '1600';

  UdpSocket1.RemotePort := '1600';
  UdpSocket1.RemoteHost := '127.0.0.1';
  UdpSocket1.Connect;

  UdpSocket1.Sendln('test');

  UdpSocket1.Select(@lR, @lW, @lE, 2000);    
  if lR then
    ShowMessage(UdpSocket1.Receiveln());
end;

如您所见，控件应该接收它传输的数据。显然确实如此，因为在调用 Select() 方法后 lR 的计算结果为 true。但 Receiveln() 返回一个空字符串，就像 ReceiveBuf() 一样。当我启动 UDP 服务器并向其发送一些数据时，它会被正确接收，因此我确定数据确实已发送。

Answer 1

您应该只需要这样：

function SayHi(Host: String; Port: Integer): String;
var
  Client: TIdUDPClient;
begin
  Client := TIdUDPClient.Create(nil);
  try
    Client.Host := Host;
    Client.Port := Port;
    Client.Send('Hello');
    Result := Client.ReceiveString(1000);
  finally
    Client.Free;
  end;
end;

它将在同一线程中发送 UDP 数据包并接收 UDP 数据包或在超时后引发异常。

如果上述方法不起作用，请检查（使用 Wireshark 等客户端是否实际发送了数据。然后检查在服务器上，

Send() 最终（在 Windows 上）调用 WinSock 的 sendto()，而 ReceiveString() 使用select() 和 recvfrom() 您可以通过以下方式模拟 TIdUDPServer：

while not Terminated do begin
  S := Client.ReceiveString(1000);
  DoSomething(S);
end;

Answer 2

另一种可能性是使用 Synapse 进行通信。它是一个执行阻塞调用的简单通信库，因此在您想要停止并等待数据而不是依赖事件触发的单个工作线程中运行良好。 SVN 中的最新版本支持最新版本的 Delphi。