Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]阿里云OSS，使用DLL，创建存储空间


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

主题：[求助]阿里云OSS，使用DLL，创建存储空间
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/1 12:00:00 [显示全部帖子]

添加引用：http://www.foxtable.com/webhelp/scr/1936.htm


去掉using Aliyun.OSS;

OssClient改为：Aliyun.OSS.OssClient
Console.WriteLine改为messagebox提示
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/1 14:17:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/1 14:22:00 [显示全部帖子]

messagebox.show(Cexp("Create bucket succeeded, {0} ", bucket.Name))
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/1 15:01:00 [显示全部帖子]

Dim client as New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/3 9:42:00 [显示全部帖子]

Aliyun.OSS.dll复制到狐表的安装目录，添加引用：http://www.foxtable.com/webhelp/scr/1936.htm

Dim endpoint = "http://oss-cn-hangzhou.aliyuncs.com"
Dim accessKeyId = "改为申请的oss的KeyId"
Dim accessKeySecret = "改为申请的oss的KeySecret"
Dim bucketName = "你创建的存储名称"
Dim client as New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)

Try
    Dim bucket = client.CreateBucket(bucketName)
    messagebox("Create bucket succeeded, {0} " & bucket.Name)
Catch ex As Exception
    messagebox("Create bucket failed, {0}" & ex.Message)
End Try
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/3 10:09:00 [显示全部帖子]

购买oss后，获取的KeyId、KeySecret填进来啊！！！！

Dim accessKeyId = "改为申请的oss的KeyId"
Dim accessKeySecret = "改为申请的oss的KeySecret"
Dim bucketName = "你创建的存储名称"
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/3 10:15:00 [显示全部帖子]

这些key发上来测试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/3 10:26:00 [显示全部帖子]

接口是类型敏感的，必须指定变量类型

Dim endpoint As String = "http://oss-cn-hangzhou.aliyuncs.com"
Dim accessKeyId As String = "改为申请的oss的KeyId"
Dim accessKeySecret As String = "改为申请的oss的KeySecret"
Dim bucketName As String = "你创建的存储名称"
Dim client as New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)

Try
    Dim bucket = client.CreateBucket(bucketName)
    messagebox("Create bucket succeeded, {0} " & bucket.Name)
Catch ex As Exception
    messagebox("Create bucket failed, {0}" & ex.Message)
End Try
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109504 积分：557188 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/2/3 10:27:00 [显示全部帖子]

看19楼

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询