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


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

主题:[求助]阿里云OSS,使用DLL,创建存储空间

帅哥哟,离线,有人找我吗?
智友软件工作室
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
[求助]阿里云OSS,使用DLL,创建存储空间  发帖心情 Post By:2019/2/1 11:24:00 [只看该作者]

主要是不明白如何把实例代码转换为狐表的代码,能否帮忙做一个创建存储空间的实例,后门的就可以自学了。

创建存储空间

存储空间是OSS全局命名空间,相当于数据的容器,可以存储若干文件。

以下代码用于新建一个存储空间:

using Aliyun.OSS;
var endpoint = "<yourEndpoint>";
var accessKeyId = "<yourAccessKeyId>";
var accessKeySecret = "<yourAccessKeySecret>";
var bucketName = "<yourBucketName>";
// 创建OSSClient实例。
var client = new OssClient(endpoint, accessKeyId, accessKeySecret);
try
{
    // 创建存储空间。
    var bucket = client.CreateBucket(bucketName);
    Console.WriteLine("Create bucket succeeded, {0} ", bucket.Name);
}
catch (Exception ex)
{
    Console.WriteLine("Create bucket failed, {0}", ex.Message);
}

https://help.aliyun.com/document_detail/32088.html?spm=a2c4g.11186623.6.860.2d6541447B0ERj


dll下载地址:https://help.aliyun.com/document_detail/32086.html?spm=a2c4g.11186623.6.859.6403d47ecltHvH

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107131 积分:544898 威望: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提示


 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2019/2/1 14:09:00 [只看该作者]

Private Sub SurroundingSub()
End Sub
这个是什么意思?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107131 积分:544898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/1 14:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2019/2/1 14:20:00 [只看该作者]

Dim endpoint = "<yourEndpoint>"
Dim accessKeyId = "<yourAccessKeyId>"
Dim accessKeySecret = "<yourAccessKeySecret>"
Dim bucketName = "<yourBucketName>"
Dim client = 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

添加附件点不上呢?提示错误  没有可访问的new

[此贴子已经被作者于2019/2/1 14:21:50编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107131 积分:544898 威望: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))


 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2019/2/1 14:33:00 [只看该作者]

Dim client = New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)

这句话会提示出错,我截图上传不来


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


加好友 发短信
等级:超级版主 帖子:107131 积分:544898 威望: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)


 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2019/2/3 9:19:00 [只看该作者]

测试了两天也没整明白,您能抽空做一个完整的例子吗?万分感谢

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107131 积分:544898 威望: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

 回到顶部
总数 23 1 2 3 下一页