Foxtable(狐表)用户栏目专家坐堂 → ftp图片问题


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

主题:ftp图片问题

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
ftp图片问题  发帖心情 Post By:2017/9/10 15:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:ftp问题.jpg
图片点击可在新窗口打开查看


如果上图,sqltable的表,表中有一列图片,专门设计了一个图片浏览器的窗口来显示图片,窗口的afterload代码:
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.AddCommand.Visible = False  '新增按钮不可见
pv.DeleteCommand.Visible = False  '删除按钮不可见
pv.ClearCommand.Visible = False  '清除按钮不可见
pv.ManagerCommand.Visible = False  '清除按钮不可见
pv.BindingField = CurrentTable.Name & ".图片"  '绑定到当前表中的图片列

'---用于远程文件管理
Dim ftp As New FTPClient
ftp.host= ftp_Host
ftp.Account = ftp_User
ftp.password = ftp_Pwd
ftp.Port = ftp_Port  '不是默认的21端口时一定要加上ftp端口号
ftp.RootDir = "\File"
ftp.UTF8 = True  '避免中文乱码
pv.FTPclient = ftp

如果表中直接按"/File/11-LT95.jpg"录入就可以,但这样字段太长不好,想弄成表中只保存"11-LT95.jpg",不要前面这个路径
因为ftp上路径都是固定的即图片都在File目录下,上面的代码为什么实现不了叱?ftp文件一上传,前面就会自动加上"/File/"这个前辍了

谢谢!





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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/10 17:00:00 [只看该作者]

1、改成 /File

 

2、你可以尝试在列属性、控件,分别设置。


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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2017/9/15 19:52:00 [只看该作者]

还是没搞定怎么设置,要求也就是在弹出的ftp上传文件管理器或其他对话框中选择一个或者多个文件确定后,

图片点击可在新窗口打开查看此主题相关图片如下:ftp问题2.jpg
图片点击可在新窗口打开查看

列中只显示这个文件名如123.pdf而不要带前面这个路径/File/123.pdf
是不是要自己设计ftp上传或下载的窗口才能控制.

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


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

测试了一下,只能这样,没有办法

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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2017/9/18 11:35:00 [只看该作者]

自己做ftp上传下载的窗口也实现不了吗?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 11:48:00 [只看该作者]

以下是引用HappyFt在2017/9/18 11:35:00的发言:
自己做ftp上传下载的窗口也实现不了吗?

 

你动态修改ftp列的值,就好了嘛。比如自动生成的是 /File/123.pdf,改成 123.pdf 就行了。


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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2017/9/18 11:53:00 [只看该作者]

那样不好,如果什么时候用户的ftp上存放图片或者文件的路径变动了,那又要修改代码了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 11:59:00 [只看该作者]

以下是引用HappyFt在2017/9/18 11:53:00的发言:
那样不好,如果什么时候用户的ftp上存放图片或者文件的路径变动了,那又要修改代码了

 

你读取列属性【根目录】的值进行替换咯,你根目录不是/File麽?


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


加好友 发短信
等级:八尾狐 帖子:1907 积分:16954 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2017/10/10 21:51:00 [只看该作者]

将" /File/123.pdf"用代码改成 "123.pdf"又会遇到一个新问题,就是窗口中有一个控件 是绑定到此列上的
Dim pb As WinForm.PictureBox = Forms(winName).Controls("PictureBox1")
pb.BindingField = "窗口1_主表.图片"

因为列中没有前面那个路径,结果鼠标移动此列时图片就会变成打X了,有前面那个路径就不会,怎么办,把图片先下载到本地,再绑定可以吗?

谢谢!


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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/10 22:09:00 [只看该作者]

下载:http://www.foxtable.com/webhelp/scr/1410.htm

不要绑定,到Currentchanged事件下载图片,然后赋值

Forms(winName).Controls("PictureBox1").image = getimage("图片本地路径")

 回到顶部