以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124544)
--  作者：nxqtxwz
--  发布时间：2018/9/8 19:36:00
--  如何解决

请各位老师帮忙看看这段代码应怎么改呢。目的就是想把拍照的相片保存在：\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG")

它不报错但也不保存怎么办。文件目录是存在的。

 

Dim c As new camera
Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)     ’这个地方不懂，原来是有一个保存路径，关键是文件名如何设置成
Tables("住宿生信息").Current("姓名") & ".JPG   

 c.Save("\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG")     \'保存文件不成功

If result = 1
        MessageBox.Show("照片保存为: " & e.Form.Controls("FileName").Value ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True

 

 

 

下面的代码是可以的：

Dim c As new camera
c.capture()   \'开始照相
If c.image IsNot Nothing Then    \'照相成功
    \'c.Save(ProjectPath & "Attachments\\" & Tables("住宿生信息").Current("姓名") & ".JPG")    \'保存文件
c.Save("\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG")      \'保存文件成功
    Tables("住宿生信息").Current("照片") = Tables("住宿生信息").Current("姓名") & ".JPG"
End If

[此贴子已经被作者于2018/9/8 20:01:16编辑过]
--  作者：有点甜
--  发布时间：2018/9/9 15:21:00
--  
你这两句代码为什么要写？不能去掉？
 
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)
 
 
下面的代码可以，为什么不用下面的？具体问题，请上传具体实例说明。
--  作者：nxqtxwz
--  发布时间：2018/9/9 16:22:00
--  

 

[此贴子已经被作者于2018/9/9 17:44:28编辑过]
--  作者：有点甜
--  发布时间：2018/9/9 17:03:00
--  

比如

 

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,"d:\\test123.jpg")
   
    If result = 1
        MessageBox.Show("照片保存为: d:\\test123.jpg"  ,"保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True
--  作者：nxqtxwz
--  发布时间：2018/9/9 17:44:00
--  

老师，您太厉害了！圆满解决。谢谢！

 

下面这个错在哪了，能不能实现这样的。

 MessageBox.Show("照片保存为: & "\\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" &" Tables("住宿生信息").Current("姓名") & ".JPG "  ,"保存成功")
--  作者：有点甜
--  发布时间：2018/9/9 18:18:00
--  

 

MessageBox.Show("照片保存为: \\\\192.168.101.251\\共享数据\\住宿生信息\\学生照片\\" & Tables("住宿生信息").Current("姓名") & ".JPG "  ,"保存成功")