Скачать: CL | DM;

как сконвертить 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c