高手帮忙！用delphi截图怎么实现？

Question

用delphi截图，视频是从一个皮肤测试仪传过来的，在DELPHI中的一个FORM中放一块地方让它显示，点击按钮时截图，如何做？高手帮忙，谢谢谢谢，非常感谢！

Answer 1

procedure TForm1.CaptureScreen;
var
  Fullscreen:Tbitmap;
  FullscreenCanvas:TCanvas;
  dc:HDC;
begin
    Fullscreen:=TBitmap.Create;    //创建一个BITMAP来存放图像
    Fullscreen.Width:=screen.width;
    Fullscreen.Height:=screen.Height;
    DC:=GetDC(0);    //取得屏幕的DC，参数0指的是屏幕
    FullscreenCanvas:=TCanvas.Create;  //创建一个CANVAS对象
    FullscreenCanvas.Handle:=DC;
    Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height),
                   fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height));  //把整个屏幕复制到BITMAP中
    FullscreenCanvas.Free;    //释放CANVAS对象
    ReleaseDC(0,DC);    //释放DC
    Image1.Picture.Bitmap:=fullscreen;    //拷贝下来的图像赋给IMAGE对象
    Image1.Width:=fullscreen.Width;
    Image1.Height:=fullscreen.Height;
    fullscreen.free;    //释放bitmap
end;
这是抓桌面截图的，自己参考修改下。。

Answer 2

既然有接口，肯定有抓图函数。如果是用VFW，就用VFW函数抓图。