- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教 网络图片的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62386)
-- 发布时间：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
如何图片来自互联网 怎么写代码
-- 发布时间：2014/12/30 21:45:00
--
此主题相关图片如下：qq图片20141230214218.jpg
-- 发布时间：2014/12/30 21:50:00
--
单独写代码，循环所有行，下载图片到某目录下。再用1楼办法
http://www.foxtable.com/help/topics/1410.htm
-- 发布时间：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)
-- 发布时间：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
-- 发布时间：2014/12/30 22:33:00
--
可以了 多谢