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

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

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

代码要怎么写？

 

谢谢！

 

 

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

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

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

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

 

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

 

谢谢！

还有几个问题：

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

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

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

 

谢谢！

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

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

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

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

 

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

 

谢谢！

 

 

现在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

 

谢谢，基本上快可以了，但是我加了个和本地同名文件比较是否最新修改的就不行了，是什么原因？

   Dim  ftp1 As New FtpClient
        ftp1.Host = ftp_Host
        ftp1.Account = ftp_User
        ftp1.Password = ftp_Pwd
        ftp1.Changedir("Files\photo")
       
       '---如果ftp服务器上的文件不存在本地附件中或者比本地附件中的同名的文件新则重新下载,
        Dim file2 As String = pc & ".jpg"  'ftp上的文件路径
        If ftp1.FileExists(File2) Then  '如果存在则下载
            If FileSys.FileExists(file1) Then
                Dim info1 As new FileInfo(file1)
                Dim info2 As new FileInfo(File2)
                If info1.LastWriteTime < info2.LastWriteTime Then  '如果ftp上的文件更新则下载
                    If ftp1.Download(File2,File1) = True Then
                        Dim pb As WinForm.PictureBox = e.Table.Form.Controls("PictureBox1")
                        pb.Image = GetImage(File1)
                       ' pb.FTPclient = ftp1
                    End If
               End If
            Else
                Messagebox.Show("文件不存在或已经被删除!","提示")
            End If
        End If

 

总算可以了，还有一个问题，如果ftp服务器上同名的文件有几个但后辍不同，比如： A001.jpg,A001.pdf,A001.doc

 

要用哪个控件才能实现，既可以显示图片，又同时能显示同名的pdf或doc文件，后两者双击它时可以用其它对应的软件打开它？

 

谢谢！

 

但webbrowser是要以http开头才行啊，ftp服务器是有专门的软件设置的，我只是想用户在表中选择不同的产品编码行时

能显示此产品编码的图片，同时如果其还有pdf等文件也显示出来，想看详细内容时可以双击打开就行，还是说可以用两个控件picturBox和Fillmanger,后者显示文件的形式，

谢谢！

现在显示图片的功能已经可以了，只是ftP服务器上还有同名的pdf,doc等文件，有的用户可能想查看详细内容，

其实就是想这样，让pfd文件也显示在旁边，虽然不能查看，但点击打开时可以打开就行

 

此主题相关图片如下：360截图20141125-1.jpg