Some old FTP servers do not support the SIZE command as it is not mandatory
in RFC959. Yuo will need to use a parser and parse LS response.
----- Original Message -----
From: "Michael Fritz" <[EMAIL PROTECTED]>
Sent: Thursday, February 15, 2007 12:20 PM
Subject: [twsocket] TFtpClient retrieve file size for progress bar
> I'm using the BasFtp1 demo of ICS to test downloading a file from an FTP
> server. I changed this demo (at least a tried to) to retrieve the file
> before downloading to feed a progress bar.
> I've changed the RequestDone event the following way:
> FtpClient1.HostFileName := FFileName;
> FtpClient1.LocalFileName := FLocalFileName;
> FtpClient1.SizeAsync; << here
> // FtpClient1.GetAsync; << here
> ftpSizeAsync, ftpFileSizeAsync : << new
> ProgressBar1.Max := FtpClient1.SizeResult;
> ftpGetAsync: begin
> FSuccess := (FtpClient1.StatusCode = 226);
> When SizeAsync is executed the status/error code I get is 550, access
> denied. I assume that authentication was correct, since all previous
> messages told me so.
> So what's wrong here? Or better how would you determine the file size
> before downloading?
> "Feel free" - 5 GB Mailbox, 50 FreeSMS/Monat ...
> Jetzt GMX ProMail testen: www.gmx.net/de/go/mailfooter/promail-out
> 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