好久没有用Delphi,在CSDN上看到一段提取摄像头视频的代码有些不懂，在此请教大家！ ( 积分: 50 )

  • 主题发起人 主题发起人 apple058
  • 开始时间 开始时间
A

apple058

Unregistered / Unconfirmed
GUEST, unregistred user!
=====================================================
=====================================================

我很想知道程序中

const 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;

中 WM_USER,WM_CAP_START,WM_CAP_START....

1: 这些常量你们是怎么知道的？
2: 有这方面的帮助文档吗？
3: 这些是API方面的知识吗？
4: 我如果需要实现别的功能又应该是那些类似于 WM_USER 的东东呢？(我都不知道这里该称 WM_USER 为什么东西了)
5: 奇怪这些常量怎么没有声明是什么类型的，integer , String ...
const WM_CAP_START = WM_USER; 怎么就这么光秃秃的
（这个问题很蠢，因为本人最近在研究java. delphi差不多都忘光了）
6: HWND、THandle 各是什么类型？

多谢各位

=====================================================
=====================================================

代码如下：
const 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;
const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63
const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51
const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50
const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;
const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2;
const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;
const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;
const WM_CAP_SET_SCALE=WM_CAP_START+ 53
const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52

function capCreateCaptureWindowA(lpszWindowName : PCHAR; dwStyle : longint; x : integer;
y : integer;nWidth : integer;nHeight : integer;ParentWin : HWND;
nId : integer): HWND;STDCALL EXTERNAL 'AVICAP32.DLL';

上面的代码就是我们主要用到的一个函数和常量的定义。

好了，打开你的Delphi，新建一个工程，将上面的定义加上吧。

新建一个窗口，放个Panel上去，添加一个按钮，Caption设置为"开始"
这里需要定义一个全局变量，var hWndC : THandle;

开始按钮代码如下：

begin
hWndC := capCreateCaptureWindowA('My Own Capture Window',WS_CHILD or WS_VISIBLE ,Panel1.Left,Panel1.Top,Panel1.Width,Panel1.Height,Form1.Handle,0);

hWndC := capCreateCaptureWindowA('My Own Capture Window',WS_CHILD or WS_VISIBLE ,Panel1.Left,Panel1.Top,Panel1.Width,Panel1.Height,Form1.Handle,0);
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);
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;
按F9运行一下，怎么样，是不是可以看到摄像头的视屏了？

那怎么停下来？再加个按钮caption设置成"停止"
代码如下：
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
end;

视屏截到了，怎么把它给保存下来呢？

下面按两种方式保存，一个是BMP静态图，一个是AVI动画。

再放三个按钮到窗体上去，caption分别设置成"保存BMP"、"开始录像"、"停止录像"
三个按钮的代码分别如下：

//保存BMP
if hWndC <> 0 then begin
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('c:/test.bmp')));
end;

//开始录像
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;

//停止录像
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_STOP, 0, 0);
end;
 
=====================================================
=====================================================

我很想知道程序中

const 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;

中 WM_USER,WM_CAP_START,WM_CAP_START....

1: 这些常量你们是怎么知道的？
2: 有这方面的帮助文档吗？
3: 这些是API方面的知识吗？
4: 我如果需要实现别的功能又应该是那些类似于 WM_USER 的东东呢？(我都不知道这里该称 WM_USER 为什么东西了)
5: 奇怪这些常量怎么没有声明是什么类型的，integer , String ...
const WM_CAP_START = WM_USER; 怎么就这么光秃秃的
（这个问题很蠢，因为本人最近在研究java. delphi差不多都忘光了）
6: HWND、THandle 各是什么类型？

多谢各位

=====================================================
=====================================================

代码如下：
const 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;
const WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63
const WM_CAP_SET_OVERLAY =WM_CAP_START+ 51
const WM_CAP_SET_PREVIEW =WM_CAP_START+ 50
const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6;
const WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2;
const WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3;
const WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5;
const WM_CAP_SET_SCALE=WM_CAP_START+ 53
const WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52

function capCreateCaptureWindowA(lpszWindowName : PCHAR; dwStyle : longint; x : integer;
y : integer;nWidth : integer;nHeight : integer;ParentWin : HWND;
nId : integer): HWND;STDCALL EXTERNAL 'AVICAP32.DLL';

上面的代码就是我们主要用到的一个函数和常量的定义。

好了，打开你的Delphi，新建一个工程，将上面的定义加上吧。

新建一个窗口，放个Panel上去，添加一个按钮，Caption设置为"开始"
这里需要定义一个全局变量，var hWndC : THandle;

开始按钮代码如下：

begin
hWndC := capCreateCaptureWindowA('My Own Capture Window',WS_CHILD or WS_VISIBLE ,Panel1.Left,Panel1.Top,Panel1.Width,Panel1.Height,Form1.Handle,0);

hWndC := capCreateCaptureWindowA('My Own Capture Window',WS_CHILD or WS_VISIBLE ,Panel1.Left,Panel1.Top,Panel1.Width,Panel1.Height,Form1.Handle,0);
if hWndC <> 0 then
begin
SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0);
SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0);
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;
按F9运行一下，怎么样，是不是可以看到摄像头的视屏了？

那怎么停下来？再加个按钮caption设置成"停止"
代码如下：
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);
hWndC := 0;
end;

视屏截到了，怎么把它给保存下来呢？

下面按两种方式保存，一个是BMP静态图，一个是AVI动画。

再放三个按钮到窗体上去，caption分别设置成"保存BMP"、"开始录像"、"停止录像"
三个按钮的代码分别如下：

//保存BMP
if hWndC <> 0 then begin
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(pchar('c:/test.bmp')));
end;

//开始录像
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;

//停止录像
if hWndC <> 0 then begin
SendMessage(hWndC, WM_CAP_STOP, 0, 0);
end;
 
1: 这些常量你们是怎么知道的？
这个，是从书上看到的。
2: 有这方面的帮助文档吗？
看delphi的帮助，然后找WM_User或者Messages
3: 这些是API方面的知识吗？
不是
4: 我如果需要实现别的功能又应该是那些常量呢？
哪些常量无所谓，这些常量都是自定义，关键在于前后一致。
就是说，发送消息的函数发送的消息和接受消息的函数要做的功能一致。
至于消息本身，那不是你定义是干啥的就是干啥的。
例如你定义str ： string 是一个edit的值也可以，也可以定义它是adoquery的sql的text值。
5: 奇怪这些常量怎么没有声明是什么类型的，integer , String ...
const WM_CAP_START = WM_USER; 怎么就这么光秃秃的

WM_USER是用户自定义消息。
所有用户自己定义的消息都是在WM_USER消息上加上一个值得到的。
至于WM_USER则是在messages单元中定义的一个系统常量。
其他的wm_xxx的，都是用户自己定义的消息。
这个应该明白了吧。

6: HWND、THandle 各是什么类型？
这些是句柄，啥叫句柄呢，就是唯一定义一个对象、一个线程、一个……的标志。
 
To: wangergulei
谢谢你给我这个完整的回答！
另外问题4，可能是我表达错了，我的意思是 WM_USER 是控制USB相关的，
那控制键盘，串口，又要用那些 类似于 WM_USER 的东西？
 
1: 这些常量你们是怎么知道的？
这些常量是ms规定的，你可以从msdn上得到相关信息。
2: 有这方面的帮助文档吗？
当然有了，就是msdn光盘或者到http;//www.msdn.com
3: 这些是API方面的知识吗？
是的，这些都微软提供的应用程序开发接口(api)。
4: 我如果需要实现别的功能又应该是那些常量呢？
这个就要看你要实现的功能了，你可以查找相关的sdk来得到相关的信息。
5: 奇怪这些常量怎么没有声明是什么类型的，integer , String ...
const WM_CAP_START = WM_USER; 怎么就这么光秃秃的
（这个问题很蠢，因为本人最近在研究java. delphi差不多都忘光了）
常量与变量的声明不一样，常量的声明编译器会根据你的定义来决定它的类型的。
6: HWND、THandle 各是什么类型？
你可以认为他们都是无符号的整形！
 
多谢 晶晶

再向大家提几个问题
1：但是这段代码在录像的时候没有声音，那个同学有办法啊！
2：还有如果只要录声音怎么办？
3：这里的录像限制了大小有没有办法一直录？
 
里面根本没有录音的代码
 
您必须登录或注册才可回复。

Similar threads

S
编写摄像头的问题 ( 积分: 100 )
回复
5
查看
345
sffgw
S
I
求助高手（摄像头拍照后直接存入数据库）(100分)
回复
2
查看
245
itdxx
I
C
Delphi USB摄像头照相问题(附源码)(100分)
回复
6
查看
340
cailiao
C
东
截取视频的时候，可不可以不要直接保存成文件，到传到Image中(100分)
回复
0
查看
261
东城笑
东
S
全部分送上,请教大家, TIdTCPServer 在有客户端连接的情况下，要怎么关闭比较好？ ( 积分: 62 )
回复
5
查看
333
SuKiDelphi
S
后退
顶部