VPF::Сжать JPEG в Delphi XE - Форум программистов

alcogol

Дата 3.7.2013, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

Добрый день!

Подскажите пожалуйста новичку. Работаю в XE4 и разрабатываю приложение для iOS. Выгружаю картинки на веб сервер. Есть необходимость немного поиграть с качеством. Помню как это делалось в VCL при помощи TJPEGImage. А не подскажете как сжать файл в FireMonkey?

Akella

Дата 3.7.2013, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329

А в FireMonkey что, нет TJPEGImage?

alcogol

Дата 3.7.2013, 09:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

У меня просто не так много опыта, может что и упустил, но переменную такую объявить не получается. Нашел её описание только в Vcl.Imaging.jpeg

alcogol

Дата 3.7.2013, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

Пробовал делать вот так:

Код


procedure TForm1.Button1Click(Sender: TObject);

var 

Params: TBitmapCodecSaveParams;

begin

Params.Quality := 10

image1.Bitmap.SaveToFile('c:\2.jpg',@Params);

end;

но особо на качестве или размере сохраняемой картинки это не сказывается, точнее никак не сказывается

MetalFan

Дата 3.7.2013, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 5
Всего: 128

alcogol, все ж исходники есть, можно посмотреть... я конечно не претендую на 100% правильность, проверять некогда. Но судя по коду FMX.Types писать надо примерно так::

Код


var 
Params: TBitmapCodecSaveParams;
begin
  Params.Quality := 10;
  TBitmapCodecManager.SaveToFile( 'c:\2.jpg', image1.Bitmap ,@Params);
End;

Это сообщение отредактировал(а) MetalFan - 3.7.2013, 11:50

--------------------

There are always someone smarter than you...

alcogol

Дата 3.7.2013, 14:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

MetalFan, спасибо, вроде работает, но...

В общем, обратил внимание на то, что сжимать сжимает, но размер не зависит от коэффициента. После того как попробовал Ваш вариант(хотя сам его глубоко в исходниках видел и вроде бы то что я пишу его в итоге и дергает), попробовал то что писал сам выше. Удивительно, но на выходе получается то же самое. Сжимается как то статически до определенного размера и регулировать компрессию как в старом борландовском делфи не выходит.

Правда сейчас на XE3 эксперементирую, может это баг и в ХЕ4 будет работать нормально, вечером узнаю

Это сообщение отредактировал(а) alcogol - 3.7.2013, 14:47

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »