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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
3-1171441023
kulkse
2007-02-14 11:17
2007.05.06
Проверка имени пользователя и пароля


6-1162652416
Vulix
2006-11-04 18:00
2007.05.06
Уведомление о доступе к расшаренным ресурсам


2-1176444828
trula
2007-04-13 10:13
2007.05.06
excel вставка рисунка под нужным углом в нужную точку


2-1176526329
T.V
2007-04-14 08:52
2007.05.06
Время "жизни" параметров командной строки


10-1132575802
George_Debug
2005-11-21 15:23
2007.05.06
ADO+Excel