delphi 屏幕抓图问题

Question

摄像头捕捉程序 我在上面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;我是这样写的 请问该怎么改正？

Answer 1

ABitmap.canvas.textout(0,0,'楼主我接分');
ABitmap.SaveToFile(SaveDialog1.FileName);

Answer 2

谢谢 但是我好像没说清楚 我用的是callback出来的图像 也就是图像传输在我的image控件上显示的 然后呢 我用image.canvas.textout(0,0,'谢谢你帮忙);
我在抓图事件中还是我上面那样写的 但是保存出来的图像是没有这行文字的啊 
请问该如何实现？

Answer 3

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