TImage. Dateipfad auslesen und auf "bildvorhanden" Prüfen?

[Karstadt]

hallo.

Mit Loadfromfile wird ein Bild in diese Komponente geladen.

Wie kann ich über diese TImage folgedes erfahren:

a) Hat diese Komponente ein Bild
b) Pfad des Bildes

Dankeschön

[Klaus01]

TImage.Picture.Bitmap.empty
TImage.Picture.Graphic.empty
TImage.Picture.Icon.empty


sollten dazu da sein zu überprüfen on eine Grafik oder Bitmap oder Icon dem Imageobject zugewiesen wurden.

Grüße
Klaus

[himitsu]

Den Pfad kannst du nicht erfahren, da er nirgends gespeichert wird und auch die Datei, woraus LoadFromFile die Daten geläden hat, direkt nach dem Laden wieder geschlossen wird.

Also entweder du speichst irgendwo beim Aufruf von LoadFromFile den Dateinamen ab,

oder du durchsuchst einfach alle Dateien auf allen verfügbaren Datenträgern und vergleichst die gefundenen Bilder mit dem enthaltenem Bild.
Ich würde also zu ersterem Vorschlag tendieren

[Karstadt]

Wenn ich definitiv weis das es sich nur um JPG bilder handelt, dann kann ich doch für die Überprüfung einfach die Function TImage.Picture.Graphic.empty nehmen. Richtig?

[himitsu]

Ja.

[Karstadt]

Hallo. Wenn ich das abfrage

If img_bild.Picture.Graphic.empty Then Showmessage('Kein Bild) bekomme ich eine Zugrifsverletzung. Habt ihr das auch?

[Martin K]

Es müsste doch auch so gehen:
if Image1.Picture <> nil then ... Oder liege ich da falsch?

[Klaus01]

bekomme ich auch, aber so sollte es auch gehen:

if Image1.Picture.Graphic = nil then showMessage('kein Bild'); Grüße
Klaus

[edit] .. da liegt der Martin richtig [/edit]

[Martin K]

Zitat von Klaus01:

[edit] .. da liegt der Martin richtig [/edit]

Hm... Leider nich!

Hab's mal getestet, geht irgendwie doch nicht.

Aber der Code von Klaus01 funzt.

Delphi-Quellcode:

if Image1.Picture = nil then //funzt nich
  {...}

if Image1.Picture.Graphic = nil then //funzt!!!
  {...}