begin
sendmessage(hWndc,WM_CAP_GRAB_FRAME,0,0);
pregrab:=true;
end;
end;
Panel2.Visible:=true;
panel1.Visible:=false;
image1.Visible:=true;
image2.Visible:=false;
GetDir(0,fldname);
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_SAVEDIB,0,longint(pchar(fldname+'\1.bmp')));
//将截取的图像保存成一个BMP文件
image1.Picture.LoadFromFile(fldname+'\1.bmp');
//并通过image1调用该BMP文件
end;
2.3 移动鼠标截取图像 在每次移动鼠标并按下左键时都重新调用一次截取的整幅图像,是因为在这幅图像上每按下一次左键就会在这幅图像上画一个矩形框,但并不能保证每一次选中的图像就是想要的理想图像。此就是每按下一次鼠标左键时就要重新调用一次的原因,这方法虽然些有复杂,但很实用,效果很好。
|