Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: Bild über TImage aus der Datenbank holen?
7. Okt 2007, 14:38
Das ist doch viel einfacher.
Delphi-Quellcode:
//Auslesen des Pfades
query.SQL.Text := ' SELECT Pfad FROM Tabelle WHERE Bedingung';
query.Open;
Pfad := Query.FieldByName(' Pfad').AsString;
//Versuchen, die Grafik ins Image zu laden
try
aJPG := TJPEGImage.Create;
try
aJPG.LoadFromFile(Pfad);
Image1.Picture.Graphic := aJPG;
except
ShowMessage(' Fehler beim Laden der Grafik');
end;
finally
aJPG.Free;
end;
Getippt und nicht getestet.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|