Bild aus Datenbank in TImage Komponente

[Metallicwar]

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          qryGetDAtaBild.SaveToFile(stBild);
          Frames.Image1.Picture.LoadFromFile(stBild);
        end;

ist eigentlich der selbe den du oben gepostet hast.

[DeddyH]

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          try
            qryGetDAtaBild.SaveToStream(stBild); //Stream statt File
            Frames.Image1.Picture.LoadFromStream(stBild); //s.o.
          finally
            stBild.Free;
          end;
        end;

[Metallicwar]

Frames.Image1.Picture.LoadFromStream(stBild); --> Auf protected Symbol T.Picture.LoadFromStream kann nicht zugegriffen werden.

...Picture. kennt keine procedure die LoadFromStream heißt.

[DeddyH]

Das hatten wir doch schon. Dann erstelle halt eine Grafik im passenden Format (TBitmap, TJPEGImage or whatever), lade dort über den Stream den BLOB-Inhalt rein und weise sie dann dem Image zu.

[edit] Angenommen, in den BLOBs stehen Bitmaps:

Delphi-Quellcode:

        if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          try
            qryGetDAtaBild.SaveToStream(stBild); 
            bmp := TBitmap.Create;
            try
              bmp.LoadFromStream(stBild); 
              Frames.Image1.Picture.Assign(bmp);
            finally
              bmp.Free;
            end;
          finally
            stBild.Free;
          end;
        end;

Ungetestet, deshalb ohne Gewähr. [/edit]

[Metallicwar]

*bin zu doof* :*(

Delphi-Quellcode:

stBild: TStream;
jpgBild: TJPEGImage;

Delphi-Quellcode:

 if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          jpgBild := TJPEGImage.Create;   // Grafik im JPEG Format erstellen
          try
            qryGetDAtaBild.SaveToStream(stBild);
            pngBild.SaveToStream(stBild); // BLOB Inhalt reinladen
            Frames.Image1.Picture := jpgBild; // Image zuweisen
          finally
            stBild.Free;
          end;
        end;

Inkompatible Typen Picture und JPEGImage

[DeddyH]

Siehe mein Edit (hat sich wohl mit Deinem Post überschnitten).

[Metallicwar]

also Programm läuft, nur werden keine Bilder angezeigt..
wenn ich anstatt TBitmap TJPEG nehm, meckert er mir wieder rum ... JPEG Fehler #42.....

mhhm....

[xZise]

Zitat von Metallicwar:

*bin zu doof* :*(

Delphi-Quellcode:

stBild: TStream;
jpgBild: TJPEGImage;

Delphi-Quellcode:

 if qryGetDAtaBild.BlobSize > 0 then
        begin
          stBild := TMemoryStream.Create;
          jpgBild := TJPEGImage.Create;   // Grafik im JPEG Format erstellen
          try
            qryGetDAtaBild.SaveToStream(stBild);
            pngBild.SaveToStream(stBild); // BLOB Inhalt reinladen
            Frames.Image1.Picture := jpgBild; // Image zuweisen
          finally
            stBild.Free;
          end;
        end;

Inkompatible Typen Picture und JPEGImage

Was macht diese Zeile (pngBild.SaveToStream(stBild); // BLOB Inhalt reinladen) genau? Sie speichert in den Stream, wo das Bild bereits drin ist, ein png Bild. Das soll vermutlich jpgBild und LoadFromStream. Außerdem nicht direkt zuweisen sondern nur über Assign danke (Ansonsten dürfte es glaub ich ein Speicherleck geben).

MfG
Fabian