Download e Upload pelo protocolo HTTP + autenticação
Configurar meu servidor iss para permitir o download de arquivos com o componente IDHTTP1. No iss eu configurei com senha e usuário e não estou conseguindo passar o usuário e senha para poder baixar o arquivo do servidor. Eu fiz um teste pelo navegador e está legal, portanto o iss está configurado, o problema está na configuração no IDHTTP1 no delphi.
Jose Boas
Curtidas 0
Respostas
Wesley Yamazack
07/08/2013
Opa Jose, não sei se isso resolveria seu problema:
Um abraço
procedure TForm1.FormCreate(Sender: TObject); begin IdHTTP1.Request.Password := 'senha'; IdHTTP1.Request.Username := 'usuario'; end;
Um abraço
GOSTEI 0
Jose Boas
07/08/2013
Blz consegui fazer. Agora estou tentando fazer upload mas mesmo no fórum não encontrei solução.
GOSTEI 0
Wesley Yamazack
07/08/2013
Posta o código aqui pra darmos uma olhada.
GOSTEI 0
Jose Boas
07/08/2013
var
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;
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
Mcbatalha
07/08/2013
Boa noite,
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.
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
Powerlog Tecnologia
07/08/2013
Foi resolvido ? Estou com o mesmo caso por aqui ...
GOSTEI 0
Mcbatalha
07/08/2013
Foi resolvido ? Estou com o mesmo caso por aqui ...
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
Powerlog Tecnologia
07/08/2013
A tabela do IBPT já está ok, não é isso...
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.
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
Mcbatalha
07/08/2013
Bem, upload nunca precisei fazer, mas dever ser parecido com o DownLoad
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.
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
Mcbatalha
07/08/2013
Esqueci de anenax
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
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
Jose Boas
07/08/2013
Obrigado Mcbatalha.
GOSTEI 0