Не могу сохранить back buffer в файл

[KennyRIM]

При сохранении возвращается ошибка, файл записан наполовину. В инете встречается много информации о том, как рендерить в текстуру и как ее потом юзать. А вот как сохранить - ничего. Lock на буфере тоже не проходит. Может, есть работающие примеры? Отрендерил, сохранил...

[GLEB]

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

Public Sub ScreenShot()
Dim ScrShot As Direct3DSurface8
Dim tmpPAL As PALETTEENTRY
Dim tmpRECT As RECT
tmpRECT.Left = 0
tmpRECT.Top = 0
tmpRECT.Right = 640
tmpRECT.bottom = 480
Set ScrShot = d3ddevice.GetBackBuffer(0,
D3DBACKBUFFER_TYPE_MONO)
D3DX.SaveSurfaceToFile "C:\1.bmp", D3DXIFF_BMP, ScrShot, tmpPAL, tmpRECT
End Sub

Попробуй так.

[KennyRIM]

Спасибо, вроде работает