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.

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

Reply via email to