Bild aus Datenbank in TImage Komponente

[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]

if not qryGetDAtaBild.isNull

[Metallicwar]

mhhm, der Fehler tritt auch mit .isNull auf..

[mkinzler]

Was steht denn in dem Feld drinnen, wenn kein Bild zugeordnet ist?

[Metallicwar]

also in meiner Tabelle, in der die Bilder hinterlegt sind, sind nur Bilder hinterlegt von denen auch ein Bild vorhanden ist. Wenn ein Mitarbeiter kein Bild hat steht auch nicht in der Tabelle.

ID|||||ID_Personal|||||Bild
1||||||||||1||||||||||BLOB)
2||||||||||2||||||||||BLOB)
3||||||||||4||||||||||BLOB)

[mkinzler]

Doch, es scheint etwas drinnen zu stehen. Lass dir mal den Inhalt eines entsprechenden Blobs anzeigen