Enviar Arquivos por FTP com Delphi

Hoje vamos trabalhar com envio de arquivos via FTP, parece que é muito difícil, mas nem tanto, apenas seguir algumas regras e o resultado sera bem legal.

Adicione um componente IdFTP da paleta Indy Clients conforme figura abaixo: 
Preenche as seguintes propriedades através de um evento de um botão ou no evento de sua preferencia em seu formulário: 


Após os dados de conexão serem devidamente informados é hora de disparar o método de conexão através da chamada IdFTP1.Connect. Em caso de erro, verifique os dados da conexão e tente novamente.
Em seguida precisamos determinar a pasta onde iremos posicionar nossos arquivos com o comando IdFTP1.ChangeDir, veja a imagem abaixo: 

Neste exemplo o protótipo devera extrair imagens de um campo tipo Blob  do Firebird comumente usado para armazenar imagens. O resultado, você pode conferir na imagem abaixo:

Fácil não? A aplicação destes recursos são muitas.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Preenchendo com zeros a esquerda de um valor com Firebird

Olá, estes dias um novo cliente, precisava cadastrar seus produtos e me falou que nem todos tinham código de barras, então eu falei a ele, deixa eu branco que eu gero depois de forma automatizada. Até ai tudo simples, contudo alguns produtos tinham os referidos códigos e orientei que fossem inseridos no programa via leitor. Após a finalização da etapa destes cadastros o cliente queria imprimir etiquetas para seus produtos sem código. Bom, nada de mais, vamos lá. Primeiro tive a brilhante ideia de gerar valores simples baseado no código de chave primaria da tabela de produtos, claro que somente estes valores não seriam muito legais por serem poucos algarismos nos registros iniciais, então pensei em pegar o ano corrente e o código de chave primaria para compor o código de barras.  No entanto ainda era necessário preencher com zeros a esquerda do valor do código de barras pois o leitor ia retornar um algarismos com 13 caracteres devido o padrão utilizado ser EAM13. Então utiliz...
Leia mais

AWS para Desenvolvedores - Dominando S3 com Delphi

Imagem
Olá, Neste post vamos falar de Amazon S3 um serviço de armazenamento de dados na nuvem da AWS altamente escalável e confiável. É amplamente utilizado no mundo inclusive em soluções bem conhecidas como DropBox.  Pode ser acessado através do console de gerenciamento, desde que tenha uma conta é claro. http://console.aws.amazon.com No S3 alguns conceitos são importantes na hora de utilizar o serviço, por exemplo lá tudo que é armazenado são objetos, não importa o arquivo que você mandar pra lá, ele sempre sera tratado como objeto. Este objeto pode ter tamanho entre 1 byte e 5 Terabytes. Por lá também não existem pastas, apenas buckets, sendo o número de buckets limitados a 100 e sendo ilimitado o numero de objetos que pode ser armazenado. No Delphi XE 10.2 temos um componente nativo muito interessante que nos permite conectar com os serviços da Amazon de forma muito simplória. O componente destacado na figura acima é o TAmazonConnectionInfo basta apenas adiciona-...
Leia mais

Conhecendo o FireDac - trabalhando com Macros

Imagem
Olá. Macros são definidos na programação como um padrão de entrada que é substituído por um novo padrão de saída, ou seja, executam um processamento automático em algum ponto, em outros drives como DBX até podíamos utilizar variáveis e/ou parâmetros ou mesmo filtros utilizando condições como where e tal. Contudo não era possível por exemplo usar um parâmetro substituindo o nome da tabela. Ex.: "select * from :tabela" . No FireDac pode ser feito uso de variáveis de substituição como um processador de templates e substituir o texto da variável, usando caracteres "!" representando string e "&" representando (SQL). Interessante não.? Até mais. Fonte: guintherpauli.blogspot.com.
Leia mais