конвертировать BMP в JPG
function BMPtoJPG
(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
JpegImg: TJpegImage;
begin
Result:=False;
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(BMPpic) ;
JpegImg := TJpegImage.Create;
try
JpegImg.Assign(Bitmap) ;
JpegImg.SaveToFile(JPGpic) ;
Result:=True;
finally
JpegImg.Free
end;
finally
Bitmap.Free
end;
end;
Использование: BMPtoJPG ('mybitmap.bmp', 'myjpeg.jpg')
очень полезная ссылка об устройстве jpeg
http://www.hamslab.com/lab/delphi/jpeg/jpeg_del.html
как отправить jpeg в oracle
1) сохранить JPEG в файл.
2) здесь у вас есть, как сохранить файл в Oracle:
http://www.delphi3000.com/articles/article_1523.asp?SK=
С наилучшими пожеланиями,
Radu