怎样用delphi和usb摄像头拍照啊。(0分)

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

applezone

Unregistered / Unconfirmed
GUEST, unregistred user!
我看到现在的很多管理系统,比如计算机等级考试的报名系统。

现在计算机等级考试都不要交相片了,通过它的报名系统和usb摄像头就可以直接拍照了。
怎么用delphi写这样的拍照的程序啊?

请大虾指教。
 
[:)]我也想知道
 
给你一段我的程序,该程序现在正常使用中
procedure Tmainform.saveimage(Sender: TObject;photoname:string);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
VideoCap1.saveasdib;
MyJPEG := TJPEGImage.Create;
image1.Picture.LoadFromFile('capture.bmp');
try
with MyJPEG do
begin
Assign(Image1.Picture.Graphic);
CompressionQuality:=50;
Compress;
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
with datamodule1.ADOQuery1 do
begin
close;
sql.text:='select * from gas where id='+id0;
open;
Edit;
TBlobField(FieldbyName(photoname)).LoadFromStream(MS);
Post;
end;
end;
finally
MyJPEG.Free;
end;
end;
 
我正要做这个软件,技术问题已经全部解决,其实很简单,有现成的控件和示例
 
zbsfg, :
兄弟拉。你不要说就是到www.playicq.com上面去找哦。
你如果解决了,能不能将它无私奉献呢,为后继者省点时间嘛。
 
楼上那个大哥就不能说明白一点吗?什么控件啊?给个
wsqrock@sina.com
 
zbsfg兄:
说详细些点啊
 
我使用的是delphi5的控件(videocap2.3)无法在delphi7上使用并且存储的是bmp文件怎么才能存成jpg呢?
 
怎么才能存成jpg呢
仔细看我的例程。
 
图象捕获可以用 VFW 函数写。
不是很难,这是 Winodws 的标准接口。
最好看看 MSDN
 
呵呵,能否问一下:
是不是对所有的usb摄像头都支持,要不要得到摄像头的编程接口什么的?
 
to kmchen:
你这个例程需要用到控件吗,能否详细介绍,谢谢。
 
http://www.2ccc.com/article.asp?articleid=272
有个例子
可以看看
不过要装 DSPack 2.31 (使用DirectX技术控件包)
http://www.2ccc.com/article.asp?articleid=187
 
郁闷,昨天我刚发布我写的摄像头那个代码,就被人抄到其他网站了,怎么没有人抄点代码给我呢。
 
hehe 是 你啊 :)
我下了 还没仔细看
问下 DSPack 能不能直接 支持采集卡
有空多讨论一下 我得邮箱 juanke@163.com
 
我用的是realproducer的ocx控件,不止可以拍照,还可以录像。
 
to flyforlove :
有没有例程,或放个链接上来.
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
898
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
960
DelphiTeacher的专栏
D
D
回复
0
查看
716
DelphiTeacher的专栏
D
后退
顶部