Delphi中使用DirectX截屏函数

 procedure CaptureScreen(Const FileName: string);

var

BitsPerPixel: Byte;

pD3D: IDirect3D9;

pSurface: IDirect3DSurface9;

g_pD3DDevice: IDirect3DDevice9;

D3DPP: TD3DPresentParameters;

ARect: TRect;

LockedRect: TD3DLockedRect;

BMP: TBitmap;

i, p: Integer;

begin

BitsPerPixel := GetDeviceCaps(Canvas.Handle, BITSPIXEL);

FillChar(d3dpp, SizeOf(d3dpp), 0);

D3DPP.Windowed := True;

D3DPP.Flags := D3DPRESENTFLAG_LOCKABLE_BACKBUFFER;

D3DPP.SwapEffect := D3DSWAPEFFECT_DISCARD;

D3DPP.BackBufferWidth := Screen.Width;

D3DPP.BackBufferHeight := Screen.Height;

D3DPP.BackBufferFormat := D3DFMT_X8R8G8B8;

pD3D := Direct3DCreate9(D3D_SDK_VERSION);

pD3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, GetDesktopWindow,

D3DCREATE_SOFTWARE_VERTEXPROCESSING, @D3DPP, g_pD3DDevice);

g_pD3DDevice.CreateOffscreenPlainSurface(Screen.Width, Screen.Height, D3DFMT_A8R8G8B8, D3DPOOL_SCRATCH, pSurface, nil);

g_pD3DDevice.GetFrontBufferData(0, pSurface);

// use D3D to save surface. Notes: D3DX%ab.dll is required!

// D3DXSaveSurfaceToFile('Desktop.bmp', D3DXIFF_BMP, pSurface, nil, nil);

// use Bitmap to save surface

ARect := Screen.DesktopRect;

pSurface.LockRect(LockedRect, @ARect, D3DLOCK_NO_DIRTY_UPDATE or D3DLOCK_NOSYSLOCK or D3DLOCK_READONLY);

BMP := TBitmap.Create;

BMP.Width := Screen.Width;

BMP.Height := Screen.Height;

case BitsPerPixel of

8: BMP.PixelFormat := pf8bit;

16: BMP.PixelFormat := pf16bit;

24: BMP.PixelFormat := pf24bit;

32: BMP.PixelFormat := pf32bit;

end;

p := Cardinal(LockedRect.pBits);

for i := 0 to Screen.Height - 1 do

begin

CopyMemory(BMP.ScanLine[i], Ptr(p), Screen.Width * BitsPerPixel div 8);

p := p + LockedRect.Pitch;

end;

BMP.SaveToFile(FileName);

BMP.Free;

pSurface.UnlockRect;

end;

procedure CaptureScreen(const FileName: string;Const FileType: TD3DXImageFileFormat);

var

pD3D: IDirect3D9;

pSurface: IDirect3DSurface9;

g_pD3DDevice: IDirect3DDevice9;

D3DPP: TD3DPresentParameters;

begin

FillChar(d3dpp, SizeOf(d3dpp), 0);

D3DPP.Windowed := True;

D3DPP.Flags := D3DPRESENTFLAG_LOCKABLE_BACKBUFFER;

D3DPP.SwapEffect := D3DSWAPEFFECT_DISCARD;

D3DPP.BackBufferWidth := Screen.Width;

D3DPP.BackBufferHeight := Screen.Height;

D3DPP.BackBufferFormat := D3DFMT_X8R8G8B8;

pD3D := Direct3DCreate9(D3D_SDK_VERSION);

pD3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, GetDesktopWindow,

D3DCREATE_SOFTWARE_VERTEXPROCESSING, @D3DPP, g_pD3DDevice);

g_pD3DDevice.CreateOffscreenPlainSurface(Screen.Width, Screen.Height, D3DFMT_A8R8G8B8, D3DPOOL_SCRATCH, pSurface, nil);

g_pD3DDevice.GetFrontBufferData(0, pSurface);

D3DX9.D3DXSaveSurfaceToFile(PChar(FileName),FileType,pSurface,nil,nil);

pSurface := nil;

g_pD3DDevice := nil;

pD3D := nil;

end;

传递两个参数，第一个参数指定为文件名，第二个参数指定为文件类型

支持7种类型

_D3DXIMAGE_FILEFORMAT = (

D3DXIFF_BMP {= 0},

D3DXIFF_JPG {= 1},

D3DXIFF_TGA {= 2},

D3DXIFF_PNG {= 3},

D3DXIFF_DDS {= 4},

D3DXIFF_PPM {= 5},

D3DXIFF_DIB {= 6}

);

再给一个使用dX8实现的，上面给的是用Dx9实现的函数

procedure CaptureScreen(const FileName: string;Const FileType: TD3DXImageFileFormat);

var

pD3D: IDirect3D8;

pSurface: IDirect3DSurface8;

g_pD3DDevice: IDirect3DDevice8;

D3DPP: TD3DPresentParameters;

begin

FillChar(d3dpp, SizeOf(d3dpp), 0);

D3DPP.Windowed := True;

D3DPP.Flags := D3DPRESENTFLAG_LOCKABLE_BACKBUFFER;

D3DPP.SwapEffect := D3DSWAPEFFECT_DISCARD;

D3DPP.BackBufferWidth := Screen.Width;

D3DPP.BackBufferHeight := Screen.Height;

D3DPP.BackBufferFormat := D3DFMT_X8R8G8B8;

pD3D := Direct3DCreate8(D3D_SDK_VERSION);

pD3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, GetDesktopWindow,

D3DCREATE_SOFTWARE_VERTEXPROCESSING, D3DPP, g_pD3DDevice);

g_pD3DDevice.CreateImageSurface(Screen.Width, Screen.Height, D3DFMT_A8R8G8B8, pSurface);

g_pD3DDevice.GetFrontBuffer(pSurface);

D3DX8.D3DXSaveSurfaceToFile(PChar(FileName),FileType,pSurface,nil,nil);

pSurface := nil;

g_pD3DDevice := nil;

pD3D := nil;

end;

再给一个直接使用系统GDI实现的抓屏

procedure CaptureScreen(const FileName: string);overload;

var

nScreenWidth,nScreenHeight: integer;

ScreenDc,hCaptureDC: HDC;

bmp: TBitmap;

begin

nScreenWidth := GetSystemMetrics(SM_CXSCREEN);

nScreenHeight := GetSystemMetrics(SM_CYSCREEN);

ScreenDc := GetDC(GetDesktopWindow);

hCaptureDC := CreateCompatibleDC(ScreenDc);

bmp := TBitmap.Create;

bmp.Handle :=CreateCompatibleBitmap(ScreenDc,nScreenWidth, nScreenHeight);

SelectObject(hCaptureDC,bmp.Handle);

BitBlt(hCaptureDC,0,0,nScreenWidth,nScreenHeight,ScreenDc,0,0,SRCCOPY);

bmp.SaveToFile(fileName);

ReleaseDC(GetDesktopWindow,ScreenDc);

DeleteDC(hCaptureDC);

bmp.Free;

end;

通过上面这一步，我们可以很容易联想到用来抓取任何一个控件的表面图象，函数如下：

procedure CaptureControl(Control: TWinControl;const FileName: string);overload;

var

ControlWidth,ControlHeight: integer;

ControlDc,hCaptureDC: HDC;

bmp: TBitmap;

begin

ControlWidth := Control.ClientWidth;

ControlHeight := Control.ClientHeight;

ControlDc := GetDC(Control.Handle);

hCaptureDC := CreateCompatibleDC(ControlDc);

bmp := TBitmap.Create;

bmp.Handle :=CreateCompatibleBitmap(ControlDc,ControlWidth,ControlHeight);

SelectObject(hCaptureDC,bmp.Handle);

BitBlt(hCaptureDC,0,0,ControlWidth,ControlHeight,ControlDc,0,0,SRCCOPY);

bmp.SaveToFile(fileName);

ReleaseDC(GetDesktopWindow,ControlDc);

DeleteDC(hCaptureDC);

bmp.Free;

end;