Fórum Download e Upload pelo protocolo HTTP + autenticação #451150
07/08/2013
0
Jose Boas
Curtir tópico
+ 0Posts
07/08/2013
Wesley Yamazack
procedure TForm1.FormCreate(Sender: TObject); begin IdHTTP1.Request.Password := 'senha'; IdHTTP1.Request.Username := 'usuario'; end;
Um abraço
Gostei + 0
07/08/2013
Jose Boas
Gostei + 0
09/08/2013
Wesley Yamazack
Gostei + 0
09/08/2013
Jose Boas
vArquivo: TFileStream;
begin
vArquivo := TFileStream.Create('C:\SSO\RELATORIOS\1.txt',fmCreate);
Try
Try
idHTTP1.Request.Username := 'usuario';
idHTTP1.Request.Password := 'senha';
idHTTP1.put('http://ipfixo/ARQUIVO/REL/',vArquivo);
ShowMessage('Download OK !');
Except
ShowMessage('Não foi possivel baixar o arquivo !');
End;
Finally
FreeAndNil(vArquivo);
End;
Gostei + 0
09/08/2013
Mcbatalha
Estava pesquisando como fazer download de arquivos utilizando o delphi (http) e cheguei a este tópido. Meu problema é um pouco diferente. Quero fazer o download de um arquivo que não está armazenado no servidor, e sim, que é gerado no momento da "chamada" do http. Trata-se de um arquivo com taxa de câmbio do Banco Central.
a URL abaixo, se usada no navegador, "cria" o arquivo csv que preciso e faz o download através do browse, mas não consegui modificar o código acima (nem outros semelhantes que encontrei na web) para baixar o arquivo.
Segue a URL: https://www3.bcb.gov.br/ptax_internet/consultaBoletim.do?method=gerarCSVTodasAsMoedas&id=58068
Se puderem ajudar, fico grato.
Gostei + 0
06/09/2013
Powerlog Tecnologia
Gostei + 0
06/09/2013
Mcbatalha
Boa tarde powerlog
Vc está querendo fazer o download da tabela PTAX ?
Se for isso consegui resolver sim. Avisa que posto aqui para vc.
Gostei + 0
06/09/2013
Powerlog Tecnologia
Estou querendo fazer troca de arquivos. O sistema de Recrutamento e Seleção possui o módulo de Scan de documentos, mas as contratações ocorrem fora do endereço do cliente, nos notebooks dos recrutadores. Preciso subir os arquivos dos notebooks, centralizar em um FTP e um usuário no na base do cliente baixar / sincronizar.
Gostei + 0
06/09/2013
Mcbatalha
segue a rotina que utilizo para download
procedure TForm1.Button1Click(Sender: TObject);
var caminho, arquivo_origem : string;
Function Download(FSource, FDest: String): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(Fsource),PChar(FDest), 0, nil) = 0;
except
Result := False;
end;
end;
begin
caminho := 'c:\teste\arquivo.txt'; // local onde vc quer gravar o arquivo
arquivo_origem:= url + '\' + Nome_Arquivo; // url onde o arquivo está armazenado + o nome do arquivo
Download(arquivo_origem, caminho);
end;
Não coloquei no exemplo tratamento de erro caso o arquivo não seja localizado.
Espero ter ajudado.
Gostei + 0
06/09/2013
Mcbatalha
Enquanto pesquisava sobre meu problema achei esse post sobe upload / download com FTP. talvez seja mais efetivo para o que você precisa.
http://balaiotecnologico.blogspot.com.br/2010/10/fazendo-download-e-upload-usando-ftp.html
Gostei + 0
19/01/2017
Jose Boas
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)