FTP download da ne kadar süreyle bekleneceğini ayarlamak

[Salih]

Kod: Tümünü seç

Procedure DownloadMyFile (File2DownLoad:pchar; TargetFileName:pchar; Bekle1 : integer; Bekle2 : integer);
const
TheFtpPort=21;
EXISTS = False;
begin
intopen := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
intconn := internetconnect(intopen,'192.168.0.200',TheFtpPort,'ftpuser1','123456',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(bekle1);
durum := ftpgetfile(intconn,File2Download,targetfilename, EXISTS,GENERIC_READ,FTP_TRANSFER_TYPE_BINARY,0);
sleep(bekle2);

internetclosehandle(intconn);
internetclosehandle(intopen) ;
END;

Amacım, kullanıcıların internet üzerinden program güncellemesini yapmaları. Yukarıdaki kod bu işi gayet güzel yapıyor. Halledemediğim tek nokta kaldı. O da ftp download işleminin bitip bitmediğini anlamak. Çünkü, kullanıcıların bağlantı hızı çok değişken ve sleep ile bunu yapmak bana çok mantıklı gelmiyor.

Ftp bağlantısı sağlanıp indirme işlemi başlayınca "durum" hemen true oluyor

Kod: Tümünü seç

durum := ftpgetfile(intconn,File2Download,targetfilename....

Ama program bu cümlede hiç beklemeden bir sonraki satıra geçiyor. Bana ne önerirsiniz ?

Selamlar, teşekkürler...