Delphi 7 ile birlikte gelen bir metod verilen url den dosyayı indirip indirirken bize sunduğu bir olay metoduylada indirme durumunu izletebiliyor şöyle bir örnekle açıklamaya çalışalım,
Kullanacağımız nesne ExtActns içinde bulunan TDownloadURL bu nesneyi IDE de göremeyiz kendimiz yaratıp kullanacağız.
Öncelikle ExtActns unitini uses a eklemekle işe başlayalım,
Dosya indirme durumunu bir progressbar ile görsel olarak izlemek yada indirme aşamalarını takip etmek için bu TDownloadURL nesnesinin bir olayı olan OnDownloadProgress metodu için sunulan hazır metoduda private olarak declare etmeliyiz,
private bloğuna şu satırı ekleyelim,
Kod: Tümünü seç
procedure URL_OnDownloadProgress(Sender: TDownLoadURL;Progress, ProgressMax: Cardinal;StatusCode: TURLDownloadStatus;StatusText: String; var Cancel: Boolean) ;
Kod: Tümünü seç
procedure URL_OnDownloadProgress;
begin
ProgressBar1.Max:= ProgressMax;
ProgressBar1.Position:= Progress;
end;
bir buton ekleyelim ve OnClick olayına şunu yazalım ,
Kod: Tümünü seç
with TDownloadURL.Create(self) do
try
URL:='http://wwww.xxxx.com/xxx.zip'; //Indireceğimiz dosya URL si
FileName := 'c:\indirilendosyaadi.zip';//Nereye ve ne adda indireceğimizi belirtiyoruz
OnDownloadProgress := URL_OnDownloadProgress; // az önce oluşturduğumuz metodu , OnDownloadProgress olayı tetiklendiğinde çalışması için atamasını yaptık
ExecuteTarget(nil) ; //İndirme işlemini başlattık.
finally
Free;
end;
end;
İyi çalışmalar.
