Вниз
Скачать: CL | DM;

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]

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


 
Amoeba ©   (2007-04-18 14:29) [4]

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



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

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



Память: 0.45 MB
Время: 0.012 c
2-1176454419
ALS
2007-04-13 12:53
2007.05.06
Access и региональные настройки


1-1173696942
Novice
2007-03-12 13:55
2007.05.06
Файловая система, получение информации


4-1165573440
leonidus
2006-12-08 13:24
2007.05.06
Работа с буфером обмена


1-1173684713
zap8
2007-03-12 10:31
2007.05.06
Погрешность в 1 секунду


11-1158738217
BMouradov
2006-09-20 11:43
2007.05.06
KOLPrinters подвешивает программу




   Наверх