Foxtable(狐表)用户栏目专家坐堂 → 读取ftp上图片的问题(上传了例子)


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

主题:读取ftp上图片的问题(上传了例子)

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/20 11:58:00 [显示全部帖子]

 1、编写datacolchanged事件;

 

 2、拼凑路径;下载图片;设置进图片控件


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/20 16:55:00 [显示全部帖子]

 代码没问题,具体情况你要测试才知

 

Tables(e.Form.Name & "_Table1").Fill("select * from {表A}",False)
Tables(e.Form.Name & "_Table1").AllowEdit = True
DataTables(e.Form.name & "_Table1").dataCols("图片").ExtendType = ExtendTypeEnum.Images
Dim pb As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pb.BindingField = e.Form.name & "_Table1.图片"
DataTables(e.Form.name & "_Table1").DataCols("图片").Remote = True
DataTables(e.Form.name & "_Table1").DataCols("图片").FTPClient.Host ="192.168.0.108"
DataTables(e.Form.name & "_Table1").DataCols("图片").FTPClient.Account = "abc"
DataTables(e.Form.name & "_Table1").DataCols("图片").FTPClient.password = "abc123"
pb.FTPclient = DataTables(e.Form.name & "_Table1").DataCols("图片").FTPClient


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/20 17:17:00 [显示全部帖子]

 以上的问题,就不要用绑定的方法做了。

 

1、在currentChanged事件,根据图片路径,用ftp下载图片,然后设置到图片控件;

 

2、在datacolchanged事件,也同样的根据路径,下载图片,设置;

 

3、因为是用ftp下载图片的,先尝试能否连接ftp,再决定其他。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/24 22:02:00 [显示全部帖子]

1、可以先判断文件的信息,比如比较 最后修改时间、大小等,再决定是否下载新文件。

 

http://www.foxtable.com/help/topics/1410.htm

 

http://www.foxtable.com/help/topics/2707.htm

 

2、你可以写在click事件嘛。或者在加载的时候,取消事件的执行 http://www.foxtable.com/help/topics/2218.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/25 21:14:00 [显示全部帖子]

 1、下载

 

 2、pb.Image = GetImage("d:\test.jpg")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/25 21:38:00 [显示全部帖子]

 ftp的文件时间要用此方法

 

GetFileTime

返回ftp上指定文件最后一次修改的日期时间。

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
Dim
sz As Date
sz = ftp1.GetFileTime(
"\photo\jz.png")
Output.Show(
"修改时间:" & sz)


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/25 22:17:00 [显示全部帖子]

 Webbrowser,设置webbrowser的属性address

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/25 22:37:00 [显示全部帖子]

 先下载啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/25 22:52:00 [显示全部帖子]

  这个应该是做不到的。你可以尝试直接给表赋值一个pdf的路径看看

 回到顶部