Foxtable(狐表)用户栏目专家坐堂 → 蓝版,七牛云sdk上传图片帮忙


  共有2564人关注过本帖平板打印复制链接

主题:蓝版,七牛云sdk上传图片帮忙

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


加好友 发短信
等级:超级版主 帖子:107873 积分:548728 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/4 15:50:00 [只看该作者]

下载dll复制到foxtable安装目录,引用下载的dll

比如上传文件

Dim AccessKey As String = "ak:Ehg1pAhTMECUH3ex_oLERYJMoKNrEX5ARi9Rtbag"
Dim SecretKey As String = "UI_zfLTJ9Vt9JLd6FkpPsnQJYVPWuI_rz2_volPn"
Dim Bucket As String = "whale315"
Dim config As new Qiniu.Storage.Config()
config.Zone = Qiniu.Storage.Zone.ZONE_CN_East
Dim mac As new Qiniu.Util.Mac(AccessKey, SecretKey)
Dim bucketManager As new Qiniu.Storage.BucketManager(mac, config)
Dim statRet As Qiniu.Storage.StatResult  = bucketManager.Stat(Bucket, key)
If statRet.Code = 200
    Output.Show(statRet.Result.Hash)
    Output.Show(statRet.Result.MimeType)
    Output.Show(statRet.Result.Fsize)
    Output.Show(statRet.Result.MimeType)
    Output.Show(statRet.Result.FileType)
Else
    Output.Show("stat error: " + statRet.ToString())
End If


 回到顶部