主题：读取ftp上图片的问题（上传了例子）

表中有产品编码和图片两列，如果图片是放在ftp服务器上的，图片的名称就是产品编码加上".jpg"

当产品编码输入后如果ftp是连通的，就自动在图片列显示出图片来，如果ftp连接不上就不操作

代码要怎么写？

 

谢谢！

 

 

 1、编写datacolchanged事件；

 

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

上个例子,把FTP帐号那些发上来,一系列的操作没办法直接给你代码.

此主题相关图片如下：ftp.jpg

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

点击浏览该文件:ftp管理图片.table

我的想法就是所有图片都直接保存到ftp服务器的某个目录下，在窗口表中产品编码录入A003时，图片列就自动按A003.jpg从ftp服务器上查找图片并显示出来(图片全部是按编码命名的)，现在录入产品编码后，图片列什么也没有？

 

ftp服务器那里是随便写的，具体的到时我会设置，请老师们看下窗口的afterload和datacolchanged中的代码对不？

 

谢谢！

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

 

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

还有几个问题：

1、本机的IP地址比如192.168.0.108在本机上不能作为ftp服务器的地址吗？想在本机上建立一个ftp服务器然后在本机上模拟测试好像都不行

2、如果输入一个产品编码后，如果ftp上没有对应的图片会不会出错。

3、如果ftp服务器连接不上时，如果输入产品编码就会长时间卡在那里，要怎么判断连接不上就不提取图片？

 

谢谢！

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

 

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

 

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

 

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

甜老师，这个还是有两点不明白，

1、如果用ftp直接下载，是不是这样

Network.DownloadFile("ftp://zhanshang:138238@egridsoft.com/public/isam.zip",ProjectPath & "\Attachments\" "c:\data\isam.zip")

如果Attachments下面已经有了同名文件，是不是就不会再下载了，提高速度

 

2、如果事件写在currentchanged中，当第一次打开窗口加载表时，因为每页加载50行数据，这样这个代码就会执行50次，怎么样避免这种情况？

 

谢谢！

 

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

 

 

现在ftp的上传图片什么的都可以了，但是想让窗口中的图片控件显示指定的图片要怎么办？谢谢！

 

Dim  ftp1 As New FtpClient
ftp1.Host = ftp_Host
ftp1.Account = ftp_User
ftp1.Password = ftp_Pwd
ftp1.Changedir("Files\photo")

Dim file2 As String = pc & ".jpg"  'ftp上的文件路径
If ftp1.FileExists(File2) Then  '如果存在则下载
    Dim pb As WinForm.PictureBox = e.Form.Controls("PictureBox1")

    '如何让窗口中的pb控件显示ftp上的这张指定的File2图片？
    pb.FTPclient = ftp1 ’这样不行
End If