Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Переконвертировать JPEG [D7, WinXP]


Lesar ©   (2006-01-30 21:11:00) 

Здравствуйте ,подскажите, как переконвертировать картинку в формате 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;
то файл вполне нормально копируется... Зараннее спасибо


0bsid   (2006-01-31 18:54:00) [1]

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


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

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


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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо