Application update

[johan]

Hi,

I'm writing a text editor in Delphi, and I want the users to be able to download updates from internet from within my application. I know how to download a file from the internet, but I don't know how to display the percentage of the file that has been downloaded. I also want to display the progress of the download, but when I start downloading the file, the program freezes until the download is complete. I hope someone understands what I mean.

Please help me.

[Chef]

Put the download-procedure in a thread. Do you know how to use threads?

Regards,
Jörg

[johan]

No. I don't know how to use threads in Delphi (I've used threads in Java, so I know what it is). Could you write an exampel on how to use threads in Delphi?

[Chef]

A great example (I could hardly write a better one) is the thread demo given with your Delphi. It's in the subdirectory /demos/threads.

Regards,
Jörg

[johan]

Thanks. But I got it to work with the following code:
[a href="http://www.swissdelphicenter.ch/en/showcode.php?id=1095" target="_blank"]http://www.swissdelphicenter.ch/en/showcod...ode.php?id=1095[/a]

It downloads a file from a FTP server and displays the progress in a TProgressBar and a TLabel

[Mackhack]

Thanks. But I got it to work with the following code:
[a href="http://www.swissdelphicenter.ch/en/showcode.php?id=1095" target="_blank"]http://www.swissdelphicenter.ch/en/showcod...ode.php?id=1095[/a]

It downloads a file from a FTP server and displays the progress in a TProgressBar and a TLabel

Does anybody know why the ProgressBar and the Label does not display the correct informations if the file has a size of about 100 MB!!!

The ProgressBar starts more than 1 time from the startpoint and the per cent info starts from the startpoint more than 1 time, too!!!

Thx

[Tokter]

Probably your position goes hiher than the max value of the Progressbar...

[BenBE]

The problem is another: The Value of Position * 100 / Size get at the multiplication to high
change the brakets: Position / (Size / 100)

Its the same, but reduces the maximum of the expression (the first gets over the upper range of an integer at about 21.4 MBs (21.4 * 1024 * 1024 * 100 = 2,147,000,000 ...)

[Mackhack]

Do you mean this line?

Code:

ProgressBar.Position := Round(dwBytesRead * 100 / fileSize);

Position / (Size / 100)

But why 2 times divide?

[Mackhack]

Hi @ all:

It works...

Code:

ProgressBar.Position := Round(dwBytesRead * (100 / filesize));

Thank you!!!