Cuzっ 发表于 2015-4-13 16:17:43

D3D的后台截图复制不到TBITMAP


//GetFrontBufferData就正常,GetBackBuffer显示是0


function PresentCallback(const Self: IDirect3DDevice9;
      const SourceRect, DestRect: PRect; const DestWindowOverride: HWND;
      DirtyRegion: PRgnData): HResult; stdcall;
var

      MenuFont: D3DX9.ID3DXFont;
      rec: PRect;
      pSurface: IDirect3DSurface9;

      ARect: TRect;
      LockedRect: TD3DLockedRect;
      BitsPerPixel: Byte;
      BMP:TBitmap;
      i,p: Integer;
      x:integer;
begin

      self.CreateOffscreenPlainSurface(Screen.Width, Screen.Height, D3DFMT_A8R8G8B8, D3DPOOL_SYSTEMMEM, pSurface, nil);
                                                                                    // D3DPOOL_SCRATCH
      //self.GetFrontBufferData(0, pSurface);
      self.GetBackBuffer(0, 0, 0, pSurface);

      //这里可以直接正常保存
      //D3DXSaveSurfaceToFile('Desktop.bmp', D3DXIFF_BMP, pSurface, nil, nil);
      ARect := Screen.DesktopRect;
      pSurface.LockRect(LockedRect, @ARect, D3DLOCK_NO_DIRTY_UPDATE or D3DLOCK_NOSYSLOCK or D3DLOCK_READONLY);

      // use Bitmap to save surface
      BMP := TBitmap.Create;
      BitsPerPixel := GetDeviceCaps(GetWindowDC(GetDesktopWindow()), BITSPIXEL);
      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.Bits);
      //GetFrontBufferData就正常,GetBackBuffer显示是0
      outputdebugstring(pchar('--'+inttostr(p)));
      for i := 0 to Screen.Height - 1 do
      begin      
            CopyMemory(BMP.ScanLine, Ptr(p), Screen.Width * BitsPerPixel div 8);
            p := p + LockedRect.Pitch;   
      end;

      bmp.SaveToFile('a.bmp');
      bmp.Free;

      pSurface.UnlockRect;
      Result := PresentNext(self, SourceRect, DestRect, DestWindowOverride, DirtyRegion);
end;

jockerzoo 发表于 2015-4-13 16:17:43

高手云集 马上来看看

疼惜那份疼惜 发表于 2015-4-26 15:54:31


貌似很不错的样子

45383469 发表于 2015-5-17 01:32:53

执勤看帖，慢慢飘过得到一个海币. 然后用掉这个海币

疼惜那份疼惜 发表于 2015-5-27 01:10:02

回复一下 证明我来过

豆饼 发表于 2015-8-2 18:42:37

{:cry:}看不懂

zen1666542124 发表于 2015-12-10 21:20:03

感谢楼主，支持楼主-支持 海。
页: [1]
查看完整版本: D3D的后台截图复制不到TBITMAP