Delphi 摄像头 设置图像的大小 再线等,急
本人 是搞c#的 最近经理直接扔个delphi功能给我...
就是用摄像头照到一张图,什么格式的没关系,只要长和高的大小能设置就行了
实属无奈,从网上找了篇文章,抄上
http://blog.163.com/smxliujianghui/blog/static/293983112009024349410/
图片是照出来了
但是就是不晓得怎么设置大小
首先获得
re:=SendMessage(hWndC,WM_CAP_GET_VIDEOFORMAT,sizeof(binfo),Integer(@binfo));
然后修改
binfo.bmiHeader.biSize:= SizeOf(binfo.bmiHeader);
binfo.bmiHeader.biWidth:=Panel1.Width;
binfo.bmiHeader.biHeight:=Panel1.Height;
binfo.bmiHeader.biCompression:=BI_RGB;
binfo.bmiHeader.biPlanes:=1;
binfo.bmiHeader.biBitCount:=16;
binfo.bmiHeader.biSizeImage:= (((Panel1.Width * binfo.bmiHeader.biBitCount) + 31) div 32) * 4 * Panel1.Height;
最后
re :=SendMessage(hWndc,WM_CAP_SET_VIDEOFORMAT,sizeof(binfo),Integer(@binfo));
第一步获得设置的BITMAPINFO re=1(成功)
第三步把修改设置,把BITMAPINFO放入 re=0(失败)
不知道为什么!
也不知道思路对不对
请大家的给点思路,如果知道做的,请给点代码,谢谢
有没有那位大虾出来 说两句啊,等的辛苦嘞../
非常感谢提供意见,我先试试!
如果成功 并且 对摄像头 通用 即 结贴
经理说只能用WM_CAP_....类似消息,能不用控件就不用控件
而且我在那控件上我也没找到设置图片大小的方法和功能,最多就是获取到图片�
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
如何实现delphi 提交表单
我的思路是 webbrowser1 打开 谷歌
然后 鼠标 点击到 搜索里面
然后 输入 要搜索的关键字 然后 点击 搜索
我现在就是 如何 添入 要搜索的关键字 不� ......
我做的一个程序，是医生门诊管理系统，界面没有进美化，客户看了，觉得颜色太灰，我又加了一个背景图片，
可是每个业务窗体并没有进行美化，打开窗体之后，还是不舒服。
请问如何美化每一个业务窗体。？？？？ ......
