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.

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Doppelklick im OI auf das entsprechende Ereignis.

was ist das OI? Objektinspektor?

[mkinzler]

Fahr mal mit der Maus drüber? :zwinker:

[Deltachaos]

Zitat:

Zitat von mkinzler

Fahr mal mit der Maus drüber? :zwinker:

Ich glaub ich bin von selbst datuf gekommen aber
Ich weis net wo ich da des Ereignis finde

Ok ich hab das ereigniss im OI gefunden. was mus ich da reinscheiben?

Aha Erlebnis. hatt sich erledigt

[mkinzler]

Auf Ereignisse wechseln und dann bei onWork

einfach Doppelklick, dann legt die IDE die Methode an und verbindet diese mit dem Event.

[Die Muhkuh]

Den Code? :roll:

[edit] Zu Langsam, Markus, das hat er schon :tongue: [/edit]

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Den Code? :roll:

[edit] Zu Langsam, Markus, das hat er schon :tongue: [/edit]

ok ich hab die gantze zeit auf die Graue Stelle geklikt

jetzt hab ich folgendes Problem:

Delphi-Quellcode:

[Fehler] Unit1.pas(46): Deklaration von 'IdHTTP1Work' unterscheidet sich von vorheriger Deklaration

Delphi-Quellcode:

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

[Die Muhkuh]

Jetzt musst halt mal schauen, was sich unterscheid. Einfach den Code reinposten und wir sollen mal machen, ist nicht...

Und was für eine graue Stelle?

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Jetzt musst halt mal schauen, was sich unterscheid. Einfach den Code reinposten und wir sollen mal machen, ist nicht...

Und was für eine graue Stelle?

Diese graue stelle:

http://www.delphipraxis.net/download.php?id=32433

[Die Muhkuh]

Hast Du die komplette Prozedur drüber kopiert?

Ich kenne jetzt Indy 10 nicht, vielleicht hat sich die Definition geändert.

Übernimm mal nur den Code zwischen begin und end.

[mkinzler]

Und wie ist die Methode im Interface deklariert?

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Hast Du die komplette Prozedur drüber kopiert?

Ich kenne jetzt Indy 10 nicht, vielleicht hat sich die Definition geändert.

Übernimm mal nur den Code zwischen begin und end.

ich benutz Indy 9. und ich hab die drüber kopiert.

und was soll ich etz machen hää?

[Deltachaos]

Zitat:

Zitat von mkinzler

Und wie ist die Methode im Interface deklariert?

Was ist das interface?

[Die Muhkuh]

Sicher, dass Du Indy 9 benutzt? Ich hab diese mit ganzen anderen Komponentensymbolen im Kopf.

Und der Code zwischen Begin und end ist:

Delphi-Quellcode:

Progress.Max:=AWorkCountMax;
Progress.Position := AWorkCount;

D.h. doppelklick auf die graue Stelle und dann den Code reinkopieren.

Danach empfehle ich Dir, Grundlagen-Tutorials durchzuarbeiten...

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Sicher, dass Du Indy 9 benutzt? Ich hab diese mit ganzen anderen Komponentensymbolen im Kopf.

Und der Code zwischen Begin und end ist:

Delphi-Quellcode:

Progress.Max:=AWorkCountMax;
Progress.Position := AWorkCount;

D.h. doppelklick auf die graue Stelle und dann den Code reinkopieren.

Danach empfehle ich Dir, Grundlagen-Tutorials durchzuarbeiten...

auf jedenfall hab ich indy 9 istaliert

wen ich auf die graue klicke passirt nischt wen ich auf die weise klicke dan komm ich zu der stelle an der der code steht.

[Die Muhkuh]

Och mensch... Muss man alles perfekt beschreiben?

Code rauslöschen -> Speichern, damit die Zuweisung entfernt wird. -> Doppelklick auf die Stelle und Code rein.

Arbeite lieber erst mal ein paar Grundlagen-Tutorials auf dsdt.info durch...

[Deltachaos]

Zitat:

Zitat von Die Muhkuh

Och mensch... Muss man alles perfekt beschreiben?

Code rauslöschen -> Speichern, damit die Zuweisung entfernt wird. -> Doppelklick auf die Stelle und Code rein.

Arbeite lieber erst mal ein paar Grundlagen-Tutorials auf dsdt.info durch...

Okay hab ich ja auch so gemacht gehabt.

[Fehler] Unit1.pas(46): Deklaration von 'IdHTTP1Work' unterscheidet sich von vorheriger Deklaration

Delphi-Quellcode:

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

kann das sein das AWorkCount: Integer nicht zu dehnen davor past?
baer durch ein ';' getrennt sind sie doch alle.