[ganjan]

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;