Hello,
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.
Advertising
Regards,
SZ
----- Original Message -----
From: "Michael Fritz" <[EMAIL PROTECTED]>
To: <twsocket@elists.org>
Sent: Thursday, February 15, 2007 12:20 PM
Subject: [twsocket] TFtpClient retrieve file size for progress bar
> Hi,
>
> 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
> size
> before downloading to feed a progress bar.
>
> I've changed the RequestDone event the following way:
> [..]
> ftpTypeSetAsync:
> begin
> FtpClient1.HostFileName := FFileName;
> FtpClient1.LocalFileName := FLocalFileName;
> FtpClient1.SizeAsync; << here
> // FtpClient1.GetAsync; << here
> end;
> ftpSizeAsync, ftpFileSizeAsync : << new
> begin
> ProgressBar1.Max := FtpClient1.SizeResult;
> FtpClient1.GetAsync;
> end;
> ftpGetAsync: begin
> FSuccess := (FtpClient1.StatusCode = 226);
> FtpClient1.QuitAsync;
> end;
>
> When SizeAsync is executed the status/error code I get is 550, access
> denied. I assume that authentication was correct, since all previous
> status
> messages told me so.
>
> So what's wrong here? Or better how would you determine the file size
> before downloading?
> --
> cu,
> Michael
>
> --
> "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