以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]阿里云OSS，使用DLL，创建存储空间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130792)
--  作者：智友软件工作室
--  发布时间：2019/2/1 11:24:00
--  [求助]阿里云OSS，使用DLL，创建存储空间
主要是不明白如何把实例代码转换为狐表的代码，能否帮忙做一个创建存储空间的实例，后门的就可以自学了。

创建存储空间

存储空间是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
--  作者：有点蓝
--  发布时间：2019/2/1 12:00:00
--  
添加引用：http://www.foxtable.com/webhelp/scr/1936.htm


去掉using Aliyun.OSS;

OssClient改为：Aliyun.OSS.OssClient
Console.WriteLine改为messagebox提示
--  作者：智友软件工作室
--  发布时间：2019/2/1 14:09:00
--  
Private Sub SurroundingSub()
End Sub
这个是什么意思？
--  作者：有点蓝
--  发布时间：2019/2/1 14:17:00
--  
参考：http://www.foxtable.com/webhelp/scr/1938.htm
--  作者：智友软件工作室
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2019/2/1 14:22:00
--  
messagebox.show(Cexp("Create bucket succeeded, {0} ", bucket.Name))
--  作者：智友软件工作室
--  发布时间：2019/2/1 14:33:00
--  
Dim client = New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)

这句话会提示出错，我截图上传不来
--  作者：有点蓝
--  发布时间：2019/2/1 15:01:00
--  
Dim client as New Aliyun.OSS.OssClient(endpoint, accessKeyId, accessKeySecret)
--  作者：智友软件工作室
--  发布时间：2019/2/3 9:19:00
--  
测试了两天也没整明白，您能抽空做一个完整的例子吗？万分感谢
--  作者：有点蓝
--  发布时间：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