Delphi 控制摄像头[4]

sendmessage(hwndc, wm_cap_driver_connect, 0, 0);
sendmessage(hwndc, wm_cap_set_scale, 1, 0);
sendmessage(hwndc, wm_cap_set_previewrate, 66, 0);
sendmessage(hwndc, wm_cap_set_overlay, 1, 0);
sendmessage(hwndc, wm_cap_set_preview, 1, 0);
end;

end;

procedure tform1.button2click(sender: tobject);
begin
if hwndc <> 0 then begin
sendmessage(hwndc, wm_cap_driver_disconnect, 0, 0);
hwndc := 0;
end;
end;

procedure tform1.button3click(sender: tobject);
begin
if hwndc <> 0 then begin
sendmessage(hwndc,wm_cap_savedib,0,longint(pchar(‘c:\\test.bmp‘)));
end;
end;

procedure tform1.button4click(sender: tobject);
begin
if hwndc <> 0 then
begin
sendmessage(hwndc,wm_cap_file_set_capture_filea,0, longint(pchar(‘c:\\test.avi‘)));
sendmessage(hwndc, wm_cap_sequence, 0, 0);
end;
end;

procedure tform1.button5click(sender: tobject);
begin
if hwndc <> 0 then begin
sendmessage(hwndc, wm_cap_stop, 0, 0);
end;
end;

procedure tform1.formclose(sender: tobject; var action: tcloseaction);
begin
if hwndc <> 0 then begin
sendmessage(hwndc, wm_cap_driver_disconnect, 0, 0);
end;
end;

end.



如果电脑没有摄像头，但又想看看程序的效果，可以么？
呵呵，当然可以，找个虚拟摄像头不就搞定，大家可以试试softcam这个软件，它是一个名副其实的软件摄像机，
能模拟成为“真实的”摄像机，提醒一下各位，大家可不要用这个东东用在qq，msn等聊天软件上欺骗mm或gg啊。