Zitat von
Lun:
Zum ersten Problem :
Die Dateigröße
Das muss geändert werden damit GB amgezeigt werden und nicht Terrabyte:
Delphi-Quellcode:
if (1048576 <= Size) and (Size < 1073741824) then
begin
Result := floattostr((round((Size/1048576)*100))/100)+' MB';
exit;
end;
if Size > 1073741824 then
begin
Result := floattostr((round((Size/1073741824)*100))/100)+' GB';
end;
Das habe ich erfolgreich geändert.
Zitat von
Lun:
ich lade die DAtei wieder im ganzen runter mit idhttp.get(link,stream);
und benutze da zu die drei Ereignisse
Work, WorkBegin,WorkEnd
Ich habe das dann so wie in diesem Beispiel gelöst:
Beispiel
In WorBegin
Delphi-Quellcode:
if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
else ProgressBar1.Max := DateigrößeBytes;
Woher kennt er die Variable 'DateigrößeBytes' ?
Werden die alten Ereignisse durch deine neuen ersetzt oder ergänzt? Ersetzt, oder?
--
Gruß