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

Вниз

Как сохранить скриншот в jpg   Найти похожие ветки 

 
Leeechhhh   (2005-03-16 13:13) [0]

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


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

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


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

сэнск


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

во млин, я пользую такую конструкцию
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


 
A22 ©   (2005-03-16 18:50) [4]

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


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

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

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

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


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

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


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

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


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

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


 
wicked ©   (2005-03-17 17:34) [9]

> Leeechhhh

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

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



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

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

Наверх




Память: 0.48 MB
Время: 0.034 c
14-1118266840
Германн
2005-06-09 01:40
2005.07.11
Установка и удаление программ


1-1119523292
samuel
2005-06-23 14:41
2005.07.11
Как запустить программу как сервис?


1-1118563903
acsoft
2005-06-12 12:11
2005.07.11
Возможно ли считать свой собственный код?


6-1113145766
W
2005-04-10 19:09
2005.07.11
Как в Delphi быстро переключить прокси??


4-1116219381
ANick
2005-05-16 08:56
2005.07.11
Как изменить параметры сетевого принтера (формат бумаги)