ProgressBar (out ot range error)

[topcat01]

I am using the default prgress bar that comes with delphi 6, which works fine when processing files less than 2gb in size. When i try to process files greater than 2gb i get the error 'TProgressBar property out of range'. I think the problem is this line 'frmMain.ProgressBar1.Max := FileSize(F);' ???

TIA

 

[BobbaFet]

I believe filesize doesnt work on files over 2GB, but I cant check that for you right now as I am at home, when I get back at work I'll look into it for you.

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352

 

[BobbaFet]

Check out this thread, near the bottom there is a function written by Towerbase which will handle filesizes of over 2GB.

http://www.tek-tips.com/viewthread.cfm?qid=947176

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352

 

[Miker75]

Maybe a cleaner way of doing the progress bar as well would be to make the max of the progress bar to be 100 and get the progress like this

progressbar1.count := <position in file> / filesize(f) * 100

That would give you the percentage out of 100 of the position in the file that you are at. You would also have to round the number to the nearest whole number (as you can't use a floating point number with the progress bar)

 

[Nordlund]

Max is an integer.

Integer -2147483648..2147483647

//Nordlund