Как сделать скришот?

[shade]

Пишем небольшую утилиту делающую скришоты. Есть Windows-версия на Delphi, хотелось портировать на Lazarus, чтобы работало и в Windows и в *nix.

Есть какой-то кроссплатформный способ?
Если нет, то как сделать это на *nix'ах ?
Нужно делать как снимок всего окна, так и снимок одно отдельно взятого окна, типа как KSnapshot.

PS: кроме собственно делания снимков будет одна приятная вкусность о которой узнаете после выхода первой версии

[Andreich]

Все довольно просто,... Под Win32 не проверял, а под Linux работает как часы!

Код: Выделить всё

uses ..., LCLIntf, LCLType;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  MyBitmap: TBitmap;
  ScreenDC: HDC;
begin
  MyBitmap := TBitmap.Create;
  ScreenDC := GetDC(0);
  MyBitmap.LoadFromDevice(ScreenDC);
  Image.Picture.Bitmap:=MyBitmap;
  MyBitmap.Free;
end;

[B4rr4cuda]

Код: Выделить всё

/opt/freepascal/lib/fpc/fpc-2.2.0/packages/base/imagemagick/demo2/screenshot.lpr

Код: Выделить всё

/opt/freepascal/lib/fpc/fpc-2.2.2/packages/imagemagick/examples/screenshot.lpr

[shade]

Andreich
Спасибо

Ещё пара сопутствующих вопросов:

1. есть экранные координаты точки, как определить окно над которыми она находиться? Т.е. как узнать хендл, который нужно передать функции GetDC ?

2. Как узнать размеры найденого (п.1.) окна ? (гы, сам догадался: GetWindowRect )

Попробовал: ScreenDC := GetDC(Form1.Handle);
чтобы сделать снимок самой формы, но почему в снимок не папали заголовок и рамка окна
Можно конечно сделать снимок всего экрана с последущей обрезкой, но может есть более прямое решение?

Добавлено спустя 6 минут 5 секунд:

/opt/freepascal/lib/fpc/fpc-2.2.2/packages/imagemagick/examples/screenshot.lpr

Работает через xwd, ни айс

Код: Выделить всё

  shellStr := 'xwd -root -out ' + TempDir + 'display.xwd';

Добавлено спустя 40 минут 3 секунды:

1. есть экранные координаты точки, как определить окно над которыми она находиться? Т.е. как узнать хендл, который нужно передать функции GetDC ?

Нашел метод WindowFromPoint, пока не проверял, но столкнулся с другой проблемой:

3. Как захватить мышь? На WinAPI -> SetCapture, в LCLIntf тоже есть, но не работает, form1.CaptureMouseButtons тоже

Добавлено спустя 2 часа 34 минуты 29 секунд:
Млин, WindowFromPoint возвращает 0 (GTK2)