Foxtable(狐表)用户栏目专家坐堂 → 代码调取照片拍照,拍出来就是分辨率只有640*480的?


  共有3065人关注过本帖树形打印复制链接

主题:代码调取照片拍照,拍出来就是分辨率只有640*480的?

帅哥哟,离线,有人找我吗?
fengwenliuyan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
代码调取照片拍照,拍出来就是分辨率只有640*480的?  发帖心情 Post By:2019/7/5 11:03:00 [只看该作者]

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或以上的照片,应该怎么调整设置数据?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2019/7/5 11:11:00 [只看该作者]

可以看看:

不过建议采用第三方专业一点的拍照软件,然后foxtable监视文件夹,自动获取拍照的文件:
http://www.foxtable.com/webhelp/topics/1963.htm

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(狐狸爸爸)可以看看:http://www.foxtable.co...  发帖心情 Post By:2019/7/5 15:57:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cs.zip


提示错误:系统找不到指定的文件?



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/5 16:13:00 [只看该作者]

应该参考的是下面别人项目的用法,和帮助的用法完全不是一回事,不要张冠李戴。请打开别人的先项目测试,看懂代码再用到自己项目中


 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点蓝)应该参考的是下面别人项目的用法,和...  发帖心情 Post By:2019/7/5 16:32:00 [只看该作者]

可是我需要的是,像文件监视器一样,可以将拍好的照片以“客户”作为文件名,并自动存入“入库表”的“照片”列?
而您提供的实例中,照片保存路径每次都是需要用户手动调整的?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/5 16:35:00 [只看该作者]

这个例子是可以自动拍照自动保存的呀。需要用户手动调整什么

 回到顶部
帅哥哟,离线,有人找我吗?
fengwenliuyan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8258 威望:0 精华:0 注册:2012/10/19 13:55:00
回复:(有点蓝)这个例子是可以自动拍照自动保存的呀...  发帖心情 Post By:2019/7/5 16:42:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2222222222.png
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/5 16:50:00 [只看该作者]

只是一个保存路径而已啊,都是自己设置的,可以在代码里随机给个名称呀。别人在窗口里这样用,您也只会这样用吗

比如保存的时候按保存时间随机命名:

dim str as string = "c:\cam\" & format(date.now,"yyyyMMddHHmmssfffff") & ".jpg"

 回到顶部