Сохранения фрагмента экрана

@DrSMERTb · Регистрация: 12.11.2010

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток. Кто может подсказать как можно "сфотать" не весь экран а только его часть задав определённые координаты?

@ivan.-94 · 23.08.2012, 23:00

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Photo()
{
    TRect ScreenRect;
    TCanvas* ScreenCanvas=new TCanvas;
    try{
        Top=0;
        Left=Screen->Width;
        Width=Screen->Width;
        Height=Screen->Height;
        ScreenRect=Rect(0,0,Width-0,Height-0);
        ScreenCanvas->Handle=GetDC(0);
        Image1->Canvas->CopyRect(ScreenRect, ScreenCanvas,ScreenRect);
        ReleaseDC(Handle,ScreenCanvas->Handle);
        Left=Top;
    } __finally{
        delete ScreenCanvas;
    }
}

@DrSMERTb · 23.08.2012, 23:02 **[ТС]**

Спасибо сейчас попробую)

@Avazart · 23.08.2012, 23:21

Здесь ошибка

C++
1
ReleaseDC(Handle,ScreenCanvas->Handle);

@DrSMERTb · 23.08.2012, 23:51 **[ТС]**

Сообщение от ivan.-94

void __fastcall TForm1::Photo()
{
TRect ScreenRect;
TCanvas* ScreenCanvas=new TCanvas;
try{
Top=0;
Left=Screen->Width;
Width=Screen->Width;
Height=Screen->Height;
ScreenRect=Rect(0,0,Width-0,Height-0);
ScreenCanvas->Handle=GetDC(0);
Image1->Canvas->CopyRect(ScreenRect, ScreenCanvas,ScreenRect);
ReleaseDC(Handle,ScreenCanvas->Handle);
Left=Top;
} __finally{
delete ScreenCanvas;
}
}

Здесь проблема, если я меняю крайний верхний угол не (0.0) а ставлю другие координаты то он не обрезает как надо вест скрин а просто забеляет всё что сверху этих координат

Добавлено через 6 минут
Собственно и с низу тоже....

@ivan.-94 · 24.08.2012, 00:10

Сообщение от Avazart

Здесь ошибка

Какая? у меня всё работает

Сообщение от DrSMERTb

Здесь проблема, если я меняю крайний верхний угол не (0.0) а ставлю другие координаты то он не обрезает как надо вест скрин а просто забеляет всё что сверху этих координат

Да.

@DrSMERTb · 24.08.2012, 00:21 **[ТС]**

Ну значит ответ не по теме получился) Мне же не надо было забедить область вокруг заданных координат)

@ivan.-94 · 24.08.2012, 00:40

DrSMERTb, мыслите шире, скопируйте нужный регион и на 2-гой имедж поместите

@DrSMERTb · 24.08.2012, 01:12 **[ТС]**

ivan.-94 , но в чём смысл тогда забелять? То что он будет на метр оперы больше жрать меня не интересует т.к. фотает он однократнго а не в цикле. С тем же успехом я могу просто скрин взять и потом скопировать нужный фрагмент... Мне было интересно сразу сфотать только нужный фрагмент что бы увеличить скорость программы.... А так не вижу особого смысла)

@Avazart · 24.08.2012, 01:22

Какая?

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

@ivan.-94 · 24.08.2012, 08:13

Ну я все го лишь предложил

@DrSMERTb · 24.08.2012, 19:48 **[ТС]**

Сообщение от Avazart

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

Вот так помоему надо:

C++
1
ReleaseDC(0, ScreenDC);

Добавлено через 1 час 28 минут
Просмотрел функции создания скриншота всего экрана, посмотрел функциюCopyRect и решил эту проблему)) Вот так надо:

C++
1
2
3
4
TCanvas* tCanvas = new TCanvas;
tCanvas->Handle = CreateDC("DISPLAY",NULL,NULL,NULL);
Image2->Canvas->CopyRect(Rect(0,0,Image2->Width,Image2->Height),tCanvas,Rect(X0,Y0,X1,Y1));
delete tCanvas;

Где X0,Y0-координаты верхнего угла прямоугольника, X1,Y1-координаты нижнего угла.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@DrSMERTb 64 / 40 / 10 Регистрация: 12.11.2010 Сообщений: 841

	Сохранения фрагмента экрана 23.08.2012, 22:56. Показов 1304. Ответов 11 Метки нет (Все метки) Всем доброго времени суток. Кто может подсказать как можно "сфотать" не весь экран а только его часть задав определённые координаты? 0

@DrSMERTb 64 / 40 / 10 Регистрация: 12.11.2010 Сообщений: 841
	23.08.2012, 23:02 [ТС]
	Спасибо сейчас попробую) 0

@DrSMERTb 64 / 40 / 10 Регистрация: 12.11.2010 Сообщений: 841
	24.08.2012, 00:21 [ТС]
	Ну значит ответ не по теме получился) Мне же не надо было забедить область вокруг заданных координат) 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	24.08.2012, 00:40
	DrSMERTb, мыслите шире, скопируйте нужный регион и на 2-гой имедж поместите 0

@DrSMERTb 64 / 40 / 10 Регистрация: 12.11.2010 Сообщений: 841
	24.08.2012, 01:12 [ТС]
	ivan.-94 , но в чём смысл тогда забелять? То что он будет на метр оперы больше жрать меня не интересует т.к. фотает он однократнго а не в цикле. С тем же успехом я могу просто скрин взять и потом скопировать нужный фрагмент... Мне было интересно сразу сфотать только нужный фрагмент что бы увеличить скорость программы.... А так не вижу особого смысла) 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	24.08.2012, 08:13
	Ну я все го лишь предложил 0