Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2011, 14:53   #1
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию image1 и savetofile

всем привет,в своей проге я фоткаю монитор и сохраняю его в image1 потом оттуда сохраняю картинку в указанную папку методом savetofile,но размер сохраненного файла foto.jpg получается 3 мб при размере image1 1024x768,короче такой размер меня ен устраивает,скажите как сжать?как сделать?
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Старый 23.05.2011, 15:47   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Код:
uses jpeg
......................

var
  jpg: TJPegImage;
begin
  jpg := TJpegImage.Create;
  jpg.Assign(Image1.Picture.Graphic);
  jpg.CompressionQuality := 20;
  jpg.Compress;

  jpg.SaveToFile('222.jpg');
  jpg.Free;
end;
Баламут вне форума Ответить с цитированием
Старый 23.05.2011, 16:30   #3
betirsolt
Форумчанин
 
Регистрация: 20.07.2009
Сообщений: 421
По умолчанию

большое спасибо,помогло
Уважаемые модераторы, Я всячески стараюсь не нарушать правила сайта, будьте снисходительны
betirsolt вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
image1.Refresh;image1.Repaint; Symba Общие вопросы Delphi 5 24.04.2011 03:53
SaveToFile foxes Общие вопросы Delphi 6 04.11.2010 07:17
SaveToFile - в чем ошибка? annaangel Общие вопросы Delphi 12 05.11.2009 09:09
SaveToFile Airou Общие вопросы Delphi 6 13.05.2008 20:56
Image1.Picture.SaveToFile TaTT DoGG Общие вопросы Delphi 3 03.05.2008 10:43