Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скриншоты 
:(
    Опции темы
-=Fox=-
Дата 1.2.2003, 21:46 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Hi!

Подскажите пожалуйста как в Delphi, делать скриншоты с любой части экрана.

Спасибо
  Вверх
Mikel
Дата 1.2.2003, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
Var B:TBitmap;
DC:hDC;
begin
DC:=GetDC(0);
B:=TBitmap.Create;
B.Width:=Screen.Width;
B.Height:=Screen.Height;
B.Canvas.Handle:=DC;
B.SaveToFile(...);
B.Free;
ReleaseDC(0,DC);
end;


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
-=Fox=-
Дата 1.2.2003, 22:22 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
На строчке

Код


 B.SaveToFile('c:\test.bmp');



фатальная ошибка.
  Вверх
December
Дата 2.2.2003, 03:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: нет
Всего: 57
А вот ещё вариант:
keybd_event(VK_SNAPSHOT,0,0,0) - весь экран в буфер обмена
keybd_event(VK_SNAPSHOT,1,0,0) - текущее окно в буфер обмена


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Unregistered
Дата 2.2.2003, 04:12 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо. Поюзаю
  Вверх
[auxx]
Дата 2.2.2003, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 148
Регистрация: 2.2.2003

Репутация: нет
Всего: нет
Цитата
На строчке

CODE


B.SaveToFile('c:\test.bmp');



фатальная ошибка.


Какая именно: компиляции или времени выполнения(ну или как там они называются)?
PM MAIL   Вверх
Mikel
Дата 4.2.2003, 05:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2
Тогда дескриптор присвой ещё одному Canvasу, а затем выполни bitblt, или CopyRect на bitmap.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0427 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.