AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi OnProgress..., Hilfe bitte... [Erledigt, Danke]

OnProgress..., Hilfe bitte... [Erledigt, Danke]

Ein Thema von turboPASCAL · begonnen am 18. Jul 2005 · letzter Beitrag vom 18. Jul 2005
Antwort Antwort
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#1

OnProgress..., Hilfe bitte... [Erledigt, Danke]

  Alt 18. Jul 2005, 21:25


Hi, kann mir bitte jemand helfen, kein kleines Beispiel (Pseudocode reicht event.) zu Image.OnProgress ?

Ich fummele schon eine kleine Weile damit herum, bekomme es aber nicht hin.

Wie kann man mit OnProgress erreichen, das man eine Progressbar beim Bild laden (bzw. verarbeiten) mit laufen lassen kann.


Ps.: Die Suche kenne ich Hier im Forum suchenOnProgress und habe sie benutzt.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#2

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 21:41
Das ist jetzt keine Lösung. Aber guck Dir mal TGauge an !
Gruß
Hansa
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#3

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 22:19
Hallo Matti,

vielleicht hast du gar nichts falsch gemacht. Da das OnProgress Ereignis erst bei längeren Ladevorgängen ausgelöst werden soll, fällt es mir schwer ein passendes Bild zu finden. Selbst ein 13.4 MB großes Bitmap wird auf meiner Maschine in null-komma-nichts geladen - wenig Gelegenheit für einen Progressbar...

Grüße vom marabu
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 22:20
Da der Thread erstellen nicht in der lage ist eine ordentliche Fehlerbeschreibun gzu liefrn, tue ich es mal für ohn:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.OnProgress := Image1Progress;
  Image1.Picture.Bitmap.LoadFromFile('d:\test.bmp');
end;

procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  ShowMessage('');
  case Stage of
    psStarting: ProgressBar1.Position := 0;
    psRunning:
      begin
        Progressbar1.Position := PercentDone;
      end;
    psEnding: ProgressBar1.Position := 0;
  end;
end;
Man sollte meinen, dass es so funktioniert. Leider wird der EventHandler gar nicht aufgerufen. Auch bei einem 140 MB Bitmap nicht.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#5

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 22:28
@Hansa, hilft nicht so richtig, dennoch thx.

Hi, marabu ja das laden ist eigentlich nicht so das Problem, eher das Umwandeln von 8 Bit zu 32 Bit. Das braucht bei mir ne' kleine Weile und das wollte ich Abfangen.

@Luckie Thx, werde mal gucken ob ich damit klarkomme. (ich denke schon)
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#6

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 22:29
Laut Hilfe wird OnProgress auch nur ausgelöst wenn es sich um große und komprimierte Bilder handelt.
Anhand des quelltextes findet man heraus das TPicture welches sich in TImage befindet auch ein OnProgress hat welches letztendlich nach außen gereicht wird (OnProgress von TImage wird nur ausgelöst wenn OnProgress von TPicture ausgelöst wird). Bei TPicture steht dann dann bei OnProgress in der Hilfe das es nur ausgelöst wird wenn der entsprechende Bildtyp das auslöst. So steht zum Beispiel in der Hilfe das zum Beispiel JPEG-Images das OnProgress auslösen. Also einfach mal die Hilfe zu TPicture->OnProgress anschauen.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#7

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 23:38
beim ersten mal überlesen:
Zitat von Luckie:
Da der Threadersteller nicht in der Lage ist eine ordentliche Fehlerbeschreibung zu liefern, tue ich es mal für ihn
Na ja, ein Fehler gab es ja nicht, sonst hätte ich den schon beschrieben.
Die Sache mit dem:Image1.OnProgress := Image1Progress; hatte ich nicht Begriffen.

Funzt jetzt (manchmal, wenn es mal wieder länger dauert), solange sich das nicht Programm ohne Fehlermeldung oder einem Mux verabschiedet. *bluppundweg*

Das bekomme ich aber noch heraus.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 23:44
Zitat von turboPASCAL:
Na ja, ein Fehler gab es ja nicht, sonst hätte ich den schon beschrieben.
Auch das kann schon mal ein Hinweis sein.
Zitat:
Die Sache mit dem:Image1.OnProgress := Image1Progress; hatte ich nicht Begriffen.
Das habe ich nur gemacht, um zu zeigen, dass ich den Event zu gewiesen haben
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#9

Re: OnProgress..., Hilfe bitte...

  Alt 18. Jul 2005, 23:57
@Luckie, genau das war das was ich nicht wusste und was man nicht weis kann man schlecht beschreiben

(Es ist ja jetzt auch schon nach 'nem Bierchen, da können kleine Fehler vorkommen )
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz