Membros Pro tavares0841 Postado 21 Agosto Membros Pro Compartilhar Postado 21 Agosto Boa Noite. tem algum componente ACBr que eu possa usar para fazer backup em nuvem ou em alguma pasta do meu site. Se tiver tem exemplos em Delphi? Preciso Fazer backup do XML dos clientes Agradeço de puderem ajudar. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Solution Juliomar Marchetti Postado 22 Agosto Moderadores Solution Compartilhar Postado 22 Agosto Bom dia não temos nada nesse sentido! 1 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 22 Agosto Fundadores Compartilhar Postado 22 Agosto Veja essa palestra de uma das edições do Dia do ACBr 1 Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro tavares0841 Postado 23 Agosto Autor Membros Pro Compartilhar Postado 23 Agosto vou assistir. obrigado Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro valterpatrick Postado 27 Agosto Membros Pro Compartilhar Postado 27 Agosto Em 21/08/2024 at 20:11, tavares0841 disse: Boa Noite. tem algum componente ACBr que eu possa usar para fazer backup em nuvem ou em alguma pasta do meu site. Se tiver tem exemplos em Delphi? Preciso Fazer backup do XML dos clientes Agradeço de puderem ajudar. Se você tiver um tempo para desenvolver, eu recomendaria você utilizar o S3 da AWS. No Delphi tem o componente TAmazonConnectionInfo para isto. Vou te dar um exemplo: var AWS: TAmazonConnectionInfo; S3: TAmazonStorageService; Response: TCloudResponseInfo; BytesStream: TBytesStream; FileStream: TFileStream; BytesEnviar: TBytes; NomeArqAWS: string; begin AWS := TAmazonConnectionInfo.Create(Self); AWS.UseDefaultEndpoints := False; AWS.ConsistentRead := True; AWS.Protocol := 'http'; AWS.AccountKey := 'AccountKey'; AWS.AccountName := 'AccountName'; AWS.Region := AWS.GetRegionFromString('Region'); AWS.StorageEndpoint := 'StorageEndpoint'; S3 := TAmazonStorageService.Create(AWS); Response := TCloudResponseInfo.Create; NomeArqAWS := 'nome_sub_pasta/nome_arquivo'; BytesStream := TBytesStream.Create; try try BytesStream.LoadFromFile('arquivo'); BytesStream.Position := 0; SetLength(BytesEnviar, BytesStream.Size); BytesStream.ReadBuffer(BytesEnviar, BytesStream.Size); Result.ArquivoEnviado := S3.UploadObject('nome_bucket', NomeArqAWS, BytesEnviar, False, nil, nil, amzbaBucketOwnerFullControl, Response); Result.StatusCode := Response.StatusCode; Result.StatusMessage := Response.StatusMessage; except on E: Exception do begin Result.ArquivoEnviado := False; Result.StatusCode := 0; Result.StatusMessage := E.Message.Trim; end; end; finally S3.Free; AWS.Free; Response.Free; end; 1 Valter Patrick Gerente de Projetos na empresa CTEC (33)98400-0936 GitHub: https://github.com/valterpatrick Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts