Fehlerhafte Progress anzeige

[XXcD]

Hallo,
ich lade per Tidhttp Komponente Dateien aus dem Internet,
den Fortschritt lass ich mir mit einer Progressbar anzeigen.
Bei ca. 20 MB springt die Prgressbar einfach auf 0 und fängt erst bei den letzten MB von vorne an.
Ich nutze die TAdvProgressBar und folgenden code:

Delphi-Quellcode:

procedure TForm6.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
Progress.Position := AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
application.ProcessMessages;
end;

Vielleicht ist dieser fehler ja schon bekannt und mir kann einer weiterhelfen.

[MrKnogge]

Setzt du auch den Maxwert deiner Progressbar ?

Hast du es mal mit der TProgressbar probiert ?

[XXcD]

Ahh da kam mir jetzt die Idee, ich versuche es mal folgendermaßen:

Delphi-Quellcode:

procedure TForm6.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; 
  AWorkCount: Integer); 
begin 
Progress.Position := AWorkCount; 
application.ProcessMessages; 
end;



procedure TForm6.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
Progress.Max:=IdHTTP1.Response.ContentStream.Size;
end;

Da hätte ich auch direkt drauf kommn können.

[Die Muhkuh]

Hi,

Delphi-Quellcode:

procedure TForm6.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
Progress.Max:=AWorkCountMax;
end;

Kannst hier auch "AWorkCountMax" benutzen ;)

[XXcD]

Ich habe es gerade ausprobiert, funktioniert einwandfrei :) . Da habt ihr mich mal wieder auf den richtigen Weg gebracht, ihr seid echt die besten.

[Deltachaos]

Ich weis net ob ich zu blöd dafür bin aber ich wolt das ausprobiren und es kommt die meldung:

[Fehler] Unit1.pas(43): Undefinierter Bezeichner: 'IdHTTP1Work'

Delphi-Quellcode:

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
Progress.Max:=AWorkCountMax;
Progress.Position := AWorkCount; 
end;

[Die Muhkuh]

Hast Du eine Komponente vom Typ TIdHTTP auf der Form? Hast Du dieser das Event zugewiesen?

[mkinzler]

Hattest du nicht das selbe Problem in einem anderen Thread?

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Hast Du eine Komponente vom Typ TIdHTTP auf der Form? Hast Du dieser das Event zugewiesen?

Ok die komponente hab ich natürlisch drauf. wie weise ich ihr ein Event zu?

[Die Muhkuh]

Doppelklick im OI auf das entsprechende Ereignis.