The code should be:
...
fDBMultiBitmap.OnGetSaveParams := DBMultiBitmapGetSaveParams;
...
procedure Tfmain.DBMultiBitmapGetSaveParams(Sender: TObject; const Filename: string; Params: TIOParams);
begin
// Use JPEG compression when blob is save to database (Assumes ImageFormat is ioTIFF)
Params.TIFF_Compression := ioTIFF_JPEG;
end;
Note: The OnGetSaveParams is only called if the image needs to be "saved" to the database. If it does not need to be converted it will just be added to the database without saving.
Nigel
Xequte Software
www.imageen.com