- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码调取照片拍照，拍出来就是分辨率只有640*480的？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137414)
-- 发布时间：2019/7/5 11:03:00
-- 代码调取照片拍照，拍出来就是分辨率只有640*480的？
Dim c1 As new camera
If e.Col.Name = "照片" Then
e.Cancel = True \'取消默认动作
c1.capture() \'开始照相
If c1.image IsNot Nothing Then \'照相成功
Dim file1 As String = ProjectPath & "Attachments/" & e.Row("归类") & "." & Format(e.Row("录入时间"), "yyyyMMdd") & "." & e.Row.DataRow.Lines("照片").count+1 & ".jpg"
c1.Save(file1) \'保存文件
Dim ls1 = e.Row.DataRow.Lines("照片")
ls1.add(fileSys.GetName(file1))
e.Row.DataRow.Lines("照片") = ls1
End If
End If
以上代码调取照片拍照，拍出来就是分辨率只有640*480的？
若要拍支持1920*1080或以上的照片，应该怎么调整设置数据？
-- 发布时间：2019/7/5 11:11:00
--
可以看看：
不过建议采用第三方专业一点的拍照软件，然后foxtable监视文件夹，自动获取拍照的文件：
http://www.foxtable.com/webhelp/topics/1963.htm
-- 发布时间：2019/7/5 15:57:00
-- 回复：（狐狸爸爸）可以看看：http://www.foxtable.co...
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cs.zip |
提示错误：系统找不到指定的文件？
-- 发布时间：2019/7/5 16:13:00
--
应该参考的是下面别人项目的用法，和帮助的用法完全不是一回事，不要张冠李戴。请打开别人的先项目测试，看懂代码再用到自己项目中
-- 发布时间：2019/7/5 16:32:00
-- 回复：（有点蓝）应该参考的是下面别人项目的用法，和...
可是我需要的是，像文件监视器一样，可以将拍好的照片以“客户”作为文件名，并自动存入“入库表”的“照片”列？
而您提供的实例中，照片保存路径每次都是需要用户手动调整的？
-- 发布时间：2019/7/5 16:35:00
--
这个例子是可以自动拍照自动保存的呀。需要用户手动调整什么
-- 发布时间：2019/7/5 16:42:00
-- 回复：（有点蓝）这个例子是可以自动拍照自动保存的呀...
此主题相关图片如下：2222222222.png
-- 发布时间：2019/7/5 16:50:00
--
只是一个保存路径而已啊，都是自己设置的，可以在代码里随机给个名称呀。别人在窗口里这样用，您也只会这样用吗
比如保存的时候按保存时间随机命名：
dim str as string = "c:\\cam\\" & format(date.now,"yyyyMMddHHmmssfffff") & ".jpg"