ganjan
01-03-2009, 11:34
Hi, Just starting learning Delphi. I am trying to learn how to send text strings over TCP. I made this really simple application that sends text strings from edit1 and the server application is suppose to add a new line in Memo1. Which it does, but only Chinese letters show up?!
ex:
127.0.0.1 Sends :
敨汬敯桔浥
I also get this Warning:
[DCC Warning] Client2.pas(38): W1058 Implicit string cast with potential data loss from 'TCaption' to 'AnsiString'
Client Code:
begin
if ClientSocket1.Active = True then
ClientSocket1.Socket.SendText(Edit1.Text);
end;
Server Code
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
ex:
127.0.0.1 Sends :
敨汬敯桔浥
I also get this Warning:
[DCC Warning] Client2.pas(38): W1058 Implicit string cast with potential data loss from 'TCaption' to 'AnsiString'
Client Code:
begin
if ClientSocket1.Active = True then
ClientSocket1.Socket.SendText(Edit1.Text);
end;
Server Code
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;