Hello!
I just noticed that I'm getting an empty error message (property
tFtpClient.ErrorMessage) when making an attempt to move a non-existing
file to the peer with Put().
The problem seems to be that a "SetErrorMessage" statement is missing in
the TCustomFtpCli.DoPutAppendAsync procedure. In my opinion the
exception handler code there should look like this:
except
on E:Exception do begin
FLastResponse := 'Unable to open local file ' +
FLocalFileName + ': ' +
E.Message; { V2.101}
FStatusCode := 426;
SetErrorMessage; // this line is missing in original ICS-V5
TriggerDisplay('! ' + FErrorMessage);
FDataSocket.Close;
FRequestResult := FStatusCode;
TriggerRequestDone(FRequestResult);
Exit;
end;
end;
What is your opinion? Needs this to fixed? I'm using the latest ICS V5.
/Tobias
--
NOA Audio Solutions Vertriebsges.m.b.H. Tel: +43-1-5452700
Johannagasse 42/4 Fax: +43-1-545270014
A - 1050 Wien Www: http://www.noa-audio.com
--
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
