PureBasic Forums - English

Code: Select all

 Public Sub SaveScreenShot(ByVal sFilename As String)
    Dim oSurface As Direct3DSurface8
    Dim SrcPalette As PALETTEENTRY
    Dim SrcRect As RECT
    Dim DispMode As D3DDISPLAYMODE

    'get display dimensions
    g_oDevice.GetDisplayMode DispMode

    'create a surface to put front buffer on,
    'GetFrontBuffer always returns D3DFMT_A8R8G8B8
    Set oSurface = g_oDevice.CreateImageSurface(DispMode.Width, _
            DispMode.Height, _
            D3DFMT_A8R8G8B8)

    'get data from front buffer
    g_oDevice.GetFrontBuffer oSurface

    'we are saving entire area of this surface
    With SrcRect
        .Left = 0
        .Right = DispMode.Width
        .Top = 0
        .Bottom = DispMode.Height
    End With

    'save this surface to a BMP file
    g_oD3DX.SaveSurfaceToFile sFilename, _
            D3DXIFF_BMP, _
            oSurface, _
            SrcPalette, _
            SrcRect
End Sub
 

Code: Select all

;
; get the necessary includes here:
; http://www.purebasic.fr/english/viewtopic.php?t=16652
;
IncludePath "include"
IncludeFile "dx8.h.pb"


#D3DXIFF_BMP = 0



Import "d3d8.lib"
 Direct3DCreate8(a.l = #D3D_SDK_VERSION)
EndImport


;
; The library ('d3dx8.lib') supplied with PB needs the DLL 'd3dx8.dll' from
; which I somehow can't remember where I got it from, I think it was PellesC
;
; The recommended way is to use the static library that comes with the dx8-sdk,
; simply copy it over to your "/PureLibraries/Windows/Libraries" directory
;
; If you're running into "unresolved external symbols", uncomment the next line:
;Import "msvcrt.lib" : EndImport
;
; ###
; ### NOTE: this will only work with PB v4.0b8 and above, beta7 and lower will
; ###       complain about "multiply defined symbol __fltused"
; ###
;
Import "d3dx8.lib"
  D3DXSaveSurfaceToFileA(pDestFile.p-ascii, DestFormat.l, pSrcSurface.IDirect3DSurface8, *pSrcPalette.PALETTEENTRY,  *pSrcRect.RECT)
EndImport



;
;
;


hWnd = GetForegroundWindow_()  ; just to have a window handle for CreateDevice()
;
;
;
d3d.IDirect3D8 = Direct3DCreate8()


d3d\GetAdapterDisplayMode(#D3DADAPTER_DEFAULT, @ddm.D3DDISPLAYMODE)

d3dpp.D3DPRESENT_PARAMETERS
ZeroMemory_(@d3dpp, SizeOf(D3DPRESENT_PARAMETERS))

d3dpp\Windowed = #True
d3dpp\Flags = #D3DPRESENTFLAG_LOCKABLE_BACKBUFFER
d3dpp\BackBufferFormat = ddm\Format
d3dpp\BackBufferHeight = ddm\Height
d3dpp\BackBufferWidth = ddm\Width
d3dpp\MultiSampleType = #D3DMULTISAMPLE_NONE
d3dpp\SwapEffect = #D3DSWAPEFFECT_DISCARD
d3dpp\hDeviceWindow = hWnd
d3dpp\FullScreen_PresentationInterval = #D3DPRESENT_INTERVAL_DEFAULT
d3dpp\FullScreen_RefreshRateInHz = #D3DPRESENT_RATE_DEFAULT



If d3d\CreateDevice(#D3DADAPTER_DEFAULT, #D3DDEVTYPE_HAL, hWnd, #D3DCREATE_SOFTWARE_VERTEXPROCESSING , @d3dpp, @d3dDevice.IDirect3DDevice8) = #D3D_OK
  If d3dDevice\CreateImageSurface(ddm\Width, ddm\Height, #D3DFMT_A8R8G8B8, @surface.IDirect3DSurface8) = #D3D_OK
    If d3dDevice\GetFrontBuffer(surface) = #D3D_OK
      If D3DXSaveSurfaceToFileA("c:\filename.bmp", #D3DXIFF_BMP, surface, #Null, #Null) = #D3D_OK
        Debug "screenshot saved!"
      EndIf
    EndIf
  EndIf
EndIf