主题：如何解决

请各位老师帮忙看看这段代码应怎么改呢。目的就是想把拍照的相片保存在：\\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

你这两句代码为什么要写？不能去掉？
 
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,e.Form.Controls("FileName").Value)
 
 
下面的代码可以，为什么不用下面的？具体问题，请上传具体实例说明。

 

比如

 

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

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

 

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

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

 

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