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" <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

Reply via email to