Thread: How to use 'TWinSocketStream'?

Hi, I have this simple procedure:

Code:

procedure MyThread.ReceiveText(MySocket: TClientSocket);
var
  TotalText: string;
  SockStream: TWinSocketStream;
  Buffer: array[0..1023] of Char;
begin
SockStream := TWinSocketStream.Create(MySocket.Socket, 5000);
    while (SockStream.Read(Buffer, SizeOf(Buffer)) <> 0) do
    TotalText:= TotalText + Buffer;
    ShowMessage(TotalText);

I want to receive the text and convert into a simple string. But my buffer is with a lot of characters like
'Ȁ'#0'良''л'... How can I receive the text from Socket in simple string?

Code:

procedure MyThread.ReceiveText(MySocket: TClientSocket);
var
  ReceivedString: string;
  SockStream: TWinSocketStream;
  Buffer: array[0..1023] of Char;
begin
 FillChar(Buffer, SizeOf(Buffer), #0);
  SockStream := TWinSocketStream.Create(MySocket.Socket, 2000);
  while (SockStream.Read(Buffer, SizeOf(Buffer)) <> 0) do
    ReceivedString:= ReceivedString + Buffer;

    if Length(ReceivedString) = 0 then
    Terminate
    else
    ReceivedString:= PAnsiChar(ReceivedString);

nice and slow...

Hey, I'm tryin to receive a socket response but no success... And don't know why. Look my code:

Code:

procedure MyThread.SendText(Command: string; MySocket: TClientSocket);
var
  ReceivedString: string;
  SockStream: TWinSocketStream;
  Buffer: array[0..1023] of Char;
begin
  FillChar(Buffer, SizeOf(Buffer), #0);
  SockStream := TWinSocketStream.Create(MySocket.Socket, 2000);

  if Command='Username' then
    begin
      MySocket.Socket.SendText('USER test'+#13+#10); //when I send this, I receive a response like '+OK Password required'
      while SockStream.Read(Buffer, SizeOf(Buffer)) <> 0 do //this should read the response and put in ReceivedString, but nothing happens...
        ReceivedString:= ReceivedString + Buffer;

I'm sending the 'USER test' with success, and the server is answering with the message... But I can't receive this message... Why??

If I remember right, TClientsocket have a OnRead Event. Use that and try to get the answer there

I'm using thread... Tried to set an OnRead event but this never get inside the event... I receive the text and the thread don't get inside the event... Don't know why, looks like events only work in the main thread.

If I do like this, work:

Code:

...
  if Command='Username' then
    begin
      MySocket.Socket.SendText('USER test'+#13+#10);
      MySocket.Socket.SendText('PASS test'+#13+#10);
      while SockStream.Read(Buffer, SizeOf(Buffer)) <> 0 do
        ReceivedString:= ReceivedString + Buffer;

But I'm getting the last response... I wanted to before send PASS, receive the response for USER... Why this shit don't work...