bmp -> jpg

← →
Gentos (2007-04-18 10:45) [0]

Всем здрасте. Каким образом можна перевести с bmp в jpg . И как можно заставить TDBImage работать с jpg картинками ?

← →
Novice (2007-04-18 11:12) [1]

Если я правильно помню:

uses JPEG;
...
var B : TBitmap;
J : TJPEGImage;
...
B := TBitmap.Create;
B.LoadFromFile("SomeFile.bmp");
J := TJPEGImage.Create;
J.Assign(B);
J.SaveToFile("SomeFile.bmp");
B.Free;
J.Free;

Самый простой вариант.
Есть и другой - вместо Assign сделать попиксельное копирование канвы, или же BitBlt с канвы в канву... Или просто использовать что-либо наподобие ACDsystems, Adobe Photoshop... Вариантов много, все зависит от того, какую конкретно цель Вы преследуете.

← →
Novice (2007-04-18 11:13) [2]

Прошу прощения:
B := TBitmap.Create;
B.LoadFromFile("SomeFile.bmp");
J := TJPEGImage.Create;
J.Assign(B);
J.SaveToFile("SomeFile.JPG");
B.Free;
J.Free;

← →
Gentos (2007-04-18 11:20) [3]

> Novice (18.04.07 11:13) [2]

большое человеческое спасибо :)

TDBJpegImage:
http://delphi.ktop.com.tw/download.php?download=5%5Cvcl%5Cgraphics%5Cjpg%5Cjpgimg.zip

bmp -> jpg Найти похожие ветки