Nesta segunda e \u00faltima parte do artigo sobre envio de arquivos para as nuvens vamos detalhar como funciona o envio de arquivos para o para Amazon S3.<\/p>\n
Voc\u00ea pode ler os artigos que antecedem estas sequ\u00eancia nos links abaixo, \u00e9 importante ler estes artigos para melhor entendimento deste artigo:<\/p>\n
Na primeira parte do artigo descrevo como obter sua conta no Amazon e os significados do Bucket e Blog, considerando que voc\u00ea leu os artigos anteriores nos resta saber como funciona o CloudAPI para envio de arquivos para o Amazon S3, que \u00e9 bem parecido ao do Windows Azure.<\/p>\n
A implementa\u00e7\u00e3o do Shell Extension utiliza o m\u00e9todo UploadtoAmazon (CloudDM.pas) para o envio de arquivos para o Amazon S3, antes de enviar o arquivo temos definir em qual pasta (Bucket) ser\u00e1 armazenado este arquivo.<\/p>\n
Como o bucket pode n\u00e3o existir, ou o usu\u00e1rio pode querer criar um novo, implementei um formul\u00e1rio que permite o usu\u00e1rio selecionar um bucket j\u00e1 existente ou criar um novo.<\/p>\n
Abaixo parte do c\u00f3digo respons\u00e1vel pelo envio do arquivo, as linhas em destaque refletem o c\u00f3digo que ir\u00e1 listar e criar ou selecionar o bucket.<\/p>\n
Ao fazer uma solicita\u00e7\u00e3o ao Amazon S3 atrav\u00e9s do CloudAPI a maioria dos m\u00e9todos retorna um objeto do tipo TCloudResponseInfo, este objeto cont\u00e9m o status do retorno referente a sua solicita\u00e7\u00e3o, todas estas solicita\u00e7\u00f5es s\u00e3o chamadas REST.<\/p>\n
Para obter a lista de buckets utilizamos o m\u00e9todo ListBuckets que \u00e9 parte do objeto StorageService instanciando anteriormente, todos os servi\u00e7os relacionados a Storage fazem parte desta classe, assim como a cria\u00e7\u00e3o do bucket atrav\u00e9s do m\u00e9todo CreateBucket.<\/p>\n
Amazon e Windows Azure diferem no que diz respeito ao suporte a metadata na cria\u00e7\u00e3o do container\/bucket, Amazon n\u00e3o suporta metadata enquanto Windows Azure sim.<\/p>\n
function TCloud.UploadtoAmazon(FileName: String): TCloudResponseInfo;\r\nvar\r\n StorageService: TAmazonStorageService;\r\n BucketList, Metadata: TStrings;\r\n Content: TBytes;\r\n ResponseList: TCloudResponseInfo;\r\n FrmList: TFrmContainerList;\r\n Act: TContainerAction;\r\n BucketName: String;\r\n I: Integer;\r\nbegin\r\n Result := TCloudResponseInfo.Create;\r\n\r\n if (FileName = EmptyStr) then\r\n Exit;\r\n\r\n StorageService := TAmazonStorageService.Create(AmazonConnection);\r\n\r\n{$REGION 'Define the Bucket'}\r\n ResponseList := TCloudResponseInfo.Create;\r\n BucketList := StorageService.ListBuckets(ResponseList);\r\n\r\n if ResponseList.StatusCode = 200 then\r\n begin\r\n\r\n \/\/ Amazon return date\/time information for each Bucket\r\n \/\/ this for is required to remove that information\r\n for I := 0 to BucketList.Count - 1 do\r\n BucketList[I] := BucketList.Names[I];\r\n\r\n FrmList := TFrmContainerList.Create(nil, BucketList, TClouds[AmazonIndex]);\r\n try\r\n FrmList.ShowModal;\r\n Act := FrmList.Action;\r\n\r\n case Act of\r\n caCreate:\r\n begin\r\n if StorageService.CreateBucket(FrmList.Container, amzbaNotSpecified,\r\n amzrNotSpecified, Result) then\r\n BucketName := FrmList.Container;\r\n end;\r\n caUpload:\r\n begin\r\n BucketName := FrmList.Container;\r\n end;\r\n end;\r\n finally\r\n FrmList.Free;\r\n end;\r\n\r\n if Act = TContainerAction.caNone then\r\n Exit;\r\n\r\n end;<\/pre>\n <\/p>\n
Com o bucket definido podemos adiante e preparar o envio do arquivo.<\/p>\n
Para o envio do arquivo utilizamos o m\u00e9todo StorageService.UploadObject que cont\u00e9m diversos par\u00e2metros como: nome e o conte\u00fado do arquivo em TBytes, metadata e alguns outros que n\u00e3o s\u00e3o necess\u00e1rios para este exemplo. Voc\u00ea deve utilizar alguma fun\u00e7\u00e3o para fazer o encode do nome do arquivo, por exemplo\u00a0\u00a0TIdURI.URLEncode(str).<\/p>\n
Podemos adicionar metadata ao arquivo, neste exemplo adiciono o nome do computador\\usu\u00e1rio e a localiza\u00e7\u00e3o original do arquivo a ser enviado.<\/p>\n
Metadata.Clear;\r\n Metadata.Values[SMDPath] := ExtractFilePath(FileName);\r\n Metadata.Values[SMDFrom] := GetComputerandUserName;\r\n\r\n Content := ContentOf(FileName);\r\n BlobName := ExtractFileName(FileName);<\/pre>\nO m\u00e9todo ContentOf retorna o conte\u00fado do arquivo em TBytes.<\/p>\n
function TCloud.ContentOf(const FileName: String;\r\n RequiredSizeMod: Integer): TBytes;\r\nvar\r\n fs: TFileStream;\r\nbegin\r\n if FileName <> EmptyStr then\r\n begin\r\n fs := TFileStream.Create(FileName, fmOpenRead);\r\n try\r\n if RequiredSizeMod < 1 then\r\n SetLength(Result, fs.Size)\r\n else\r\n SetLength(Result, ((fs.Size div RequiredSizeMod) + 1) *\r\n RequiredSizeMod);\r\n fs.ReadBuffer(Result[0], fs.Size);\r\n finally\r\n fs.Free;\r\n end;\r\n end\r\n else\r\n SetLength(Result, 0);\r\n\r\nend;<\/pre>\nO resultado do envio ser\u00e1 um par\u00e2metro de sa\u00edda do tipo TCloudResponseInfo, este cont\u00e9m a propriedade StatusCode, requisi\u00e7\u00f5es realizadas com sucesso retornam o c\u00f3digo 200 ou 201.<\/p>\n
StorageService.UploadObject(BucketName, ExtractFileName(FileName), Content, False, Metadata, nil, amzbaPublicRead, Result);\r\n ShowResponseInfo(TClouds[AmazonIndex], Result);<\/pre>\nClique aqui<\/a> para visualizar o c\u00f3digo fonte da unit CloudDM.pas.<\/p>\n