> What is your opinion? Needs this to fixed? I'm using the latest ICS V5.
Yes, this fix is needed. Applyed to my local source. You'll see it in next upload. Thanks. btw: Sorry for late reply, I'm overloaded ! -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] http://www.overbyte.be ----- Original Message ----- From: "Tobias Rapp" <[EMAIL PROTECTED]> To: "ICS support mailing" <twsocket@elists.org> Sent: Wednesday, March 21, 2007 12:51 PM Subject: [twsocket] SetErrorMessage missing in FtpCli.pas > 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 -- 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
