Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Как сделать компактную сохранялку картинки в JPEG?   Найти похожие ветки 

← →
vertal   (2004-04-03 02:41) [0]

Мне нужна функция сохранения картинки в формате BitMap из буфера в файл в формате JPEG
Я делаю так:

library savejpeg;
uses jpeg,clipbrd,windows,graphics,sysutils;
Function SaveClipboardBitMapImageToJPEGFile(Quality:LongInt;FileName:PChar):LongInt;stdcall;
var
 jp: TJPEGImage;
 tp: TPicture;
Begin
 Result:=0;
 try
        tp:=TPicture.Create;
        tp.RegisterClipboardFormat(cf_BitMap,TBitMap);
        jp := TJPEGImage.Create;
        tp.LoadFromClipboardFormat(cf_bitmap,ClipBoard.GetAsHandle(cf_Bitmap),0);
        jp.CompressionQuality := Quality;
        jp.Assign(tp.Bitmap);
        jp.Compress;
        jp.SaveToFile(FileName);
 except
       on Exception do Result:=-1;
 end;
 jp.Free;
 tp.UnregisterGraphicClass(TBitMap);
 tp.Free;
end;
exports SaveClipboardBitMapImageToJPEGFile ;
end.

Это работает , но получается dll размером 459 776 байт :(
Можно ли как-то уменьшить этот размер?

---

← →
becker   (2004-04-03 16:37) [1]

отказаться от VCL

---

← →
Soft ©   (2004-04-03 21:44) [2]

Jpeg for Windows
http://gnuwin32.sourceforge.net/packages/jpeg.htm

Глянь на эту библиотеку, может пригодится?

---

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

Форум: "Основная";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Наверх

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