Screenshot

[GLEB]

Как можно сделать снимок экрана в DX8 и сохранить его в файл?

[Mikle]

А самому трудно найти?
http://bbs.vbstreets.ru/viewtopic.php?t=2774

[GLEB]

Вот это уж точно работает:

Dim RC As RECT
With RC
.Top = 0
.Left = 0
.Bottom = 600
.Right = 800
End With

Back.BltToDC Me.hDC, RC, RC
SavePicture Me.Image, "Filename.bmp"

Так это вроде DDraw или нет?

[Mikle]

Это DD, но там не только это (ClipBoard). Вот средствами D3D, это тоже уже было:

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

Sub ScreenShot()
Dim ScrShot As Direct3DSurface8
Dim tmpPAL As PALETTEENTRY
Dim tmpRECT As RECT
  tmpRECT.Left = 0
  tmpRECT.Top = 0
  tmpRECT.Right = scrWidth
  tmpRECT.bottom = scrHeight
  Set ScrShot = d3dDevice.GetBackBuffer(0, D3DBACKBUFFER_TYPE_MONO)
  d3dx.SaveSurfaceToFile App.Path & "\screen.bmp", D3DXIFF_BMP, ScrShot, tmpPAL, tmpRECT
  Set ScrShot = Nothing
End Sub


[GLEB]

Благодарю, Mikle, большое спасибо

[eugene2005]

а как законвертить сразу в ЖЭПЭГЭ? а то 2мб файла нагружает

[d3drm]

а как законвертить сразу в ЖЭПЭГЭ? а то 2мб файла нагружает

никак

[eugene2005]

а как законвертить сразу в ЖЭПЭГЭ? а то 2мб файла нагружает

никак

выпей йёду!