Вход | Регистрация


Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?

Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?
Я
   dzadzen
 
15.07.08 - 19:37
Добрый день.
Подскажи реализацию :
Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?

Может есть какие компоненты ?
 
 
   AndrejFAA
 
1 - 15.07.08 - 19:40
Да уж.

ctrl+prtsc - Paint - shift+ins
   smaharbA
 
2 - 15.07.08 - 19:44
(1) программно ?
(0) есть
   AndrejFAA
 
3 - 15.07.08 - 19:46
(2) Второе слово пропустил. :)
Но все равно Sendkey никто не отменил.
   smaharbA
 
4 - 15.07.08 - 19:47
(3) можно пример ?
   Мелкий бес
 
5 - 15.07.08 - 19:53
Нетленка 2.2
СкриншотОкна|ScreenShotWindow
Описание: Выполняет снимок окна и сохранение рисунка в файл с сжатием в формат JPG.
Параметры:
- ДескрипторОкна – 4-х байтное, целое, беззнаковое. Принимает дескриптор окна, для которого будет выполняться снимок.
Качество– 1 байтное, целое, беззнаковое. Принимает качество сжатия рисунка. 100 – максимальное качество, 0 – минимальное качество.
КоэффициентМасштабирования– 4 байтное, дробное, знаковое. Принимает увеличение масштаба рисунка1.
ИмяФайла – строка. Принимает имя файла, который будет создан и будет содержать рисунок.
Возвращаемое значение: значение не возвращается.
   AndrejFAA
 
6 - 15.07.08 - 20:13
При наличии IrfanView.

irfan = "C:\bin\i_view32.exe"
irfan_options = "/capture=0 /resize=(25p,25p) /convert="
scr_file = "C:\screen.png"
cmd = """" & irfan & """ " & irfan_options & scr_file
WshShell.Run cmd, 1, true
   smaharbA
 
7 - 15.07.08 - 20:15
а без наличия ?
   AndrejFAA
 
8 - 15.07.08 - 20:16
Да я думал, что у Sendkey есть команда prtsc, но не нашел. Каюсь.
   AndrejFAA
 
9 - 15.07.08 - 20:23
Хотя нет.
Так сработает?

Dim wsh
Set wsh = createobject("wscript.shell")
wsh.Sendkeys "{PRTSC}"
   dzadzen
 
10 - 15.07.08 - 20:31
Спасибо за варианты. Буду рассматривать.
Очень заинтриговала компонента НЕТЛЕНКА.
Поддерживает ли компонента версию 1С 7.7. ???
 
 Рекламное место пустует
   smaharbA
 
11 - 15.07.08 - 20:34
http://www.karat-e.ru/files/hrenshoot.rar

(там конечно небольшая обманка)
   smaharbA
 
12 - 15.07.08 - 20:36
(9) нет
   Злопчинский
 
13 - 15.07.08 - 20:52
   dzadzen
 
14 - 17.07.08 - 16:13
Большое спасибо, задача решена...
благодаря вашей помощи....

Список тем форума
Рекламное место пустует  Рекламное место пустует
Ошибка? Это не ошибка, это системная функция.
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует