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;
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;
没用过。
用writebuffer试试