OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Понедельник, 10 Август, 2020 22:36

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 9 ] 
Автор Сообщение
 Заголовок сообщения: Print Screen на Black Box
СообщениеДобавлено: Четверг, 01 Август, 2013 17:16 

Зарегистрирован: Четверг, 01 Август, 2013 16:39
Сообщения: 92
Откуда: Кыргызстан
у меня есть идея насчет одной прикладной программы. Необходимо реализовать на Black Box Component Builder , компонент который делает Screen Shot с экрана. Буду рад за исходник желательно с простейшим примером. Не помещает и совет в какую сторону капать , какие статьи читать , с какими терминами разбираться.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Четверг, 01 Август, 2013 17:58 

Зарегистрирован: Вторник, 25 Апрель, 2006 16:21
Сообщения: 2180
Откуда: Нижний Новгород
В сторону Win32 API (если под виндой).
Кратко: GetDC(NULL) + BitBlt()

Ну и вообще: http://stackoverflow.com/questions/5316 ... in-windows


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Четверг, 01 Август, 2013 19:56 

Зарегистрирован: Пятница, 25 Сентябрь, 2009 13:10
Сообщения: 1177
Откуда: Tel-Aviv
По идее, если нужно снять снимок какого-то окна ББ, то это вроде делается средствами фреймворка.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Четверг, 01 Август, 2013 20:31 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 2810
Роман М. писал(а):
По идее, если нужно снять снимок какого-то окна ББ, то это вроде делается средствами фреймворка.

Да, если нужен снимок окна, то есть стандартный модуль HostBitmaps для этого.

Вот так когда-то делал для сохранения графиков в BMP.
Код:
   PROCEDURE SaveRastr*;
      VAR res: INTEGER; bmp: Converters.Converter; path: Files.Locator; name: Files.Name;
         c: Containers.Controller; v: Views.View;
   BEGIN
      c := Containers.Focus(); (* Берем контейнер, который находится в фокусе *)
      IF c # NIL THEN (* Если какой-то контейнер был в фокусе, *)
         v := c.ThisView() (* то берем отображение этого контейнера *)
         path := Files.dir.This(""); (* Задаем путь куда сохранять *)
         name := "Новый график"; (* название файла *)
         bmp := Converters.list; (* зугружаем список доступных конвертеров *)
         WHILE (bmp # NIL) & (bmp.fileType # "bmp") DO bmp := bmp.next END; (* идем по списку пока не найдем нужный *)
         Views.Register(HostBitmaps.ViewToBitmap(v, 24), Views.ask, path, name, bmp, res) (* Сохраняем отображение с заданными выше параметрами *)
      END
   END SaveRastr;


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Пятница, 02 Август, 2013 08:01 
Аватара пользователя

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 8351
Откуда: Троицк, Москва
Посмотрите в любой версии от И-21 команду меню File, Save as Bitmap...


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Пятница, 02 Август, 2013 10:51 

Зарегистрирован: Четверг, 01 Август, 2013 16:39
Сообщения: 92
Откуда: Кыргызстан
Удивлен такой отзывчивости, в других форумах не были так внимательны ко мне, у меня заработал пример "PROCEDURE SaveRastr*;", уважаемые единомышленники я неправильно изложил свою задачу, мне нужен Screen Shot не только внутри блек бокса, а всего что есть не экране компьютера, например нужно сфоткать браузеры, докумкенты, и другие программы которые отображается на экране , надеюсь я внятно все обьяснил.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Пятница, 02 Август, 2013 10:54 

Зарегистрирован: Вторник, 25 Апрель, 2006 16:21
Сообщения: 2180
Откуда: Нижний Новгород
bill писал(а):
Удивлен такой отзывчивости, в других форумах не были так внимательны ко мне, у меня заработал пример "PROCEDURE SaveRastr*;", уважаемые единомышленники я неправильно изложил свою задачу, мне нужен Screen Shot не только внутри блек бокса, а всего что есть не экране компьютера, например нужно сфоткать браузеры, докумкенты, и другие программы которые отображается на экране , надеюсь я внятно все обьяснил.

Тогда, видимо, таки следует посмотреть в сторону того, что я советовал.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Воскресенье, 04 Август, 2013 21:23 

Зарегистрирован: Вторник, 30 Июнь, 2009 14:58
Сообщения: 1549
Цитата:
ImTest1 - Создание снимка экрана и сохранение его в JPEG

viewtopic.php?f=28&t=4356&p=80491#p80401


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Print Screen на Black Box
СообщениеДобавлено: Среда, 07 Август, 2013 22:36 

Зарегистрирован: Четверг, 01 Август, 2013 16:39
Сообщения: 92
Откуда: Кыргызстан
Всем доброго времени суток, вот сайт моей незаконченной проги Print SCreen, http://koobs-print.ucoz.ru/ , Буду рад услышать критику, советы по улучшению, идеи по этому вопросу. Хочу перевести этот проект на BB, считаю легче изучить язык на конкретной задаче. Со временем хочу развивать этот проект. Это первая моя прога. Спс за внимание


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 9 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2020, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB