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;