JPG in TBlobField

[Union]

Zitat von Poolspieler:

fieldtype ist fkData
und
blobtype ist ftBlob

mit einem Memorystream hab ich es auch schon mal probiert, aber auch da hat es von mysteriösen Exceptions nur so gehagelt...

Als es mit Bitmap funktioniert hab ich mich erstmal gefreut (bis ich die Dateigröße entdeckte...)


--> Gibt es irgendwo vielleicht ein brauchbares Beispiel zum Memorystream?

Gruß

Poolspieler

So geht's:

Delphi-Quellcode:

      bild.Canvas.CopyRect(tr, Canvas, tr);
      jpg.Assign(bild.Picture.Graphic);
      jpg.Compress;

      jpg.SaveToStream(ms);

      tblPicture.Edit;
      tblPictureGrafik.LoadFromStream(ms);
      // Nur als Nachweis, dass im jpg-Objekt auch wirklich was gespeichert ist
      jpg.SaveToFile('c:\temp\test.jpg');
      tblPicture.Post;