0

我想了解为什么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 ，但问题是一样的。

感谢所有帮助。

4

1 回答 1

4

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

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

请注意，这ABuffer是一个无类型的var. 这意味着你可以向它传递任何东西，它会接收你传入的任何变量的内存地址。

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

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

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

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

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

    TIdUDPServer(item).SendBuffer(..., PByte(buffer)^, Length(buffer));
于 2016-02-19T16:34:55.073 回答