Assim é mais facil:
ShellExecute(handle, 'open', 'www.teste.com.br/xpto/banco.xxx', nil,
nil, 0);
Obs.; Adiciona a SHELLAPI na USES.
Em 16/04/07, Alexandre <[EMAIL PROTECTED]> escreveu:
>
> Estimados,
>
> Bom dia. Ou então, outra opção é utilizar a unit URLMon, com a função
> 'UrlDownloadToFile'.
> Exemplo :
>
> uses
> URLMon, ShellApi;
>
> function ExecutaDownload(sOrigem, sDestino: string): Boolean;
> begin
> try
> Result := UrlDownloadToFile(nil, PChar(sOrigem), PChar(sDestino), 0,
> nil) = 0;
> except
> Result := False;
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> const
> Origem = 'www.teste.com.br/xpto/banco.xxx';
> Destino = 'c:\xpto\banco.xxx';
> begin
> if ExecutaDownload(Origem, Destino) then
> ShowMessage('Download executado com sucesso!')
> else
> ShowMessage('Erro no download do arquivo ' + Origem)
> end;
>
> Dica retirada (e que eu utilizo com sucesso) do mae/pai swissdelphicenter.
>
> Saudações.
>
> ---
> []'s
>
> Alexandre
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> nome de Andre Veloso de Mesquita
> Enviada em: segunda-feira, 16 de abril de 2007 07:44
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: Re: [delphi-br] Como baixar arquivo via Delphi
>
> Já tentou usar um TidTCP.get?
>
> Dá uma olhada no help do Indy sempre que precisar de um recurso para web.
>
> [ ]'s
>
> ----- Original Message -----
> From: "Eduardo Paci Galvão" <[EMAIL PROTECTED]<egalvao%40egalvao.com.br>
> >
> To: <delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>>
> Sent: Monday, April 16, 2007 6:54 AM
> Subject: [delphi-br] Como baixar arquivo via Delphi
>
> Pessoal,
>
> Qual a maneira mais fácil de, via Delphi, baixar um arquivo
> que se encontra em um site da internet? (*não* via FTP).
>
> Ex: arquivo www.teste.com.br/xpto/banco.xxx.
>
> Qual comando usar?
>
> Saudações,
> Eduardo Paci Galvão
> Bacharel em Engenharia Elétrica - UFMG
> Analista de Sistemas
> www.egalvao.com.br
>
>
>
--
Igor Alexandre.
[As partes desta mensagem que não continham texto foram removidas]
