Bild aus Datenbank in TImage Komponente

[Metallicwar]

habe folgendes gemacht:
uses

Delphi-Quellcode:

... JPEG;

Delphi-Quellcode:

var
  Bild: TJpegImage;

......

Delphi-Quellcode:

Bild := TJpegImage.Create;
Bild...? wie gehts weiter?

[xZise]

Moin,
es müsste ungefähr so gehen:

Delphi-Quellcode:

Bild.LoadFromStream(...);
Image1.Picture.Assign(Bild);

MfG
Fabian

[DeddyH]

Und Bild anschließend wieder freigeben.

[isilive]

Zitat:

Bild := TJpegImage.Create;
Bild...? wie gehts weiter?

Ich bin zwar erst morgen wieder zuhause, aber wenn du's bis dann nicht hast, schreib mir eine PM!
Ich hab daheim eine Unit, die Jpgs aus Memory und Filestreams liest. Das JPG wird dann auch einem BMP und/oder einem TImage zugewiesen...
Sollte mit Assign und .loadfromstream ganz gut funktionieren... :coder:

[Metallicwar]

Moin Moin,
ich habs hinbekommen...
folgendermaßen:

Delphi-Quellcode:

var
sBlobFile : String;
.....
sBlobFile := 'c:\Test.jpg';

qryGetDAtaBild.SaveToFile(sBlobFile);

Frames.Image1.Picture.LoadFromFile(sBlobFile);

mfg

[Metallicwar]

aaah, habe noch einen Fehler:

Manche Mitarbeiter aus DB haben keine Bilder, dieses "nicht vorhandene Bild" versucht er ins TImage zu laden, daher entsteht warscheinlich der Fehler JPEP-Fehler #42 ist aufgetreten

Wie könnte ich diesen Fehler beheben?

Könnte ich evtl. abfragen, ob für den aktuellen Datensatz ein Bild vorhanden ist, wenn nicht soll er einfach ein weißes JPEG Bild was ich beispielsweise nach Programmstart unter C:\Leer.jpg speicher.

Oder kann man das besser hinbekommen?

[mkinzler]

Zitat:

Wie könnte ich diesen Fehler beheben?

Vorher überprüfen ob Feld NULL ist.

[Metallicwar]

Folgendes hab ich probiert:

Delphi-Quellcode:

        if qryGetDAtaBild <> nil then
          begin
          sBlobFile := 'c:\Test.jpg';
          qryGetDAtaBild.SaveToFile(sBlobFile);
          Frames.Image1.Picture.LoadFromFile(sBlobFile);
          DeleteFile('c:\Test.jpg');
          end
          else
            begin
              sBildLeer := 'C:\BildLeer.jpg';
              qryGetDAtaBild.SaveToFile(sBildLeer);
              Frames.Image1.Picture.LoadFromFile(sBildLeer);
            end;

Aber diese Fehlermeldung tritt weiterhin auf ...

[mkinzler]

Delphi-Quellcode:

if not qryGetDAtaBild.isNull

[Metallicwar]

mhhm, der Fehler tritt auch mit

Delphi-Quellcode:

.isNull

auf..