TImage.Picture size på disk

hvis du tænker på at du gemmer det som jpeg og det så skulle fylde mindre, skal du huske at det er ikke nok bare at give den jpg exension, komprimeringen skal du gøre.

uses jpeg;

var
jpeg:tjpegimage;
begin
jpeg := tjpegimage.create;
jpeg.assign(image1.bitmap);
jpeg.compress;
jpeg.savetofile('C:\test.jpg');
jpeg.free;
end;

ikke testet men skulle give dig en ide.

Takker det var lige det jeg skulle bruge.
Det skal dog være : jpeg.assign(image1.piture.bitmap);

Kan du også svare på hvordan jeg flytter det over i et Table.Field af typen Graphic.

em mener godtnok jeg har svaret på det før på exp.
Du skal jo gemme det som et oleobject mener jeg, men vil lige finde noget kode til dig engang idag.