Zitat von
Luckie:
Delphi-Quellcode:
ProgressBar1.Position := TotalBytesTransferred.QuadPart;
//...
ProgressBar1.Max := TotalFileSize.QuadPart;
Spätestens bei >2GB wirds problematisch. Und wenn die
VCL PBM_SETRANGE anstatt PBM_SETRANGE32 verwendet, wird's ab 64K merwürdig. Bei meinem Code oben ist zudem egal, ob die ProgressBar auf 0-100, 0-1000 oder 5000-10000 eingestellt wurde (bei ersterem hätte man gleich die Prozentzahl
)...