Вниз
Скачать: CL | DM;

Параметры при создании скриншота   Найти похожие ветки 

← →
worldmen   (2008-10-24 10:55) [0]

Надо создать скриншот определенного участка экрана, например начальные координаты x=100 y=100 конечные- x2=200 y2=200
Есть код:var bmp:TBitmap;
begin
   bmp := TBitmap.Create;
   bmp.Width := Screen.Width;
   bmp.Height := Screen.Height;
   StretchBlt(bmp.Canvas.Handle,100,100, 200,200, GetDC(0),100,100, 200,200, SRCCOPY);

   Image1.Width := 200; // Screen.Width;
   Image1.Height:= 200; // Screen.Height;
   Image1.Picture.Assign(bmp);
   bmp.Free;

Есть описания функции:
BOOL StretchBlt(
 HDC hdcDest,         // дескриптор приемного DC
 int nXOriginDest,    // x-коорд. верхнего левого угла приёмника
 int nYOriginDest,    // y-коорд. верхнего левого угла приёмника
 int nWidthDest,      // ширина приёмного прямоугольника
 int nHeightDest,     // высота приёмного прямоугольника.
 HDC hdcSrc,          // дескриптор исходного DC
 int nXOriginSrc,     // x-коорд.верхнего левого угла источника
 int nYOriginSrc,     // y-коорд.верхнего левого угла источника
 int nWidthSrc,       // ширина исходного прямоугольника
 int nHeightSrc,      // высота исходного прямоугольника
 DWORD dwRop          // код растровой операции
Не врублюсь какие параметры тут я не правильно поставил.


← →
AlekseyB   (2008-10-24 10:59) [1]

http://z-oleg.com/delphi/graph.htm#gr00008


← →
worldmen   (2008-10-24 12:40) [2]

Сылка не работает


← →
brother ©   (2008-10-24 12:43) [3]

на вскидку:
>   StretchBlt(bmp.Canvas.Handle,100,100, 200,200, GetDC(0)
> ,100,100, 200,200, SRCCOPY);

это ширина и высота равны 200
у тебя:


> координаты x=100 y=100 конечные- x2=200 y2=200

те ширина и высота 100 ;)


← →
brother ©   (2008-10-24 12:44) [4]

>   Image1.Width := 200; // Screen.Width;
>   Image1.Height:= 200; // Screen.Height;

не понял? тебе 200 на 200 надо? тгда координаты (они абсолютные) должны быть
StretchBlt(bmp.Canvas.Handle,100,100, 300,300, GetDC(0),100,100, 300,300, SRCCOPY);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c
15-1223223967
Anton
2008-10-05 20:26
2008.12.07
Вопрос по структуре будущего проекта


15-1222862652
vajo
2008-10-01 16:04
2008.12.07
Как отключить кнопки тачпада ноутбука?


2-1224695992
Сергей Кокоулин
2008-10-22 21:19
2008.12.07
Определение доступных COM портов?


2-1225217914
cruiser
2008-10-28 21:18
2008.12.07
Почему функция не возвращает результат в переменную типа string?


2-1224955331
Саня
2008-10-25 21:22
2008.12.07
Обработка гиперссылок в TWebbrowser




   Наверх