Как сделать скриншот экрана в *nix системах (как делает VNC сервер)?
Интересует не только xorg, но и wayland (если есть разница, а она наверное есть).
При этом хотелось бы учесть, что у пользователя может быть запущено видео (плеер или браузер).
Модератор: Модераторы
procedure TForm1.Button4Click(Sender: TObject);
var MyBitmap:Graphics.TBitmap;
ScreenDC:LCLType.HDC;
WrkJpg:TJpegImage;
begin
MyBitmap:=Graphics.TBitmap.Create;
ScreenDC:=LCLIntf.GetDC(0);
MyBitmap.LoadFromDevice(ScreenDC);
//Per avere un elenco dei vari formati disponibili (png, bmp, xmp, ecc.):
//http://wiki.lazarus.freepascal.org/Developing_with_Graphics#Image_formats
WrkJpg:=TJpegImage.Create;
try
WrkJpg.Assign(MyBitmap);
WrkJpg.SaveToFile(Utf8ToSys(WinTemp + 'Mario.jpg'));
finally
FreeAndNil(WrkJpg);
end;
LCLIntf.ReleaseDC(0 , ScreenDC);
FreeAndNil(MyBitmap);
end;
function TCaptureForm.CreateSnapshot ( WindowHD : HWND ):TBitmap;
var
wnd:HWND;
dc:HDC;
Bmp:TBitmap;
r:TRect;
begin
Bmp:=TMP;
wnd :=WindowHD;
if wnd = 0 then
begin
dc := GetDC(0);
Bmp := TBitmap.Create;
Bmp.SetSize (Screen.Width,Screen.Height);
end
else
begin
Bmp := TBitmap.Create;
dc := GetWindowDC(wnd);
GetWindowRect(wnd,r);
Bmp.SetSize(r.Right-r.Left,r.Bottom-r.Top);
end;
BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,DC,0,0,SRCCOPY);
Result:= bmp;
ReleaseDC(wnd,dc);
end;
procedure Screen2File(const aFileName: string);
var
dc: HDC;
begin
dc := LclIntf.GetDC(0);
try
with TPicture.Create do
try
Bitmap.LoadFromDevice(dc);
SaveToFile(aFileName);
finally
Free;
end;
finally
LclIntf.ReleaseDC(0 , dc);
end;
end;
zoltanleo писал(а):Alex2013
имхо, лучше пользовать кроссплатформенный способ. Он к тому же и проще.
procedure TForm1.Button1Click(Sender: TObject);
var
MyBitmap: TBitmap;
ScreenDC: HDC;
begin
MyBitmap:= TBitmap.Create;
try
ScreenDC:= GetDC(0);
try
MyBitmap.LoadFromDevice(ScreenDC);
finally
ReleaseDC(0,ScreenDC);
end;
Image1.Picture.Assign(MyBitmap);
finally
FreeAndNil(MyBitmap);
end;
end;
Alex2013 писал(а):Нет понятно, что в GetDC нужно подставить хембел окна, но как его получить
iskander писал(а):Alex2013 писал(а):Нет понятно, что в GetDC нужно подставить хембел окна, но как его получить
А TForm.Handle это по-твоему что?
Alex2013 писал(а):а интересны в первую очередь "чужие" !
iskander писал(а):Для любителей чужих окон в винде есть EnumWindows/EnumChildWindows.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 29