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

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

共有1834人关注过本帖树形打印复制链接主题：代码调取照片拍照，拍出来就是分辨率只有640*480的？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：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或以上的照片，应该怎么调整设置数据？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2019/7/5 11:11:00 [只看该作者]

可以看看：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&replyID=&skin=1

不过建议采用第三方专业一点的拍照软件，然后foxtable监视文件夹，自动获取拍照的文件：

http://www.foxtable.com/webhelp/topics/1963.htm

fengwenliuyan

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

加好友

发短信

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

回复：（狐狸爸爸）可以看看：http://www.foxtable.co... 发帖心情

Post By：2019/7/5 15:57:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:cs.zip

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106678 积分：542579 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/5 16:13:00 [只看该作者]

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

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41778&replyID=&skin=1

fengwenliuyan

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

加好友

发短信

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

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

Post By：2019/7/5 16:32:00 [只看该作者]

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106678 积分：542579 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/7/5 16:35:00 [只看该作者]

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

fengwenliuyan

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

加好友

发短信

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

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

Post By：2019/7/5 16:42:00 [只看该作者]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106678 积分：542579 威望：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"

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

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