ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Função DownloadFile com Gauge

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
[STR]Matrix
Novato
Novato


Registrado: Quinta-Feira, 26 de Julho de 2012
Mensagens: 28
MensagemEnviada: Qua Ago 08, 2012 5:08 pm    Assunto: Função DownloadFile com Gauge Responder com Citação
olá galera eu queria saber como fasso pra o gauge seguir o progresso do download

Código:
Uses

Urlmom;

function DownloadFile(WEB, LOCAL: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(WEB), PChar(LOCAL), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.sButton1Click(Sender: TObject);
if DownloadFile ('http://127.0.0.1/teste.rar','C:\All Users\Desktop\teste.rar) then
showmessage(download concluido);
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
russo_bradock
Membro Junior
Membro Junior


Registrado: Quinta-Feira, 14 de Dezembro de 2006
Mensagens: 335
MensagemEnviada: Qua Ago 08, 2012 5:54 pm    Assunto: Responder com Citação
Acredito que fazendo o download dessa forma ai não teria como. Talvez se você usar os componentes do Indy para isso, senão me engano o HTTPRio consegue fazer download.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
gilsonnrodrigues
Moderador
Moderador


Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
MensagemEnviada: Qua Ago 08, 2012 7:40 pm    Assunto: Responder com Citação
http://www.activedelphi.com.br/forum/viewtopic.php?t=34483&sid=d495e420e2627e5d0f297f5fe1b97657
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB