Foxtable(狐表)用户栏目专家坐堂 → [求助]上传图片问题???


  共有2785人关注过本帖树形打印复制链接

主题:[求助]上传图片问题???

帅哥哟,离线,有人找我吗?
shenhq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:194 积分:1580 威望:0 精华:0 注册:2013/12/8 22:48:00
[求助]上传图片问题???  发帖心情 Post By:2014/5/31 16:53:00 [只看该作者]

研究了几天FTP上传图片问题,论坛上没有理想答案。大师们的回答言简意赅,我等小白理解很费劲。

 

问题:我想在窗口上放一个“上传图片按钮",一个Table,

想实现:点击“上传图片按钮”,能将图片位置保存至Table的当前行的图片列(文件列)

请大师们明示。


 回到顶部
帅哥哟,离线,有人找我吗?
ndxfke
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:792 积分:5649 威望:0 精华:0 注册:2013/12/9 20:12:00
  发帖心情 Post By:2014/5/31 17:02:00 [只看该作者]

顶,

 

有同感。。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/6/3 8:45:00 [只看该作者]

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


 
帮助有这样的代码:
 
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 
稍微改一下:
 
 
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
dim fl as string = Tables("表名").Current("列名")
If ftp1.Upload(ProjectPath & "Attachments\" & fl.,"\ftp目标路径\" & fl) = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 


 回到顶部