delphi 屏幕抓图有关问题

2013-01-01

delphi 屏幕抓图问题摄像头捕捉程序我在上面textout了一行文字但是抓图的时候根本没有我的这行文字啊？

delphi 屏幕抓图问题
摄像头捕捉程序我在上面textout了一行文字但是抓图的时候根本没有我的这行文字啊？
我想抓图的时候连这行文字也取到在save中该如何写？

procedure TForm1.A_BitmapExecute(Sender: TObject);
var
  ABitmap: TBitmap;
begin
  if not SaveDialog1.Execute then exit;
  ABitmap := TBitmap.Create;
  try
    SampleGrabber1.GetBitmap(ABitmap);
    ABitmap.SaveToFile(SaveDialog1.FileName);
  finally
    ABitmap.Free;
  end;
end;

我是这样写的请问该怎么改正？
[解决办法]
ABitmap.canvas.textout(0,0,'楼主我接分');
ABitmap.SaveToFile(SaveDialog1.FileName);

[解决办法]
抓图时，你textout的文字已经被callback出来的图像刷新了.

解决方法有两种
1.调用DirectShow，写个摄像头的Filter，主要实现就是显示文字
2.如mwy654321说的一样，将callback出来的图像截图保存在ABitmap中，然后再将文字textout在截取出来的这个ABitmap上....

热点排行

.NET

delphi 屏幕抓图有关问题