RES: [delphi-br] Como baixar arquivo via Delphi

Alexandre Mon, 16 Apr 2007 04:35:21 -0700

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 [mailto:[EMAIL PROTECTED] Em
nome de Andre Veloso de Mesquita
Enviada em: segunda-feira, 16 de abril de 2007 07:44
Para: delphi-br@yahoogrupos.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]>
To: <delphi-br@yahoogrupos.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

RES: [delphi-br] Como baixar arquivo via Delphi

Responder a