IdHTTP friert Programm ein - was tun?

[ManuMF]

Hallo,

ich habe ein Programm geschrieben, das per HTTP Dateien hochlädt. Ich habe es an meinem eigenen PC getestet, und da lief es auch perfekt. Wenn ich nun allerdings eine Adresse im Internet verwende, aktualisiert das Programm nur etwa alle 10 Sekunden (der Upload scheint aber normal zu laufen).

Im OnWork des IdHTTP aktualisiere ich den Status einer ProgressBar und führe ProcessMessages aus (sofern AWorkCount durch 100 teilbar ist, um nicht zu viel CPU zu fressen).

Wie kann ich es lösen, damit das Programm nicht einfriert? Es reagiert zwar noch, aber eben erst nach langer Zeit. Auch die Beschränkung im Onwork zu entfernen hat nichts gebracht.

Danke,
ManuMF

[mirage228]

Hi,

Versuch mal die Indy-Komponente IdAntiFreeze. Einfach auf die Form ziehen und es sollt gehen :)

mfG
mirage228

[ManuMF]

Habe ich jetzt probiert, aber keine Änderung :(

[MrKnogge]

Hast du es mal mit Application.ProcessMessages probiert ?

Andernfalls zeig mal bitte den genauen Code.

Gruß

[ManuMF]

Ja, siehe oben.

Zum Hochladen letztendlich nur

Delphi-Quellcode:

Antwort := IdHTTP.Post('Dateiname');

und das OnWork:

Delphi-Quellcode:

procedure TUploadForm.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
begin
  UDateiA_A := AWorkCount;
  UDateiG_A := UDateiA_A + UDateiG_X;

  If ((UDateiA_A Mod 100) = 0) then
  begin
    AStatusBar.position := Round(UDateiA_A / UDateiA_M * 100);
    GStatusBar.position := Round(UDateiG_A / UDateiG_M * 100);

    Caption := Format('Upload [%d%%]', [Round(UDateiA_A / UDateiA_M * 100)]);

    Application.ProcessMessages;
  end;
end;

(Die StatusBar und Variablen mit G sind für den Gesamtstatus, da mehrere hochgeladen werden können)

Ich habe auch schon ohne die Modulo-Beschränkung probiert, aber da ändert sich nichts (außer dass im localhost-Betrieb die CPU-Auslastung in die Höhe schnellt).

Abgesehen von den Statusbars wird auch der Rest (ein Timer, ein Button etc.) aufgehalten.

[ManuMF]

Hm, ich habe jetzt "auf Kilobyte umgestellt", teile also AWorkCount etc. erst durch 1024 und speichere es in einer neuen Variable, und jetzt klappt es, sogar ohne IdAntiFreeze.

(Ich habe aber noch nicht getestet, ob ohne die Modulo-Beschränkung der Upload über localhost wieder ausgebremst wird.)