如何在Delphi中使用原生WinSock api简单地发送/接收整数值？

Question

在一行中使用原生winsock发送/接收整数值的正确方法是什么，类似于下面的C ++代码？我试过翻译这个，但不知道是否正确。有谁可以帮助我吗？

C ++：

enum MyEnum { element01, element02 };
int width;

int SendInt(SOCKET sock, int i)
{
   return Send(sock, (char *) &i, sizeof(i), 0);
}

if(SendInt(sock, MyEnum::element01) <= 0) return;
if(SendInt(sock, 0) <= 0) return;
if(recv(sock, (char *) &width, sizeof(width), 0) <= 0) return;

德尔福：

type
  MyEnum = (element01, element02);

var
 Width: Integer;

function SendInt(S: TSocket; I: Integer): Integer;
begin
  Result := send(S, PAnsiChar(I)^, Length(IntToStr(I)), 0);
end;

if SendInt(Sock, Integer(MyEnum.element01)) <= 0 then Exit;
if SendInt(Sock, 0) <= 0 then Exit;
if recv(Sock, PAnsiChar(Width)^, Length(IntToStr(Width)), 0) <= 0 then Exit;

Answer 1

你用：

function SendInt(S: TSocket; I: Integer): Integer;
begin
  Result := send(S, PAnsiChar(I)^, Length(IntToStr(I)), 0);
end;

send()的第二个参数是一个无类型的const参数，这意味着您可以传递任何具有地址的内容，但是将整数转换为指针然后取消引用它肯定是不正确的。

你可以这样做：

begin
  Result := send(S, I, SizeOf(I), 0);
end;

虽然，您可能必须使用htonl（）更改字节顺序：

begin
  // I := htonl(I); ??
  Result := send(S, I, SizeOf(I), 0);
end;

你应该尝试两种选择，看看它是什么。其中一个是正确的。

您还应该使用recv（）以相同的方式传递整数。在recv（）调用之后，您可能必须使用ntohl（）（与htonl（）相反）：

function RecvInt(S: TSocket; var J: Integer): Integer;
begin
  Result := recv(S, J, SizeOf(J), 0);
  // J := ntohl(J); ??
end;

Answer 2

对send的呼吁是错误的。您必须为要发送的字节和字节数提供无类型缓冲区。这里绝对没有IntToStr的地方。

Result := send(S, I, SizeOf(I), 0);

同样的呼吁recv。

if recv(Sock, Width, SizeOf(Width), 0) <= 0 then Exit;

使用Ord()获取Delphi枚举类型的序数值是惯用的，所以Ord(MyEnum.element01)而不是Integer(MyEnum.element01)，但最终结果将完全相同。

您的代码不会在主机和网络字节顺序之间进行转换。但是，C ++代码也没有。