主题：请教 网络图片的问题

If e.Col.Name = "缩略图" AndAlso e.Row.IsNull("图片") = False Then
    e.StartDraw()
    e.Graphics.DrawImage(getimage(e.Row("图片")), e.x + 1,e.y + 1, 100, 85)
    e.EndDraw()
End If

 

 

如何图片来自互联网 怎么写代码

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

 单独写代码，循环所有行，下载图片到某目录下。再用1楼办法

 

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

 

可不可以用 此项目 目录RemoteFiles下的文件

 可以。路径你合并正确即可，试试

 

e.Graphics.DrawImage(getimage(projectPath & "RemoteFiles/" & FileSys.GetName(e.Row("图片"))), e.x + 1,e.y + 1, 100, 85)

Dim ftp1 As new ftpclient
ftp1.host="ns18.mfdns.com"
ftp1.Account = "fo1xtable"
ftp1.password = "WJfoxtable"
Dim f1,f2 As String
For Each r As Row In Tables("表A").Rows
f1=r("图片")
f2=FileSys.GetName(R("图片"))
If ftp1.Download(&ff,projectPath & "mypic/" & FileSys.GetName(r("图片")) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
 

错在哪里

Dim ftp1 As new ftpclient
ftp1.host="ns18.mfdns.com"
ftp1.Account = "fo1xtable"
ftp1.password = "WJfoxtable"
ftp1.OpenManager
Dim f1,f2 As String
For Each r As Row In Tables("表A").Rows
    f1=r("图片")
    f2=FileSys.GetName(R("图片"))
    If ftp1.Download(f1, projectPath & "mypic/" & f2) = True Then
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next

可以了 多谢