delphi XE2 与vs2008 vc unicode 通讯乱码。

delphi 和 c 都用 unicode 编码。 c收到我发送的 是乱码。


function TManage_Sock.Scp_Send(StrSend:string):String; //发送
begin
  try
  if not IdTCPClientMain.Connected then
  begin
  IdTCPClientMain.Connect;
  MessageBox(0,'连接成功','连接成功',48);
  end
  else
  begin
  end;
  except
  MessageBox(0,'连接失败','连接失败',48);
  end;
  IdTCPClientMain.Socket.WriteLn(StrSend);

end;