Delphi - 为什么udp数据包不同？

Question

我想了解为什么Wireshark程序中收到的数据包与我的delphi应用程序发送的数据包不同。任何人都可以帮助我吗？

这是我的代码：

if Pos('\x',comandoRede.Comando) > 0 then
begin

  bufferS := Explode('\x',comandoRede.Comando);

  SetLength(buffer,Length(bufferS)-1);

  for J := 0 to Length(Buffer) -1 do
  begin

    buffer[J] := StrToInt('$'+bufferS[J+1]);

  end;

    TIdUDPServer(item).SendBuffer(equipamentoRede.IP,
      StrToInt(equipamentoRede.Port),buffer,Length(buffer));

end

这里是缓冲区数组的内容：

此处为network sniffer Wireshark

的日志

我也尝试过使用TIDUDPClient，但问题是一样的。

感谢您的帮助。

Answer 1

在Indy 9中，SendBuffer()声明如下：

procedure SendBuffer(AHost: string; const APort: Integer; var ABuffer; const AByteCount: integer);

请注意，ABuffer是无类型的var。这意味着您可以将任何传递给它，并且它会接收您传入的任何变量的内存地址。

您的buffer被声明为动态数组（可能是由于您使用了SetLength()）。动态数组在内部实现为指向驻留在内存中其他地方的内存块的指针。将动态数组变量传递给无类型var参数时，该参数将接收变量本身的内存地址，而不是变量所指向的数组数据的内存地址。这就是为什么你看到＆＃34;垃圾＆＃34;在套接字上发送 - 您实际上是在发送数据指针本身的字节！您的代码发生不会崩溃，因为您的buffer长度为4，而Delphi 7中的指针大小为4个字节。

为了使var参数能够接收实际数组数据的内存地址，您必须：

1. 索引到数组的第一个元素：

   TIdUDPServer(item).SendBuffer(..., buffer[0], Length(buffer));
   

2. 将数组变量类型转换为适当的指针类型（在这种情况下，大概buffer是array of Byte，所以使用PByte）然后取消引用指针：

   TIdUDPServer(item).SendBuffer(..., PByte(buffer)^, Length(buffer));