[twsocket] TFtpClient - Quit never returns when not connected!

[Arno Garrels]

Hi,

Calling QUIT when not connected never returnes.
How to fix it? I added code below in SendCommand is this OK?

procedure TCustomFtpCli.SendCommand(Cmd : String);
begin
    if Assigned(FOnCommand) then
        FOnCommand(Self, Cmd);
    TriggerDisplay('> ' + Cmd);
    if FControlSocket.State = wsConnected then
        FControlSocket.SendStr(Cmd + #13 + #10)
    else begin  // Quit when not connected never returned.         // 01/14/06 
AG
         FStatusCode    := 200;
         FNextRequest   := nil;
         FDoneAsync     := nil;
         FConnected     := FALSE;
         FRequestResult := FStatusCode;
         FLastResponse  := IntToStr(FStatusCode) + ' OK not connected';
         SetErrorMessage;
         TriggerRequestDone(FStatusCode);
    end;
end;
-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be