￥￥人民币￥￥收购视频控制组件和代码！ ( 积分: 0 )

我们公司现在要做一个视频控制的软件，但是现在用的一套控制摄像头的软件对系统的要求比较高，需要在DirectX 8.0 或更高版本才能使用，但如果这样打的安装包就会很大，所以我们现在需要一个对系统环境要求不要太高的组件。
要求如下：
1）可以对任何通用摄像头进行控制
2）可以控制摄像头拍照、录像
3）有摄像头监视器组件，可以实时看到摄像头所能摄录的图像
4）使用此组件编写的程序对DX版本没有任何要求或要求极低（WIN98中都可以使用）
5）提供对摄像头控制的各种函数，包括：录像、拍照；对摄像头监视器组件的停止、开始、暂停等
6）提供原代码、示例程序及使用文档

也可以先提供一个DEMO让我们试用一下，看看否能够满足我们的要求！
价格可以在回贴中自己提出，然后再做商议，乱开价的不回！
QQ：1011185
MSN：sky8boy@hotmail.com

我们公司现在要做一个视频控制的软件，但是现在用的一套控制摄像头的软件对系统的要求比较高，需要在DirectX 8.0 或更高版本才能使用，但如果这样打的安装包就会很大，所以我们现在需要一个对系统环境要求不要太高的组件。
要求如下：
1）可以对任何通用摄像头进行控制
2）可以控制摄像头拍照、录像
3）有摄像头监视器组件，可以实时看到摄像头所能摄录的图像
4）使用此组件编写的程序对DX版本没有任何要求或要求极低（WIN98中都可以使用）
5）提供对摄像头控制的各种函数，包括：录像、拍照；对摄像头监视器组件的停止、开始、暂停等
6）提供原代码、示例程序及使用文档

也可以先提供一个DEMO让我们试用一下，看看否能够满足我们的要求！
价格可以在回贴中自己提出，然后再做商议，乱开价的不回！
QQ：1011185
MSN：sky8boy@hotmail.com

“摄像头监视器组件”是什么？是一个回放所录的照片和视频文件的播放器？

就是通过这个组件可以看到摄像头里的图像！

实时监控吧,还可以保存.

直接用TvideoCap控件,自己写点代码就行了.不用DX.

原来下了个源程序 后来就不见了

简介：本文提供一段完整的delphi代码，实现利用摄像头进行拍照的功能。注意需要TVideoCap控件支持。procedure Tfrm1.Button2Click(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
MyStm:TMemoryStream;
strfilename,strcard:String;
begin

inherited;
strfilename:=extractfilepath(Application.ExeName);
with DBEdit12.DataSource.DataSetdo

begin


if not VideoCap1.SaveAsDIB then

begin

ShowMessage('拍摄照片失败');
Abort;
end;
//

bmp:= TBitmap.Create;
try
bmp.LoadFromFile(strfilename+ 'Capture.bmp' );
MyStm:=TMemoryStream.Create;
jpeg:= TJPEGImage.Create;
try
jpeg.Assign( bmp );
jpeg.compress;
jpeg.SaveTofile( strfilename+'Capture.jpg');
strfilename:=strfilename+'Capture.jpg';
jpeg.LoadFromFile(strfilename);
jpeg.SaveToStream(MyStm);
MyStm.Position:=0;
OpenQry(query1,'select count(1) as cnt from tb_photo where card_no='''+strcard+'''');//先查找是否有此卡号
OpenQry(pubqry,'select * from tb_photo where card_no='''+strcard+'''');//打开卡号数据表
{OpenQry是自定义打开数据表的函数
OpenQry(qry1:TQuery,ssql:String);
begin

with qry1do

beign
if active then

close;
sql.clear;
sql.add(ssql);
try
open
catch
on E: Exceptiondo
ErrorDialog(E.Message, E.HelpContext);
end;
//try
end;

end;


}
with query1do

begin

if pubqry.Fields[0].AsInteger >0 then
//先判断此卡号的图片是否存在，若存在，替换；否则，插入。
Edit
else

Insert;

FieldByName('card_no').AsString :=strcard;
TBlobField(FieldByName('photo')).LoadFromStream(MyStm);
Post;
//统一提交
end;
//with
finally
MyStm.Free;
jpeg.free;
end;

//try
finally
bmp.free;
end;
//try
end;
//with
end;

//请首先下载TVideoCap控件

免费的就用 TVideoCap 改吧