Delphi2009的Bug：WinSocket元件接收和发送的编码不一致（在Delphi XE版本中已做修改）

最新推荐文章于 2023-11-28 18:38:52 发布

turtle_2

最新推荐文章于 2023-11-28 18:38:52 发布

阅读量1k

点赞数

文章标签： delphi function string socket div

Delphi2009中的WinSocket组件存在一个编码不一致的问题，该问题在发送和接收字符串时表现出来。具体表现为发送使用Ansi编码而接收则使用Unicode编码。本文提供了解决这一问题的方法，包括两种修改方式。

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

转载自：http://multilanguage.tech.topzj.com/archiver/tid-14132.html

Delphi2009的Bug：WinSocket元件接收和发送的编码不一致
delphi2009,版本12.0.3155.16733，Socket元件的发送接受字串有一个bug，可能是支持unicode时漏改了。

在Delphi XE版本中已做修改。

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来发送。