[Delphi]Synchronizacja ProgressBar'a z funkcją URLDownloadToFile

[gates22 0]

Witam. Mam pewien kłopot. Szukałem na necie, jednak nic interesującego nie znalazłem, więc zwracam się do was. Otóż w moim programie (w Delphi) używam funkcji URLDownloadToFile (do pobrania pliku, a dokładniej do aktualizacji programu). I chciałbym, żeby status pobrania pliku, czy jak kto woli, procentowe pokazanie ile już zostało ściągnięte, był pokazany za pomocą progress bara. Tak jak w menedżerach pobierania itp. Tylko nie bardzo wiem, jak zsynchronizować pg i tą funkcję. Czy ktoś wie, jak mi pomóc? Z góry dziękuję

[januzi 24]

pobierz na poczatku wielkosc pliku do sciagniecia, przy pobieraniu jesli sie da, to podepnij sie pod miejsce odbioru danych, tam dopisujesz licznik := licznik + odebranych ; i na koniec zmieniasz polozenie paska w progressbarze

[VAMET 362]

Witam uprzejmie

 

Ja chętnie podepnę się pod temat.

 

function UpdateDownload(UpdateSource, UpdateDestination: String): Boolean;
begin
 try
   Result:=URLDownloadToFile(nil, PChar(UpdateSource), PChar(UpdateDestination), 0, nil) = 0;
 except
   Result:=false;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
 UpdateSource='http://adres_do_pliku/plik.zip';
 UpdateDestination='c:\plik.zip';
begin
 if UpdateDownload(UpdateSource, UpdateDestination) then
   begin
     ShowMessage('Plik pobrano pomyślnie');
   end
 else
   begin
     ShowMessage('Plik nie pobrano pomyślnie');
   end;
 Close;
end.

 

W jaki sposób odczytać wielkość pliku plik.zip i powiązać go z ProgressBar?

Pozdrawiam serdecznie.

 

Z poważaniem

[januzi 24]

http://www.nsftools.com/tips/RawFTP.htm#SIZE

to odpal

 

do lokalnego wystarczy odwołanie się do tsearchrec

[VAMET 362]

Witam uprzejmie

 

do lokalnego wystarczy odwołanie się do tsearchrec

 

Do lokalnego:

 

procedure TForm1.FormCreate(Sender: TObject);
var
 SearchResult: TSearchRec;
 FileSize: string;
begin
 if FindFirst('C:\plik.zip', faAnyFile, SearchResult) = 0 then
 begin
   FileSize:=IntToStr(SearchResult.Size);
   FindClose(SearchResult);
 end;
end;

 

Podczas pobierania pliku powiększa się on z każdą następną chwilą ...w jaki sposób czytać od nowa jego następną wartość FileSize?

Pozdrawiam serdecznie.

 

Z poważaniem

[BlackBishop 1]

3 sekundy w google?

[VAMET 362]

Witam uprzejmie

 

Dziękuję za linka, jednak użyłem innego kodu ...mimo wszystko mam teraz inny problem.

Mianowicie, nie mogę poradzić sobie z cachem, jak raz pobieram plik, to jest OK, ale drugi raz, to już bierze z cache, a nie z serwera.

...ale to już nie na moje możliwości po 22 dniach Delphi 7. Póki co zrobiłem obejście i każda nowa aktualizacja posiada swoją unikatową nazwę pliku.

Dziękuję za niezwykle cenne wskazówki.

Pozdrawiam serdecznie.

 

Z poważaniem