[resolvido] Criar Programa Para Download

[Guest --junior --]

Fala galera...

To querneu criar um prog para baixar arquivos da internet via delphi..

tem como faz isso?

vlw

[Guest --Jonas --]

Fala galera...

To querneu criar um prog para baixar arquivos da internet via delphi..

tem como faz isso?

vlw

Colega ... Use o componente NMHTTP da palheta de Internet do Delphi.

Coloque o nome com o qual ele vai ser gravado na propriedade Body, Coloque

InputFileMode := True, e use

NMHTTP1.Get('http://sitedesejato/pasta/arquivo.extensao');

vlw ?

[Guest --HDELPHI --]

Esta dica tem por objetivo mostrar como é fácil fazer o download de arquivos na WEB.

Declare na cláusula uses: URLMon

Esta função é responsável pelo download do arquivo na WEB.

function DownloadFile(Source, Dest: string): Boolean;

begin

try

Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;

except

Result := False;

end;

end;

Insira no evento OnClick de um botão o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);

begin

if DownloadFile ('http://www.dicasdelphi.xpg.com.br/downloads/DicasDelphi.zip', 'c:\windows\desktop\dicasdelphi.zip') then

ShowMessage('Download Concluído!')

else

ShowMessage('Falha ao fazer o download!!')

end;

[Guest --junior --]

obrigado pela ajuda!

[Guest --junior --]

fala galera oia eu denovoo

tipo to querenu criar 2 edit para digitar o url do arquivo e outro para o caminho

coomo faço?

[Guest --HDELPHI --]

fala galera oia eu denovoo

tipo to querenu criar 2 edit para digitar o url do arquivo e outro para o caminho

coomo faço?

Colega .. basta trocar no codigo do botão

procedure TForm1.Button1Click(Sender: TObject);

begin

if DownloadFile (Edit1.Text,Edit2.Txt) then

ShowMessage('Download Concluído!')

else

ShowMessage('Falha ao fazer o download!!')

end;

beleza ?