Francois PIETTE wrote: >> 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."
As far as I understand, Quit should _not return any error when not connected, wasn't it handled in other classes the same? > > -- > [EMAIL PROTECTED] > http://www.overbyte.be > > > > ----- Original Message ----- > From: "Arno Garrels" <[EMAIL PROTECTED]> > To: "ICS support mailing" <[email protected]> > 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
