请教高手，怎么用delphi控制图象采集卡？

Question

dada老大，你有那样的例子吗？能否发给我，谢谢！
我的邮件地址是[email protected]

Answer 1

去找一个vfw.pas的接口程序
大富翁上面好象有
就可以用delphi调用VFW的函数了

Answer 2

rayray(rayray) ,vfw.pas是什么东东啊?

Answer 3

很简单，就一个api函数，给你啦
var
  Form1: TForm1;
      CapturingAVI:boolean;
    hwndc:Thandle;
implementation{$R *.DFM}
function   callbackfun:integer;
         begin
            sendmessage(hwndc,wm_cap_grab_frame,0,0);
         end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  //starting..
  hwndc:=capcreateCaptureWindow('Demo',ws_child or ws_visible,
          avi.Left,avi.Top,320,240,
          handle,0);
  if hwndc<>0 then
    begin
    sendMessage(hWndc,WM_Cap_Driver_Connect,0,0);
    settimer(handle,2,round(1000/24),@callbackfun);
    end;
end;procedure TForm1.ToolButton2Click(Sender: TObject);
begin
//停 killtimer(hwndc,2);
 sendMessage(hwndc,wm_cap_driver_disconnect,0,0);
end;end.