长时间调用屏幕截取出错 Out of resources

Question

截取屏幕画面保存到 Abmp 中。function CaptureScreen4(Abmp: TBitmap): Boolean;
var
  bmp: TBitmap;
  adc: HDC;
begin
  Result := False;
  adc := GetDC(0);
  if adc <> 0 then
  try
    bmp := TBitmap.Create();
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    Result := BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height,
              adc, 0, 0, SRCCOPY);
    if Result then
    begin
      Abmp.Width := bmp.Width;
      Abmp.Height := bmp.Height;
      Abmp.Canvas.Draw(0, 0, bmp);
    end;
  finally
    bmp.Free();
    ReleaseDC(0, adc);
  end;
end;大概每秒钟两次，运行2、3小时后，出错 Out of resources，怀疑是TBitmap类型造成的Device context句柄泄漏

Answer 1

最好不要频繁的创建TBitmap，只创建一次，然后循环使用，这样试试

Answer 2

谢谢楼上的朋友，我也测试过，不是重复创建的问题，我用全局变量，只创建一次Bitmap，还是一样的效果。

Answer 3

If a rotation or shear transformation is in effect in the source device context, BitBlt returns an error.

Answer 4

你修改一下你的代码看看到底是出了什么错  if Result then
  begin
  Abmp.Width := bmp.Width;
  Abmp.Height := bmp.Height;
  Abmp.Canvas.Draw(0, 0, bmp);
  end else SysErrorMessage(GetLasterror);不就知道是不是这里出问题了吗！

Answer 5

长时间运行出错 Out of resources 基本可以肯定是有地方内存没有释放，错误也未必就是在这个函数里面

Answer 6

可以用process explorer测试一下句柄数量，看看是不是句柄泄露的问题

Answer 7

谢谢各位的帮助。昨晚一不小心发现了造成句柄泄漏的地方，不在这段代码，在别的地方，但是因为是调用的API，真正造成泄漏的地方不会出现异常。而在这个TBitmap代码里因为资源问题产生异常。错怪了TBitmap。