Socket服务器程序接收中文数据时出现乱码问题分析及解决方案，客户端使用C#编写，返回中文数据可正常显示

代码如下：
procedure TFrm_Main.SSClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  p: pchar;
  lh: longint;
  Count, i: integer;
  ReceStr: string;
begin
  //p := nil;
  while Socket.ReceiveLength > 0 do
  begin
    lh := Socket.ReceiveLength;
    GetMem(p, lh);
    try
      Socket.ReceiveBuf(p^, Socket.ReceiveLength);
      ReceStr := StrPas(p);
      Memo_Log.Lines.Add(ReceStr);  //memo上显示的是乱码
      Count := SS.Socket.ActiveConnections;
      for i := 0 to Count - 1 do
      begin
        SS.Socket.Connections[i].SendBuf(p^, lh);//发出的数据在C＃的窗体上                                                可以正常显示
      end;
    finally
      FreeMem(p);
    end;
  end;
end;

//s是不是PChar类型的问题呀？？
谢谢了

7 个解决方案