使用 Delphi 7 使用 TIdUDPServer (Indy 10) 读取广播数据时出现异常

Question

我在尝试使用 TIdUDPServer 的 OnUDPRead 事件读取从我创建的 IdUDPClient 客户端发送的广播数据时遇到问题。我尝试使用以下问题中显示的示例，但无济于事。

How can I send a broadcast message in Delphi

Reading data with TIdUDPServer

我可以将 TIdUDPServer 绑定到我指定的端口：

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdUDPServer1.BroadcastEnabled := True;
  IdUDPServer1.DefaultPort := StrToInt(edit2.Text);
  IdUDPServer1.Bindings.Add.IP := '0.0.0.0';
  //IdUDPServer1.ThreadedEvent:=True;
  IdUDPServer1.Active := True;
end;

IdUDPServer1UDPRead 已成功触发，表明 UDP 服务器正在工作，但我在这一行出现异常 -> DataStringStream.CopyFrom(AData, AData.Size);

异常：模块中地址 004BA415 的访问冲突 'IndyUDPReceiver.exe'。读取地址 74736574

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject;
  AData: TStream; ABinding: TIdSocketHandle);
var
  DataStringStream: TStringStream;
  msg: string;
begin
  try
    DataStringStream := TStringStream.Create('');
    try
      DataStringStream.CopyFrom(AData, AData.Size);
      msg := DataStringStream.DataString;
      Memo1.Lines.Add(msg);
    finally
      DataStringStream.Free;
    end;
  except
    on E: Exception do
    begin
      Memo1.Lines.Add('Exception:' + E.Message);
      DataStringStream.Free;
    end;
  end;
end;

我已将完整的客户端和服务器上传到：http://www.2shared.com/file/5SRweGIa/Indy_UDP.html

感谢任何指针。 :)

Answer 1

您是否偶然从旧版本的 Delphi 和/或 Indy 升级您的项目，却忘记检查事件处理程序的签名更改？ TIdUDPServer.OnUDPRead 事件很久以前就停止使用 TStream 作为其 AData 参数。改为使用TIdBytes：

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  msg: string;
begin
  msg := BytesToString(AData, Indy8BitEncoding);
  Memo1.Lines.Add(msg);
end;

几周前，我们不得不更改 XE3 的 AData 参数，以最终解决所有 2009+ 版本中 Delphi 和 C++ 之间的 RTTI 不兼容问题：

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread; const AData: array of Byte; ABinding: TIdSocketHandle);
var
  msg: string;
begin
  msg := BytesToString(AData, Indy8BitEncoding);
  Memo1.Lines.Add(msg);
end;