知识大全利用Delphi编辑控制摄像头（二）

Posted 2022-07-22 知

篇首语：生活就是这样，别人看结果，自己撑过程。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用Delphi编辑控制摄像头（二）相关的知识，希望对你有一定的参考价值。

利用Delphi编辑控制摄像头（二） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

完整的程序代码如下

unit Unit ; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls ExtCtrls; type TForm = class(TForm) Panel : TPanel; Button : TButton; Button : TButton; Button : TButton; Button : TButton; Button : TButton; procedure Button Click(Sender: TObject); procedure Button Click(Sender: TObject); procedure Button Click(Sender: TObject); procedure Button Click(Sender: TObject); procedure Button Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private hWndC : THandle; public Public declarations end; var Form : TForm ; const WM_CAP_START = WM_USER; const WM_CAP_STOP = WM_CAP_START + ; const WM_CAP_DRIVER_CONNECT = WM_CAP_START + ; const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + ; const WM_CAP_SAVEDIB = WM_CAP_START + ; const WM_CAP_GRAB_FRAME = WM_CAP_START + ; const WM_CAP_SEQUENCE = WM_CAP_START + ; const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + ; const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ const WM_CAP_SET_OVERLAY =WM_CAP_START+ const WM_CAP_SET_PREVIEW =WM_CAP_START+ const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + ; const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START + ; const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START + ; const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START + ; const WM_CAP_SET_SCALE=WM_CAP_START+ const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ function capCreateCaptureWindowA(lpszWindowName : PCHAR; dwStyle : longint;x : integer;y : integer;nWidth : integer; nHeight : integer;ParentWin : HWND;nId : integer): HWND; STDCALL EXTERNAL AVICAP DLL ; implementation $R * dfm procedure TForm Button Click(Sender: TObject); begin hWndC := capCreateCaptureWindowA( My Own Capture Window WS_CHILD or WS_VISIBLE Panel Left Panel Top Panel Width Panel Height Form Handle ); hWndC := capCreateCaptureWindowA( My Own Capture Window WS_CHILD or WS_VISIBLE Panel Left Panel Top Panel Width Panel Height Form Handle ); if hWndC <> then begin SendMessage(hWndC WM_CAP_SET_CALLBACK_VIDEOSTREAM ); SendMessage(hWndC WM_CAP_SET_CALLBACK_ERROR ); SendMessage(hWndC WM_CAP_SET_CALLBACK_STATUSA ); SendMessage(hWndC WM_CAP_DRIVER_CONNECT ); SendMessage(hWndC WM_CAP_SET_SCALE ); SendMessage(hWndC WM_CAP_SET_PREVIEWRATE ); SendMessage(hWndC WM_CAP_SET_OVERLAY ); SendMessage(hWndC WM_CAP_SET_PREVIEW ); end; end; procedure TForm Button Click(Sender: TObject); begin if hWndC <> then begin SendMessage(hWndC WM_CAP_DRIVER_DISCONNECT ); hWndC := ; end; end; procedure TForm Button Click(Sender: TObject); begin if hWndC <> then begin SendMessage(hWndC WM_CAP_SAVEDIB longint(pchar( c:\\test bmp ))); end; end; procedure TForm Button Click(Sender: TObject); begin if hWndC <> then begin SendMessage(hWndC WM_CAP_FILE_SET_CAPTURE_FILEA Longint(pchar( c:\\test avi ))); SendMessage(hWndC WM_CAP_SEQUENCE ); end; end; procedure TForm Button Click(Sender: TObject); begin if hWndC <> then begin SendMessage(hWndC WM_CAP_STOP ); end; end; procedure TForm FormClose(Sender: TObject; var Action: TCloseAction); begin if hWndC <> then begin SendMessage(hWndC WM_CAP_DRIVER_DISCONNECT ); end; end; end

如果电脑没有摄像头但又想看看程序的效果可以么？

当然可以找个虚拟摄像头不就搞定大家可以试试SoftCam这个软件它是一个名副其实的软件摄像机能模拟成为真实的摄像机提醒一下各位大家可不要用这个东东用在QQ MSN等聊天软件上欺骗MM或GG啊

关于摄像头编程大家也可以看看这组VCL组件 DSPack DSPack是一套使用微软Direct Show和DirectX技术的类和组件设计工作于DirectX 支持系统Win X ME 和Windows XP

cha138/Article/program/Delphi/201311/24709

知识大全 利用Delphi编辑控制摄像头（二）

知识大全利用Delphi编辑控制摄像头（二）