Delphi2009的WinSocket元件接收和发送的编码不一致

本文链接：https://blog.csdn.net/acrodelphi/article/details/3873395

本文介绍了如何在Delphi2009中处理Socket通信时的编码问题，提供了使用Ansi和Unicode编码的具体实现方法，并讨论了在不同情况下的适用性和修改建议。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

delphi2009,版本12.0.3155.16733

ScktComp.pas

发送用Ansi码

function TCustomWinSocket.SendText(const s: AnsiString): Integer;
begin
Result := SendBuf(Pointer(S)^, Length(S) * SizeOf(AnsiChar));
end;

接收用Unicode码
function TCustomWinSocket.ReceiveText: string;
begin
SetLength(Result, ReceiveBuf(Pointer(nil)^, -1));
SetLength(Result, ReceiveBuf(Pointer(Result)^, Length(Result)));

end;

1、简单的修改，都用Ansi

直接把function TCustomWinSocket.ReceiveText: string;改成function TCustomWinSocket.ReceiveText: AnsiString;

2、都用Unicode

function TCustomWinSocket.SendText(const s: String): Integer;
begin
Result := SendBuf(Pointer(S)^, Length(S) * SizeOf(Char));
end;

function TCustomWinSocket.ReceiveText: string;
begin
SetLength(Result, ReceiveBuf(Pointer(nil)^, -1) div SizeOf(Char));
SetLength(Result, ReceiveBuf(Pointer(Result)^, Length(Result)*SizeOf(Char)) div SizeOf(Char));
end;

ScktComp.pas是在rtl.bpl，所以无法重编译rtl.dpk。删掉lib下的ScktComp.dcu。如果你的程序不用RuntimePackage编译的化修改没问题，否则没办法，只能改用SendBuffer或SendStream来发送。