Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/32: Рейтинг темы: голосов - 32, средняя оценка - 4.75
BanDit
из интернетов
136 / 33 / 7
Регистрация: 16.01.2008
Сообщений: 394
1

Снимок окна

31.01.2008, 15:51. Просмотров 5910. Ответов 3
Метки нет (Все метки)

Возникла необходимость сделать снимок активного окна. Есть код как принтскринить

рабочий стол, пытался переделать, не прёт что то (рисунок белый). Например окно с

названием "Autorun" активно, вот код
Код
var
bmp: TBitmap;
 DC: HDC;
h:hwnd;

begin
 bmp:=TBitmap.Create;

 bmp.Height:=Screen.Height;//задаю размер
 bmp.Width:=Screen.Width;
//GetForegroundWindow; //типа получить активное окно, наверно не нужно здесь
 DC:=GetDC(h);   //подставляю хэндл
 bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,          //////////////
       DC, 0, 0, SRCCOPY);
 bmp.SaveToFile('Screen.bmp');

 ReleaseDC(0, DC);
end;
Помогите в функции bitblt изменить (2,3,4,5 параметры), чё тока не пробовал.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2008, 15:51
Ответы с готовыми решениями:

Сделать снимок с вебкамеры
Доброе время суток. Меня интересует, как в Delphi, через компонент TImage,...

Дочерние окна сворачивать в пределах главного окна (Delphi 7)
Здравствуйте, подскажите как сделать чтоб дочернее окно при свертывании не...

Снимок с камеры
Здравствуйте! Помогите, пожалуйста, не могу найти нормальной разжеванной...

Снимок экрана
Доброго времени суток! В библиотеке открыли доступ к электронным журналам....

StringGrid И снимок экрана
Всем добрый день... Прошу Вашей помощи. Есть форма, которую нужно заскринить и...

3
mik-a-el
Администратор
72671 / 41962 / 241
Регистрация: 10.04.2006
Сообщений: 12,773
31.01.2008, 16:02 2
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

Код
{ Функции копирования экрана в < Delphi > }
unit ScrnCap;

interface
uses WinTypes, WinProcs, Forms, Classes, 
Graphics, Controls;

function CaptureScreenRect( ARect: TRect ): 
TBitmap;
function CaptureScreen: TBitmap;
function CaptureClientImage( Control: TControl )
: TBitmap;
function CaptureControlImage( Control: TControl )
: TBitmap;

implementation

{ Копирование прямоугольной области экрана... }
function CaptureScreenRect( ARect: TRect )
: TBitmap;
var
  ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;

    ScreenDC := GetDC( 0 );
    try
      < BitBlt >( Canvas.Handle, 0, 0, Width, 
      Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;

{ Копирование всего экрана... }
function CaptureScreen: TBitmap;
begin
  with Screen do
    Result := CaptureScreenRect( Rect( 0, 0, 
    Width, Height ));
end;

{ Копирование клиентской области формы или 
элемента... }
function CaptureClientImage( Control: TControl )
: TBitmap;
begin
  with Control, Control.ClientOrigin do
    Result := CaptureScreenRect( Bounds( X, Y, 
    ClientWidth,
                ClientHeight ));
end;

{ Копирование всей формы или элемента... }
function CaptureControlImage( Control: TControl )
: TBitmap;
begin
  with Control do
    if Parent = nil then
      Result := CaptureScreenRect( Bounds( Left, 
      Top, Width,
                  Height ))
    else
      with Parent.ClientToScreen( Point( Left, 
      Top )) do
        Result := CaptureScreenRect( Bounds( X, 
        Y, Width,
                    Height ));
end;

end.
0
BanDit
из интернетов
136 / 33 / 7
Регистрация: 16.01.2008
Сообщений: 394
01.02.2008, 13:38  [ТС] 3
А как сохранить это в файл?
Код
{ Копирование прямоугольной области экрана... }
function CaptureScreenRect( ARect: TRect )
: TBitmap;
var
  ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;

    ScreenDC := GetDC( 0 );
    try
      < BitBlt >( Canvas.Handle, 0, 0, Width, 
      Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;
0
Dr.Acula
212 / 10 / 4
Регистрация: 25.04.2007
Сообщений: 67
01.02.2008, 16:19 4
TBitmap.SaveToFile, например
или
TBitmap.SaveToStream, через дополнительный файловый поток (TFileStream)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2008, 16:19

Снимок части экрана
Доброго времени. Суть проблемы: Есть программа написанная на Делфи которая с...

Снимок с камеры ноутбука
Как сделать снимок с камеры ноутбука? И может по всей теме подскажете, при...

Снимок элемента формы
Понадобилось сделать снимок элемента Shape на форме по нажатию Button1. Гугл...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru