Конвертация *.bmp в *.jpeg

← →
ASvencim © (2004-04-19 16:59) [0]

Есть ли в Delphi встроенная процедура конвертирования *.bmp в *.jpg?

← →
ASvencim © (2004-04-19 17:00) [1]

Извините, ошибся, нужно наоборот *.jpg в *.bmp

← →
WebErr © (2004-04-19 17:01) [2]

А самому в FAQ залезть не судьба?

← →
Clickmaker © (2004-04-19 17:02) [3]

TJpegImage

← →
WebErr © (2004-04-19 17:06) [4]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21
*.jpg в *.bmp ИМХО так же

← →
Yanis © (2004-04-19 17:11) [5]

uses JPEG; procedure JPEGtoBMP(const FileName: TFileName); var jpeg: TJPEGImage; bmp: TBitmap; begin jpeg := TJPEGImage.Create; try jpeg.CompressionQuality := 100; {Default Value} jpeg.LoadFromFile(FileName); bmp := TBitmap.Create; try bmp.Assign(jpeg); bmp.SaveTofile(ChangeFileExt(FileName, ".bmp")); finally bmp.Free end; finally jpeg.Free end; end; { CompressionQuality (default 100): Set a value between 1..100, depending on your need of quality and image file size. 1 = Smallest file size, 100 = Best quality. Mit CompressionQuality konnen Sie die Qualitat der Komprimierung fur die JPEG-Grafik festlegen (Default ist 100), wenn diese gespeichert wird. Eine hohere Komprimierung ergibt eine etwas schlechtere Bildqualitat, dafur aber eine kleinere Datei. 1 = kleinste Dateigrosse, 100 = beste Qualitat }
Из фака Vit"а

Спасибо, помогли

Конвертация *.bmp в *.jpeg Найти похожие ветки

Конвертация .bmp в .jpeg Найти похожие ветки