代码调取照片拍照，拍出来就是分辨率只有640*480的？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3067人关注过本帖树形打印复制链接主题：代码调取照片拍照，拍出来就是分辨率只有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

以上代码调取照片拍照，拍出来就是分辨率只有640*480的？

若要拍支持1920*1080或以上的照片，应该怎么调整设置数据？

fengwenliuyan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

提示错误：系统找不到指定的文件？

fengwenliuyan

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点蓝）应该参考的是下面别人项目的用法，和... 发帖心情

Post By：2019/7/5 16:32:00 [显示全部帖子]

可是我需要的是，像文件监视器一样，可以将拍好的照片以“客户”作为文件名，并自动存入“入库表”的“照片”列？

而您提供的实例中，照片保存路径每次都是需要用户手动调整的？

fengwenliuyan

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：0 精华：0 注册：2012/10/19 13:55:00

回复：（有点蓝）这个例子是可以自动拍照自动保存的呀... 发帖心情

Post By：2019/7/5 16:42:00 [显示全部帖子]

此主题相关图片如下：2222222222.png

下一主题 >> << 上一主题

主题：代码调取照片拍照，拍出来就是分辨率只有640*480的？