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 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.