Prüfen ob Image leer ?

[needatip]

Ich habe eine TImage Komponente auf einem Formular.
Wie kann ich nun beim Initialisieren des Formulars prüfen ob dem TImage schon eine Grafik zugeordnet ist ?

etwa so ... (if TImage1.Picture.Bitmap = nil then LoadFromFile ...)

funktioniert so aber nicht !

[lizardking]

Zitat:

Zitat von needatip

funktioniert so aber nicht !

Kann ja auch nicht ;) Die TImage-Komponente wird ja initialisiert und somit auch ein Bitmap instanziiert. Du kannst aber einfach die Breite bzw. Hoehe des Bitmaps abfragen. Duerfte beides 0 sein, wenn noch kein Bild geladen wurde.

[trifid]

TBitmap.Empty

[lizardking]

Zitat:

Zitat von trifid

TBitmap.Empty

*huestl*

Nun ja, waere vielleicht auch 'ne Loesung ;)

[needatip]

Ok, hab ich so eingebaut.

Ich lade im DataChange-Ereignis einer DataSource die Jpeg-Bilder in das Image.

Delphi-Quellcode:

if FileExists(Bild) then Image1.Picture.LoadFromFile(BILD)...

Ich bekomme jetzt aber einen Laufzeitfehler wenn ich folgendes im Form.FormActivate Ereignis schreibe:

Delphi-Quellcode:

if Image1.Picture.Graphic.Empty then...

Mit

Delphi-Quellcode:

if Image1.Picture.Bitmap.Empty then...

hat es gar nicht funktioniert.
Muss ich hier noch was initalisieren ?

[Alexander]

Ist vielleicht das Image noch gar nicht erzeugt worden (z.b. direkt nach dem Start)? Dann kommt es zu einer Zugriffsverletzung.

[needatip]

Ich habe das bereits von der VCL in mein Formular eingefügt.

[Alexander]

Wann genau kommt denn die Exception?

[Der_Unwissende]

Hi,

was für einen Laufzeitfehler bekommst du denn überhaupt? Eine AccessViolation oder was anderes? Was genau wird denn da gesagt. Ansonsten hat Alexander ja schon gefragt wo genau die kommt, mal mit Breakpoints die Stelle gesucht?

Gruß Der Unwissende

[needatip]

Ich bekomme eine AccessViolation.
Habe Breakpoint vor dem Befehl

Delphi-Quellcode:

if Image1.Picture.Graphic.Empty then...

gesetzt.
Beim Einzelschritt auf diesem Befehl tritt dann die o.g. Zugriffsverletzung auf.
Diese erhalte ich aber eben nur bei leerem Image; d.h. wenn ich das Formular öffne und dem Image ist noch nichts zugewiesen.
Ich bekomme aber keine Fehlermeldung, wenn bereits eine Grafik im Image vorhanden ist.