Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Criar Programa Para Download


Guest --junior --

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0
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 ?

Link para o comentário
Compartilhar em outros sites

  • 0
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;

Link para o comentário
Compartilhar em outros sites

  • 0
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 ?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...