Progressbar til "UrlDownloadToFile" funksjonen

[Schnaffen]

Er det mulig å få vist hvor mye av filen som er lastet ned på en ProgressBar ut i fra denne koden:

function DownloadFile(Kilde, Maal: string): Boolean;

begin

 try

   Result :=  UrlDownloadToFile(nil, PChar(Kilde), PChar(Maal), 0, nil) = 0;

 except

   Result := False;

 end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

 if DownloadFile  (edit1.text, edit2.text) then

  ShowMessage('Nedlasting fullført')

 else

  ShowMessage('Nedlastingen ble ikke fullført');

end;

 

Er det også mulig å legge til en cancel knapp og hindre at programmet fryser?