JPG in TBlobField

[Union]

Zitat von Poolspieler:

Hallo,
ich möchte in einem Blobfeld meiner Accessdatenbankverbindung (Jet 4.0 OLE) Screenshots speichern.

Code:

  DataModule1.kunde.Edit;
  DataModule1.kundeWegbeschreibung.Assign(bild.Picture); // bild ist ein TImage
  DataModule1.kunde.Post;

Das Problem bei obigem Code ist allerdings, dass "bild" anscheinend im Bitmapformat vorliegt - dass heißt, für jeden Datensatz, der ein Bild enthält, werden knapp 1MB verbraten!!! Da ich mit bis zu 100 000 Datensätzen (und mehr) rechne, ist das nicht wirklich befriedigend...

Kann mir jemand sagen, wie ich in einem TBlobfeld eine Grafik im JPEG-Format speichern kann?

Gruß und danke

Poolspieler

Verwende TJpegImage:

Delphi-Quellcode:

jp := TJpegImage.create;
jp.Assign(bild.Picture);