能够播放出来的就行了的摄像头控件,我们急用!
解决方案 »
- 急求:TurboPascal下RS232通信的Unit或Procedure!!
- 如何让BHO只对IEXPLORE起作用,而对EXPLORE不起作用啊
- 各位高手...我要把数据导放到Excel报表中呢?
- ACCESS中取记录的请几条怎么用啊,TOP n is over???
- DBGrid 的編輯操作 在線
- 怎样在dbgrid回车后,让当前记录行改变颜色
- treeview失去焦点后,如何保持高亮度显示?在线等待
- 大虾们,快帮我想想办法吧!
- 用delphi创建的excel 文件,能在创建时对他加密吗?
- 我要《电脑编程技巧与维护》的网址
- 我安装了一大堆vcl控件,会不会影响以后安装包的大小
- 在线等待关于代码的一次使用问题!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
OpenVideo: TButton;
CloseVideo: TButton;
GrabFrame: TButton;
procedure FormCreate(Sender: TObject);
procedure OpenVideoClick(Sender: TObject);
procedure CloseVideoClick(Sender: TObject);
procedure GrabFrameClick(Sender: TObject);
private
{ Private declarations }
hWndC : THandle;
CapturingAVI : bool;
public
{ Public declarations }
end;var
Form1: TForm1;implementationconst WM_CAP_START = WM_USER;
const WM_CAP_STOP = WM_CAP_START + 68;
const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
const WM_CAP_SAVEDIB = WM_CAP_START + 25;
const WM_CAP_GRAB_FRAME = WM_CAP_START + 60;
const WM_CAP_SEQUENCE = WM_CAP_START + 62;
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20;function capCreateCaptureWindowA(lpszWindowName : PCHAR;
dwStyle : longint;
x : integer;
y : integer;
nWidth : integer;
nHeight : integer;
ParentWin : HWND;
nId : integer): HWND;
STDCALL EXTERNAL 'AVICAP32.DLL';{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
hWndC := 0;
end;procedure TForm1.OpenVideoClick(Sender: TObject);
// 打开视频窗口
begin
hWndC := capCreateCaptureWindowA('自己的显示窗口',
WS_CHILD or WS_VISIBLE ,
Panel1.Left,
Panel1.Top,
Panel1.Width,
Panel1.Height,
Form1.Handle,
0);
if hWndC <> 0 then
SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);
end;procedure TForm1.CloseVideoClick(Sender: TObject);
// 关闭视频窗口
begin
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
end;
end;procedure TForm1.GrabFrameClick(Sender: TObject);
// 拍照(一张)
begin
if hWndC <> 0 then
SendMessage(hWndC, WM_CAP_GRAB_FRAME, 0, 0);
end;end.
今天我试了下你提供的代码,其中开始事件,不能播放阿.请给予进一步指教,不胜感激!
能否提供一下capCreateCaptureWindowA函数中各个参数的解释吗?
谢谢!