> FLastResponse := '200 OK not connected'; A "200" answer mean OK, let's continue. Probably the message should better be: "503 Bad sequence of commands. Not connected."
-- [EMAIL PROTECTED] http://www.overbyte.be ----- Original Message ----- From: "Arno Garrels" <[EMAIL PROTECTED]> To: "ICS support mailing" <twsocket@elists.org> Sent: Saturday, January 14, 2006 11:44 AM Subject: Re: [twsocket] TFtpClient - Quit never returns when not connected! > Nonsense I mean: > > 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 := '200 OK not connected'; > TriggerRequestDone(0); > end; > end; > > Arno Garrels wrote: >> 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 -- 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