Bild aus Datenbank in TImage Komponente

[Metallicwar]

Hallo,
und erneut habe ich eine mit Sicherheit leicht zu beantwortende Frage:

Meine Query ließt bestimmte Daten aus DB aus u.a. auch das Bild.

SQL-Code:

SELECT 
p.Name, 
p.Vorname, 
abt.Bezeichnung,
 pz.Austritt,
 F.Bezeichnung, 
F.Zusatz,
 F.Strasse,
 F.Plz, F.Ort, p.ID,
 bd.Bild
From Personal p
Left Outer Join Personalzusatz pz on p.ID = pz.Id_Personal
Left Outer Join Abteilungen abt on p.ID_Abteilungen = abt.Id
Left Outer Join Firma F on p.ID_Firma = F.Id
Left Outer Join Bilddatenbank bd on bd.ID_Personal = p.id
Order By P.name

Ich habe ein Frame, auf dem Labels hinterlegt sind (lName, lVorname, lOrt, etc..) Diese habe ich bereits mit den Daten aus der Datenbank gefüllt und zwar folgendermaßen:
        Frames.lNachname.Caption := qryGetDAtaName.Value; Meine Frage:Wie lade ich das Bild aus der Datenbank in meine Image Komponente????


so funktionierst ja nicht: Frames.Image1.Picture := qryGetDAtaBild.Value --> Inkompatible Typen Picture und Bytes

[mkinzler]

Als Stream aus dem Feld in das TImage

[Metallicwar]

Delphi-Quellcode:

var
Bilder: TStream;
....
qryGetDAtaBild.SaveToStream(Bilder);
Frames.Image1.Picture := qryGetDAtaBild.LoadFromStream(Bilder);
....

Inkompatible Typen: TStream und procedure....

[DeddyH]

Frames.Image1.Picture.LoadFromStream(Bilder);

[Metallicwar]

Auf protected Symbol TPicture-LoadFromStream kann nicht zugegriffen werden.



P.S. Ihr seit echt spitze, so schnell hab ich noch nirgendwo Hilfe bekommen und dazu noch super Antworten. Klasse

[DeddyH]

Dann versuch es mal so:
Frames.Image1.Picture.Graphic.LoadFromStream(Bilder); Wenn das auch nicht geht, in eine entsprechende temporäre Grafik-Variable laden und die dann zuweisen.

[Metallicwar]

mhhm.
Code lässt sich compilieren und ausführen.
Nachdem ich den Button zum Frames erstellen drücke, erhalte ich eine Zugriffsverletzung.

Exception-Klasse EAccessViolaten mit Meldung Zugriffsverletzung bei Adresse......

nochmal eine Zusatzinfo, vll hilft das:
Datenfeld Bild ist vom Typ "BLOB"

[mkinzler]

Versuch es mal über einen MemoryStream.

[himitsu]

Eventuell das Bild vorher noch in ein TBitmap, TJPegImage oder was auch immer paßt, reinladen und dann ans TImage.Picture übergeben.

http://www.delphipraxis.net/154190-b...einbinden.html

[DeddyH]

Zitat von DeddyH:

Wenn das auch nicht geht, in eine entsprechende temporäre Grafik-Variable laden und die dann zuweisen.

Zitat von himitsu:

Eventuell das Bild vorher noch in ein TBitmap, TJPegImage oder was auch immer paßt, reinladen und dann ans TImage.Picture übergeben.