как сконвертить bmp в jpg

← →
Tex (2004-05-06 10:23) [0]

Ув. мастера!
Подскажите как программно сконвертить файл формата bmp в jpg. Это нужно сделать перед загрузкой изображения в БД для экономии места.

← →
[lamer]Barmaglot © (2004-05-06 10:35) [1]

э-э-э-э, а чем не подходит стандартный путь, подключаешь модуль JPeg и вперед...

Ну а если хочется заморасиваться, копай бинарники www.wotsit.com

← →
Андрей Сенченко © (2004-05-06 12:39) [2]

LIBRARY convert;
uses
Windows, Graphics, JPEG;

Procedure bmp2jpg(bmpname,jpgname : PChar); stdcall;
var
JPGpic: TJPEGImage;
BMPpic: TBitmap;
begin
JPGpic := TJPEGImage.Create;
BMPpic := TBitmap.Create;
Try
BMPpic.LoadFromFile(BMPName);
JPGpic.Assign(BMPpic);
JPGpic.SaveToFile(JPGName);
Finally
JPGpic.Free;
BMPpic.Free;
End { Try }
end;

Procedure jpg2bmp(bmpname,jpgname : PChar); stdcall;
var
JPGpic: TJPEGImage;
BMPpic: TBitmap;
begin
JPGpic := TJPEGImage.Create;
BMPpic := TBitmap.Create;
Try
JPGpic.LoadFromFile(JPGName);
BMPpic.Assign(JPGpic);
BMPpic.SaveToFile(BMPName);
Finally
JPGpic.Free;
BMPpic.Free;
End { Try }
end;

Exports
bmp2jpg,
jpg2bmp;
end.

Компили, подключай. У меня работает нормально

← →
Tex (2004-05-06 15:44) [3]

Спасибо,
и у меня тоже работает.

как сконвертить bmp в jpg Найти похожие ветки