以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  照相示例代碼  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17857)
--  作者：一帆风顺
--  发布时间：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

 
--  作者：狐狸爸爸
--  发布时间：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
--  作者：程兴刚
--  发布时间：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
--  发布时间：2012/3/27 11:37:00
--  

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

我前面用过几次，狐表都不动了。
--  作者：程兴刚
--  发布时间：2012/3/27 11:40:00
--  
看看示例文件，看是不是字段类型或者字符长度方面的问题，没注意到这个问题！
--  作者：lihe60
--  发布时间：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