以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教 网络图片的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62386)

--  作者:jswjyjf
--  发布时间:2014/12/30 21:44:00
--  请教 网络图片的问题

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

 

 

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


--  作者:jswjyjf
--  发布时间:2014/12/30 21:45:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141230214218.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/12/30 21:50:00
--  

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

 

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

 


--  作者:jswjyjf
--  发布时间:2014/12/30 21:54:00
--  

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


--  作者:有点甜
--  发布时间:2014/12/30 21:57:00
--  

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

 

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


--  作者:jswjyjf
--  发布时间:2014/12/30 22:20:00
--  

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
 

错在哪里


--  作者:有点甜
--  发布时间:2014/12/30 22:23:00
--  
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

--  作者:jswjyjf
--  发布时间:2014/12/30 22:33:00
--  
可以了 多谢