Image.Picture.SaveToStream in ein Datenbankfeld

**NoGAD**

Huhu.

Mit folgendem Code versuche ich ein Stream aus einem TImage in ein Graphic - Feld einer Datenbank zu schreiben. Es scjeint, als wäre der Stream leer, da beim Lesen des Feldes immer eine Fehlermeldung erzeugt wird.

Code für das Schreiben:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  BlobStream: TStream;

  PictureStream: TStream;

begin

    PictureStream := TMemoryStream.Create;

    Image1.Picture.SaveToStream(PictureStream);

    BlobStream :Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmWrite);

    BlobStream.Write(PictureStream, PictureStream.SIZE);

    BlobStream.Free;

    PictureStream.Free;

end;

Code für das Auslesen:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  JpegImage: TJPEGImage;

  BlobStream: TStream;

begin

  BlobStream := Table1.CreateBlobStream(Table1.FieldByName('Thumbnail'), bmRead);

  JpegImage := TJPEGImage.Create;

  JpegImage.LoadFromStream(BlobStream);  // <--- Hier wird eine Exception ausgelöst, BlobStrem ist () (leer?)

  Image1.Picture.Assign(JpegImage);

  Image1.Visible := True;

  JpegImage.Free;

  BlobStream.Free;

end;

Ist der Fehler beim Schreiben oder beim Lesen zu suchen?

LG Mathias

Image.Picture.SaveToStream in ein Datenbankfeld

Image.Picture.SaveToStream in ein Datenbankfeld

Forumregeln