Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=1034683 Sun, 05 Mar 2006 17:27:05 +0000 Скриншот https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=1034683

procedure CaptureScreen(AFileName: string);

const

CAPTUREBLT = 000000;

var

hdcScreen: HDC;

hdcCompatible: HDC;

bmp: TBitmap;

hbmScreen: HBITMAP;

begin

// Create a normal DC and a memory DC for the entire screen. The

// normal DC provides a "snapshot" of the screen contents. The

// memory DC keeps a copy of this "snapshot" in the associated

// bitmap.

hdcScreen := CreateDC('DISPLAY', nil, nil, nil);

hdcCompatible := CreateCompatibleDC(hdcScreen);

// Create a compatible bitmap for hdcScreen.

hbmScreen := CreateCompatibleBitmap(hdcScreen,

GetDeviceCaps(hdcScreen, HORZRES),

GetDeviceCaps(hdcScreen, VERTRES));

// Select the bitmaps into the compatible DC.

SelectObject(hdcCompatible, hbmScreen);

bmp := TBitmap.Create;

bmp.Handle := hbmScreen;

BitBlt(hdcCompatible,

0, 0,

bmp.Width, bmp.Height,

hdcScreen,

0, 0,

SRCCOPY or CAPTUREBLT);

bmp.SaveToFile(AFileName);

bmp.Free;

DeleteDC(hdcScreen);

DeleteDC(hdcCompatible);

end;

// from http://www.swissdelphicenter.ch

]]> Smike Графика, звук, анимация, игры https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=662251 Tue, 29 Mar 2005 03:51:46 +0000 Скриншот https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=662251

function CreateWindwowBitmap(Wnd: HWND): HBITMAP;

var

R: TRect;

W, H: Integer;

DC, memDC: HDC;

bm, oldBM: HBITMAP;

begin

GetWindowRect(Wnd, R);

W := R.Right - R.Left;

H := R.Bottom - R.Top;

DC := GetWindowDC(Wnd);

memDC := CreateCompatibleDC(DC);

bm := CreateCompatibleBitmap(DC, W, H);

oldBM := SelectObject(memDC, bm);

BitBlt(memDC, 0,0, w, h, DC, 0,0, SRCCOPY);

SelectObject(memDC, oldBM);

DeleteDC(memDC);

DeleteObject(oldBM);

ReleaseDC(Wnd, DC);

Result := bm;

end;

Автор: Krid]]> s-mike Графика, звук, анимация, игры https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=599946 Thu, 03 Feb 2005 11:04:21 +0000 Скриншот https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=599946

keybd_event(VK_SNAPSHOT,1,KEYEVENTF_KEYUP,0);

OpenClipBoard(Form1.handle);

try

SetClipBoardData(CF_DIB,Form1.handle);

vv:=GetClipBoardData(CF_BITMAP);

Image1.Picture.LoadFromClipboardFormat(CF_BITMAP,vv,0);

finally

CloseClipBoard;

EmptyClipBoard;

end;

]]> Song Графика, звук, анимация, игры https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=535295 Tue, 07 Dec 2004 09:54:27 +0000 Скриншот https://forum.sources.ru/index.php?showtopic=75199&view=findpost&p=535295

// В качестве параметров передаются:

// AHandle - хэндл окна, скриншот которого мы хочем получить

// CompressPercent - процент сжатия картинки

// AImage - картинка, в которую будет помещено изображение

// в случае успешного скриншота функция вернет True

function GetScreenShot(const AHandle: THandle; const CompressPercent: Byte;

var AImage: TJPEGImage): Boolean;

var

fBitmap: TBitmap;

DC: HDC;

Rect: TRect;

begin

Result := False;

if AImage = nil then Exit;

DC := GetDC(AHandle);

if DC <> 0 then

try

fBitmap := TBitmap.Create;

try

if not GetClientRect(AHandle, Rect) then Exit;

fBitmap.Width := Rect.Right - Rect.Left;

fBitmap.Height := Rect.Bottom - Rect.Top;

fBitmap.PixelFormat := pf32bit;

Result := BitBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width,

fBitmap.Height, DC, 0, 0, SRCCOPY);

if not Result then Exit;

AImage.Assign(fBitmap);

AImage.CompressionQuality := CompressPercent;

finally

fBitmap.Free;

end;

finally

ReleaseDC(AHandle, DC);

end;

// Пример использования...

procedure TForm1.Button1Click(Sender: TObject);

var

Image: TJPEGImage;

begin

// Скриншот рабочего стола

Image := TJPEGImage.Create;

try

if GetScreenShot(GetDesktopWindow, 150, Image) then

Image1.Picture.Assign(Image);

finally

Image.Free;

end;

// Скриншот нашей формы

Image := TJPEGImage.Create;

try

if GetScreenShot(Handle, 150, Image) then

Image2.Picture.Assign(Image);

finally

Image.Free;

end;

]]> Rouse_ Графика, звук, анимация, игры