Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.09;
Скачать: CL | DM;

Вниз

Переконвертировать JPEG   Найти похожие ветки 

 
Lesar   (2006-01-30 21:11) [0]

Здравствуйте ,подскажите, как переконвертировать картинку в формате JPEG. Делаю следующим образом:
var
j: TJpegImage
begin
j:=TJpegImage.Create;
j.LoadFromFile("c:\1.jpg");
j.CompressionQuality:=70;
j.Compress;
j.SaveToFile("c:\2.jpg");
j.Free;
end;

Файл на выходе выходит пустой(0 байт), при чем, если убрать строки
j.CompressionQuality:=70;
j.Compress;
то файл вполне нормально копируется... Зараннее спасибо


 
Sapersky   (2006-01-31 14:48) [1]

После LoadFromFile распаковать jpeg в bmp: j.DIBNeeded;
а потом уже запаковывать по новой.


 
Lesar ©   (2006-01-31 18:14) [2]

Благодарю ,помогло. Вот только скорость работы слегка смущает...


 
0bsid ©   (2006-01-31 18:54) [3]

всех смущает, а че поделать, перепаковка всётаки



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

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

Наверх




Память: 0.47 MB
Время: 0.042 c
15-1149749393
mctarik
2006-06-08 10:49
2006.07.09
Привет Всем! Теперь и у меня Локальная сеть ;)


15-1149509503
depo
2006-06-05 16:11
2006.07.09
строки


2-1150570432
Steplerr
2006-06-17 22:53
2006.07.09
Альтернатива OLE при работе c XLS & DOC


2-1150636973
HF-Trade
2006-06-18 17:22
2006.07.09
Перемещение мыши относительно координат чужого окна


2-1150635281
antoxa2005
2006-06-18 16:54
2006.07.09
Интересно почему, Если в IBDataBase.DatebaseName:= Comp1 d mybd.