Foxtable(狐表)用户栏目专家坐堂 → ftp上传


  共有1838人关注过本帖树形打印复制链接

主题:ftp上传

帅哥哟,离线,有人找我吗?
nxqtxwz
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1492 积分:12149 威望:0 精华:0 注册:2013/3/19 16:41:00
ftp上传  发帖心情 Post By:2020/7/4 14:08: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,"web\学校档案\学生照片\" & Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg")
    Dim ftp1 As New FtpClient
    ftp1.Host="218.222.157.198:21"
    ftp1.Account = "lyxx-wz"
    ftp1.Password = "xxxxxxx"
    Tables("学生名单").Current("照片") = Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg"
    If result = 1
        MessageBox.Show("照片保存为: "& Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg","保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/4 14:26:00 [只看该作者]

我放到按钮里可以编译。提示什么错误?

下面这段没有啥用,可以去掉
    Dim ftp1 As New FtpClient
    ftp1.Host="218.222.157.198:21"
    ftp1.Account = "lyxx-wz"
    ftp1.Password = "xxxxxxx"

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1492 积分:12149 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/7/4 14:37:00 [只看该作者]

要上传到ftp,不用行吗。

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1492 积分:12149 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/7/4 14:41:00 [只看该作者]

老师,现在编译可以了,但提示下面的错误。

 

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:自定义函数,SaveBytesToFile
详细错误信息:
调用的目标发生了异常。
未能找到路径“D:\xxsjk(学校数据库)\web\学校档案\学生照片\马灵薇640381200805313048.jpg”的一部分。

 

 

下面是自定义函数,SaveBytesToFile

'保存Bytes()到文件
'参数0 : Bytes()数组
'参数1 : 文件名

Dim Bytes As Byte() = Args(0)
Dim FileName As String = Args(1)
If Bytes Is Nothing Or FileName = ""
    Return 0
End If
Dim fileStream As System.IO.FileStream = new System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
fileStream.Write(Bytes, 0, Bytes.Length)
fileStream.Flush()
fileStream.Close()
fileStream.Dispose()
Return 1



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/4 14:41:00 [只看该作者]

上传要写完整咯,都没有上传的代码,只是设置了ftp,有啥用

Upload

将文件上传到FTP,语法:

Upload(sourceFileName, destinationFileName, ShowUI)

sourceFileName:要上传的本地文件,含路径
destinationFileName:目标文件,含路径
ShowUI:逻辑型,是否显示上传进度,默认为False。

如果上传成功,返回True,否则返回False

示例

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
If 
ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg") = True Then
    
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1492 积分:12149 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/7/4 15:02:00 [只看该作者]

老师,拍照的照片是不是必须要在本地保存后才能上传呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/4 15:05:00 [只看该作者]

是必须要在本地保存后才能上传。不可能直接保存到远程服务器的

 回到顶部