Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: 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 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
3-1083170401
MicroWorld
2004-04-28 20:40
2004.05.23
Фильтрация данных в IBTabl


1-1083417556
Lena19
2004-05-01 17:19
2004.05.23
текст разными цветами и шрифтом + bitmap


6-1080722879
Saturn_
2004-03-31 12:47
2004.05.23
Узнать наличие файла на FTp сервере не скачивая его


4-1080822821
AlexeyITN
2004-04-01 16:33
2004.05.23
WinAPI Return Values and Errors


11-1071742891
BaDeVlad
2003-12-18 13:21
2004.05.23
Как в RichEdit изменить WordWrap?