Hallo,
Ich habe folgendes Problem:
Immer wenn ich via Indy http ein Get mache freezt das Programm. Daher ja das OnWork.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
application.ProcessMessages;
Progressbar1.Position := AWorkCount;
Application.ProcessMessages;
if (GetTickCount - FTime) >= 1000 then
begin
label2.caption := Format('%.2f MB of %.2f MB with %.2f KB/s',
[AWorkCount/1048576,size/1048576,(AWorkCount - FBytes) / (GetTickCount - FTime)]);
FTime := GetTickCount;
FBytes := AWorkCount;
Application.ProcessMessages;
end;
end; |
Das geht wunderpar, jedoch habe ich ein Problem: Der intervall der aktualisierung ist zu klein, ich will weniger als 1 sekunde, vll sogar eine live anzeige, und außerdem reagiert das Programm überhaupt nichtmehr, ich habe einen Stop Button den ich nichtmal klicken kann.
MfG Ju
PS: Ich habe schon die ANtiFreeze Komponente eingebaut diese funktioiert leider nicht
