蓝版，七牛云sdk上传图片帮忙 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

蓝版，我需要把本地的照片上传到七牛云上面并接收返回的外部链接，官方也提供了sdk，我没有学过.net语言，自己在论坛上学习了两天也没有一点效果，我也按您提示的把c#的代码转为.net的了，但是还是一点思路也没有，蓝板，我知道这应该是我们自己的问题，但我确实很需要这块，自己真搞不定了，还请蓝板花点时间尽量详细的帮我给个具体的思路，能给代码就给代码吧，sdk这块真不会啊，拜托，感谢

七牛云sdk的链接，

https://developer.qiniu.com/kodo/sdk/1500/csharp-sdk-v7p0

ak:Ehg1pAhTMECUH3ex_oLERYJMoKNrEX5ARi9Rtbag

sk:UI_zfLTJ9Vt9JLd6FkpPsnQJYVPWuI_rz2_volPn

创建的空间名：whale315

[此贴子已经被作者于2020/3/4 14:17:09编辑过]

此主题相关图片如下：微信截图_20200304162212.png

蓝版，我也引用了呢，但是还是出错，您在帮看看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:dll.zip

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qiniu.zip

蓝板，我找到这个dll了，您测试一下，还是出这个错误，我看您的代码，哪里写我要上传的文件地址呢？

[此贴子已经被作者于2020/3/4 20:23:51编辑过]

感谢蓝版的细心指导，我照猫画虎的也把上传做出来了，帖出来，这个key就要删除了，有需要的换成自己的信息就可以用了

Dim AccessKey As String = "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

config.UseHttps = True

'config.ChunkSize = ChunkUnit.U512K

config.UseCdnDomains = True

Dim mac As new Qiniu.Util.Mac(AccessKey, SecretKey)

Dim putPolicy As new Qiniu.Storage.PutPolicy()

putPolicy.Scope = bucket

putPolicy.SetExpires(3600)

putPolicy.DeleteAfterDays = 1

Dim jstr As String = putPolicy.ToJsonString()

Dim Auth As new Qiniu.Util.Auth(mac)

Dim token As String = Auth.CreateUploadToken(mac, jstr)

'Dim config As new Qiniu.Storage.Config()

Dim um As new Qiniu.Storage.UploadManager(config)

Dim target As new Qiniu.Storage.FormUploader(config)

Dim filePath As String = "C:\Users\86138\Documents\Foxtable项目\管理项目2\3.png"

Dim key As String = "3.png"

Dim result As new Qiniu.Http.HttpResult

result = target.UploadFile(filePath,key,token,Nothing)

output.show("form upload result: " + result.ToString())

主题：蓝版，七牛云sdk上传图片帮忙