Überprüfen ob Bild geladen wurde

[BlueLiquidCell]

Hey Guys

Möchte überprüfen ob ein Bild komplett geladen wurde.

Lade das Bild mit "Picture.LoadfromFile".
Bild isn jpeg falls das wichtig is ;-)

Gibts da ne einfache Möglichkeit?
Hab leider nix gefunden :-(

Danke schonma

[Luckie]

Die JPEG Komponente sollte ein entsprechendes Ereignis haben.

[s.h.a.r.k]

Warum ein Ereignis? Nach dem LoadFromFile ist das Bild doch komplett geladen, oder nicht? :gruebel: Wird unter D2 asynchron geladen?

[Luckie]

Ein JPEG kann auch progressiv komprimiert sein, dann wird es nach und nach geladen. Allerdings sollte die Methode erst nach dem vollständigen laden zurückkehren. Also ist es geladen, wenn die nächste Befehlszeile ausgeführt wird.

[s.h.a.r.k]

Das meinte ich ja :thumb: Aber vielleicht gibts ja auch eine Komponente die das eben asynchron macht. Dann sollte es wahrlich ein Ergebnis geben. Hatte gerade nur an die Standardkomponente TImage (bzw. TPicture) gedacht.

[BlueLiquidCell]

Hey

Also leider ist es nicht so das fertig geladen is wenn die nächste Zeile abgearbeitet ist.
Das macht einfach weiter.

Ein Ereignis hab ich leider nicht gefunden :-(

[Luckie]

Was verwendest du denn für eine Komponente? Und was sagt die Dokumentation dazu?

[wicht]

Das kann nicht sein. Sobald LoadFromFile() zuende ist, gab es entweder eine Exception, oder das Bild ist geladen worden.
Pack mal hinter das Laden ein

Delphi-Quellcode:

Application.ProcessMessages;

und danach erst den folgenden Code... Ist mal so ins blaue geraten.

[BlueLiquidCell]

Hey
Verwende ein "TImage"
In der Docu find ich irgendwie nix :-( Such ich an der falschen Stelle?

"Application.ProcessMessages" hat leider nicht geholfen.

[Luckie]

TImage kann JPEGS laden? Welche Delphi Version hast du?

[Satty67]

TImage.Picture kann ja alles laden, was als Grafik registriert wurde.

Lädt scheinbar auch asynchron, folgender Code zeigt "Load" vor der ersten Prozent-Angabe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute() then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  Memo1.Lines.Add('Load')
end;

procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  Memo1.Lines.Add(IntToStr(percentDone))
end;

Womit dann auch klar sein sollte, womit man das komplette Laden prüfen kann.

OnProgress scheint aber nicht bei allen Grafiktypen aufgerufen zu werden. Auch je nach Typ anders (GIF fast schon mehrmals pro 1%, JPG bei 0% und bei 100%, BMP scheinbar überhaupt nicht, nicht einmal bei 100% :gruebel: )

[BlueLiquidCell]

Hey

Jip kann es wenn man die uses "jpeg" benutzt gehts.
Hab Delphi 2005.

Christoph

[Bummi]

Laut Onlinehilfe:

Zitat:

Ist IncrementalDisplay false , tritt OnProgress zwar ein, aber die Grafik wird erst aktualisiert, wenn das gesamte Grafik geladen wurde.

[BlueLiquidCell]

Hey

Thanks Satty67, OnProgress funktioniert!

Allerdings ist da nochn kleines Problem. Anscheinend wird es nicht immer aufgerufen, weis nicht genau woran es liegt. Ne Idee?

Incremental Display hab ich ma auf true gemacht, ändert aber an dem anderen Problem leider nichts :-(

[BlueLiquidCell]

Ok habs rausgekriegt.
Problem war das das Image invisible war. Da wird die OnProgress wohl nicht aufgerufen.

Kann man das irgendie machen das dass trotzdem geht?
Würds gerne auf invisible haben bis es fertig geladen ist.

THX

[BlueLiquidCell]

Keiner ne idee??

[DeddyH]

Kannst Du evtl. ein anderes Control drüberlegen und das Image nach dem Laden mit BringToFront nach vorne holen?

[BlueLiquidCell]

Hey
Hab das mit nem anderen Control mal versucht aber irgendwie geht es nicht.
Jedesmal wenn die beiden nebeneinander liegen gehts. Aber sobald sie übereinander liegen gehts nicht mehr :-(
Nen Tipp?

[BlueLiquidCell]

Keiner noch ne andere Idee? :-(