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

 1、下载

 

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

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

   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的文件时间要用此方法

 

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)

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

 

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

 

谢谢！

 

 Webbrowser，设置webbrowser的属性address

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

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

谢谢！

 先下载啊

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

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

 

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

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