用桌面版本上传文件总是错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用桌面版本上传文件总是错误。

共有2905人关注过本帖树形打印复制链接主题：用桌面版本上传文件总是错误。

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

用桌面版本上传文件总是错误。 发帖心情

Post By：2019/6/22 22:22:00 [只看该作者]

说明：我用下面的关键参数，用手机上传文件或图片方法，在手机上可以向远程主机正常上传

但用下面的方法，在桌面应用上传文件一直失败。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "文本文件|*.docx;*.xlsx;*.xls;*.doc;*.pptx;*.ppt;*.pdf;*.txt" 'dlg.Filter= "文本文件|*.bmp;*.jpg;*.gif;*.png" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

MessageBox.Show("你选择的是:" & dlg.FileName,"提示")

End If

Dim ftp1 As New FtpClient

ftp1.deleteEnabled=False

ftp1.renameEnabled=False

ftp1.Host="120.78.*.*"

ftp1.Port="1**44"

ftp1.Account = "f*xftp"

ftp1.Password = "****"

Dim name As String =dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1)

If ftp1.Upload(dlg.FileName , "\jyapp\" & name)= True Then

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Dim r1 As String= "ftp://f*xftp:J***@120.78.*.*\jyapp\" & name

Messagebox.show("当前字符串:" & r1)

请教大师：我用的阿里云主机，用手机上传图片或文件方法，能正常上传文件或图片，但用上面的方法失败。

请指点。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/23 11:57:00 [只看该作者]

1、弹出name的值，看是否正常。

2、直接写upload的路径，测试能否正常上传某个文件。

3、在ftp管理器那里，通过菜单上传，提示什么错？

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

请问专家，执行FTP上传，只能使用21端口吗？ 发帖心情

Post By：2019/6/23 16:11:00 [只看该作者]

请问专家：难道执行FTP上传，只能使用21端口吗？

---------------

1.因为弹出的文件路径完成正常，

2.直接写Upload 报告用户密码错误；

3、在ftp管理器那里，通过菜单上传，也提示用户名密码错；

-----------------------------------

我后来改用21端口(用户名和密码不变)就可以执行在桌面程序上传文件了。

请专家证实一下。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/23 16:16:00 [只看该作者]

提示账号密码出错，那就是你搭建的ftp有问题，认认真真看看你搭建了多少个ftp，对应的那个ftp的账号密码是什么。

lanbor

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

加好友

发短信

等级：一尾狐帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00

文件下载到手机上查询方法，请教！ 发帖心情

Post By：2019/6/24 17:55:00 [只看该作者]

在专家的提醒下，真的找到问题了。

不用21端口也能用FTP的

If ftp1.Upload("c:\data\Foxtable学习笔记.xlsx","/book/Foxtable学习笔记.xlsx") = True Then 此例上传正常

' If ftp1.Download("\photo\Desert.jpg","c:\data\Desert.jpg") = True Then

上传文件。

现请教：已经知道远程主机上有上传的文件名：/book/Foxtable学习笔记.xlsx

我应该如何在手机上下载、并能直接打开它进行阅读？

---下面是我的网页基本代码---但执行结束仅是在主机上打开了文件。

Dim e As RequestEventArgs = args(0)

Dim pkey As Integer=0 '用户接收文件行的[_Identify]值

If e.GetValues.ContainsKey("pkey") Then

Integer.TryParse(e.GetValues("pkey"), pkey) '提取page参数

Else

Return ""

End If

Dim dr As DataRow = Data Tables("files99").SQL Find("[_Identify] = " & pkey)

Dim pa As String= dr("file03") '里面保存有带路径的文件名称

If dr IsNot Nothing Then

Dim proc As new process

proc.file = pa

proc.Start()

End If

[此贴子已经被作者于2019/6/24 18:03:13编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/24 18:18:00 [只看该作者]

你试试

Dim e As RequestEventArgs = args(0)
Dim pkey As Integer=0   '用户接收文件行的[_Identify]值
If e.GetValues.ContainsKey("pkey") Then
    Integer.TryParse(e.GetValues("pkey"), pkey) '提取page参数
Else
    Return ""
End If
Dim dr As DataRow = Data Tables("files99").SQL Find("[_Identify] = " & pkey)
If dr IsNot Nothing Then
    Dim pa As String= dr("file03")   '里面保存有带路径的文件名称
    msgbox(pa)
    e.writefile(pa)
End If