照相示例代碼 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 照相示例代碼

共有10576人关注过本帖树形打印复制链接主题：照相示例代碼

一帆风顺

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

加好友

发短信

等级：婴狐帖子：19 积分：251 威望：0 精华：0 注册：2012/3/14 8:25:00

照相示例代碼 发帖心情

Post By：2012/3/27 11:00:00 [只看该作者]

急!急! 窗口中設置照片即輸入學生信息後對學生照片進行照相上回給的(下面示例代碼)怎麼用,步驟詳細說一下好嗎,拜託了.

近期更新的foxtable，为了配合用户的需求，增加了照相功能。

示例代码：

Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
c.Save("c:\data\abc.jpg") ‘保存文件
End If

狐狸爸爸

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

加好友

发短信

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

Post By：2012/3/27 11:08:00 [只看该作者]

Dim c As new camera
Dim r AS Row = Tables("学生")

c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
c.Save(ProjectPath & "Attachments\" & r("学号") & ".jpg") ‘保存文件

r("照片") = r("学号") & ".jpg”
End If

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/27 11:31:00 [只看该作者]

Dim c As new camera
Dim r AS Row = Tables("学生").Current

c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
c.Save(ProjectPath & "Attachments\" & r("学号") & ".jpg") ‘保存文件

r("照片") = r("学号") & ".jpg”
End If

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/3/27 11:37:00 [只看该作者]

现在使用照像功能，会不会死狐表？

我前面用过几次，狐表都不动了。

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/27 11:40:00 [只看该作者]

看看示例文件，看是不是字段类型或者字符长度方面的问题，没注意到这个问题！

lihe60

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

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/3/27 12:45:00 [只看该作者]

我是直接运行空段代码，程序死机。

Dim c As new camera
c.capture() '开始照相
If c.image IsNot Nothing Then '照相成功
c.Save("c:\data\abc.jpg") ‘保存文件
End If

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

主题：照相示例代碼