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

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

Как сохранить скриншот в jpg [D7, WinXP]


Leeechhhh ©   (2005-03-16 13:13:00) 

Я юзаю битмэп и канву для снятия скриншота полного экрана
в среднем один скриншот весит 1,5метра!!!! как мне зажать его в
жпег??? Подскажите плиз.


wicked   (2005-03-17 17:34:00) [1]

> Leeechhhh

> а чё тут такого???

читать в msdn о функции GetDC до полного просветления... особенно ремарки...


Leeechhhh   (2005-03-17 15:02:00) [2]

спасибо, сам понял, сначала стормозил чёто


Leeechhhh   (2005-03-17 14:54:00) [3]

что в данном случае означает bmp?
jpg.Assign( bmp);


Leeechhhh   (2005-03-17 14:51:00) [4]

а чё тут такого???


wicked   (2005-03-16 19:24:00) [5]

немного не в тему, но за такое (подчеркнул):

> BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDC(GetdesktopWindow),
> 0, 0, SRCCOPY);

нужно отрывать руки.... по макушку головы...


A22   (2005-03-16 18:50:00) [6]

jpg.Assign( bmp );
jpg.SaveToFile( ... );


Leeechhhh   (2005-03-16 18:27:00) [7]

во млин, я пользую такую конструкцию
with bitmap do
try
height:=screen.Height;
width:=screen.Width;
  BitBlt(Canvas.Handle, 0, 0, Width, Height, GetDC(GetdesktopWindow), 0, 0, SRCCOPY);
  SaveToFile('0'+floattostr(count)+'.jpg');
finally
  Free
end

при компиляции ошибок нет, а вот когда уже создаётся сам файл, выдаётся ошибка на width и height - cannot change the size of JPEG image


Leeechhhh   (2005-03-16 18:13:00) [8]

сэнск


Tankist   (2005-03-16 13:49:00) [9]

Добавь в Uses формы JPEG, потом создавай TJPEGImage, и работай, как с битмэпом


Наверх

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