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.

markieren

Delphi-Quellcode:

			if Image1.Picture = nil then //funzt nich

  {...}

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

  {...}

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

TImage. Dateipfad auslesen und auf "bildvorhanden"

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a

Forumregeln

Karstadt Registriert seit: 8. Nov 2005 788 Beiträge	#1 TImage. Dateipfad auslesen und auf "bildvorhanden" 5. Mai 2006, 12:09 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
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 12:18 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 Klaus
	Zitat

Karstadt Registriert seit: 8. Nov 2005 788 Beiträge	#4 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 12:49 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?
	Zitat

himitsu Online Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.167 Beiträge Delphi 12 Athens	#5 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 12:52 Ja. Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

Karstadt Registriert seit: 8. Nov 2005 788 Beiträge	#6 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 14:02 Hallo. Wenn ich das abfrage If img_bild.Picture.Graphic.empty Then Showmessage('Kein Bild) bekomme ich eine Zugrifsverletzung. Habt ihr das auch?
	Zitat

Martin K Registriert seit: 20. Okt 2005 919 Beiträge Turbo Delphi für Win32	#7 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 14:21 Es müsste doch auch so gehen: if Image1.Picture <> nil then ... Oder liege ich da falsch? Mit den Menschen ist es wie mit Computern - es gibt Nullen und Einsen.
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#8 Re: TImage. Dateipfad auslesen und auf "bildvorhanden&a 5. Mai 2006, 14:22 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] Klaus
	Zitat