主题：[求助] 上传照片

此主题相关图片如下：360截图20170623214247230.jpg


此主题相关图片如下：360截图20170623214531146.jpg

上传实例测试

感觉是不是改成这样的思路，不知道是否正确：

 我现在需要将照片显示在【名称】为“图片”的PictureViewer控件里。所以【根目录】也应该是写在这个控件的【根目录】里？

 

Dim ftp2 As FtpClient = e.Form.Controls("图片").FTPClient  

ftp2.RootDir = "renovate/"& t.current("弱光整治照片")

或者

e.Form.Controls("图片").RootDir = "renovate/"& t.current("弱光整治照片")

 设置控件的ftpclient信息

 

http://www.foxtable.com/webhelp/scr/2696.htm

 

在【读取照片】的按钮中写有以下命令，但是经常会方式读取不到照片的情况。这是什么原因

Dim t As Table = Tables("电表数据汇总表")
t.current("照片名称") = Nothing

Dim fls1 As String = ""
Dim ftp1 As New FtpClient
ftp1.Host="192.168.100.102"
ftp1.Port = 22
'ftp1.Host="192.168.100.102"
ftp1.Account = "db1ftp"
ftp1.Password = "H321"
Dim fls =  ftp1.GetFileList("meterSystem/"&  t.current("照片路径")  )
For Each fl As String In fls
    fls1 &= FileSys.GetName(fl) & vbcrlf  
Next
t.current("照片名称") = fls1

'DataTables("电表数据汇总表").Save()

Dim piv As WinForm.PictureViewer = e.Form.Controls("照片名称")
Dim ftp As New FTPClient
ftp.host="192.168.100.102"
ftp.Port = 22
'ftp.host="192.168.100.102"
ftp.Account = "db1ftp"
ftp.password = "H321"
ftp.RootDir = "/meterSystem/"&  t.current("照片路径")
piv.FTPclient = ftp

piv.SaveAsCommand.Visible = True '另存
piv.OpenCommand.Visible = True '打开
piv.ConnectCommand.Visible = False '重连
piv.ManagerCommand.Visible = False  '管理
piv.ClearCommand.Visible = False '清除
piv.DeleteCommand.Visible = False '删除
piv.AddCommand.Visible = False  '增加
piv.FullViewCommand.Visible = False '全屏
piv.StretchCommand.Visible = False '缩放
piv.UpdateCommand.Visible = False '更新

DataTables("电表数据汇总表").Save()

 

 

此主题相关图片如下：360截图20171023111231625.jpg


此主题相关图片如下：360截图20171023113616526.jpg

 上传实例说明。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.foxdb

我用127.0.0.1测试了一下，没问题的。

 

注意点：你pictureviewer属性那里，要设置好ftp的信息；或者你列属性那里，把图片扩展成图片列，设置好ftp信息；如果是网络上的ftp，下载速度相对较慢，你要等候一段时间才会下载完成。

 

 

想设计一个上传文件的按钮；命令如下：

以下红色部分内容想改成一个能够选择要上传的文件位置、然后自动上传到指定的服务器路径下；文件名为所选文件的文件名。命令该怎么写？

Dim t As Row = Tables("集客项目工单清单表").current

Dim fls1 As String = ""
Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.100"
ftp1.Port = 23
ftp1.Account = "abc"
ftp1.Password = "321"
If ftp1.DirExists( "/Homenetwork/" & t("上传资料路径") ) Then '判断目录是否存在
Else
ftp1.MakeDir( "/Homenetwork/" & t("上传资料路径") ) '新建目录
End If
ftp1.Changedir( "/Homenetwork/" & t("上传资料路径")  )'设置路径为当前目录

If ftp1.Upload("c:\data\Desert.jpg","Homenetwork/"& t("上传资料路径") &"1.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

1、遇到什么问题？报什么错？

 

2、合成的路径弹出来看看是否正确

 

msgbox("/Homenetwork/" & t("上传资料路径") & "1.jpg)

 

3、如果ftp上没有对应的文件夹，是会上传错误的