下载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