|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2007, 17:57 | #1 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Снимок экрана
Хочу сделать прогу, которая будет делать снимок с экрана каждые 0,5 сек, и сохранять каждый снимок в файл. Подскажите, как это можно организовать!
|
14.05.2007, 19:18 | #2 |
Пользователь
Регистрация: 27.04.2007
Сообщений: 17
|
Есть такой вариант как делать что то типа:
Таймер на 0.5с 1.Эмуляция нажатия Prt Scr(уже есть в буфере) 2.Передача буфера в файл. 3.Созданение файла. Есстественно это только теория как органзовать это , не понятно даже мне самому= )) |
14.05.2007, 20:11 | #3 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
вот
Код:
|
14.05.2007, 20:38 | #4 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
А можно что б сохранялось в JPEG, а то bmp'шники каждый по 3 Мб...
Может оно и не успеет каждые 0,5 сек записать такой файлик. |
14.05.2007, 20:47 | #5 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
класс TJPEGImage в модуле JPEG с ним поковыряйся, насколько я помню вместо TBitmap использовать надо
|
14.05.2007, 21:07 | #6 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Спасибо, но хорошо бы еще что б во время снимка указатель крысы был бы виден и можно было бы ее остановить в любой момент.
Последний раз редактировалось Viteef; 15.05.2007 в 17:19. |
15.05.2007, 20:09 | #7 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
что такое крыса?
|
16.05.2007, 13:14 | #8 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
"крысой" называют указатель мыши (курсор проще говоря )
наскоко я знаю курсор динамически перерисовівается, поэтому его тяжело зафиксировать, попробуй "дорисовывать" его в ручном режиме: 1: узнаем положение курсора var P:TPount; begin GetCursorPos(P); end; 2: рисуем курсор DrawIcon(Image1.Canvas.Handle, P.X,P.Y, HIcon);
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
16.05.2007, 17:33 | #9 |
stopfake.org
Участник клуба
Регистрация: 03.05.2007
Сообщений: 1,927
|
Не дорисовывает, может DrawIcon в другом месте дописать?
Код:
|
16.05.2007, 20:12 | #10 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
можно сначала сохранить положение курсора, потом переметить его в нижний правый угол, сделать снимок, потом переметить на место
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как сделать снимок экрана? | Briz | Общие вопросы Delphi | 28 | 10.04.2013 16:29 |
Разрешение экрана | Манжосов Денис :) | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 3 | 28.05.2008 23:17 |
Пределы экрана | Манжосов Денис :) | Общие вопросы Delphi | 6 | 01.05.2008 10:58 |
Разрешение экрана | -=<[Evklidd]>=- | Общие вопросы Delphi | 1 | 20.02.2008 10:55 |
Как сделать снимок экрана в графическом режиме? | Борис2 | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 08.12.2007 21:07 |