iDnl
Aprendiz
Registrado: Domingo, 9 de Junho de 2013
Mensagens: 173
|
 Enviada: Seg Jun 10, 2013 10:58 pm Assunto: [Tutorial] Update Simples |
 |
|
Olá, este é meu primeiro tutorial aqui, creio que muitos usuário já sabem mas no meu caso eu não sabia até esses dias, acho que vou ajudar muito usuário novatos.
___________________________________________________
Declare nas uses:
------------------------------------------------------------------
Declare a seguinte função:
| Código: | function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0;
except
Result:= False;
end;
end;
|
-----------------------------------------------------------------
Adicione um TButton e no evento OnClick adicione:
| Código: | if DownloadFile ('http://www.site.com.br/down/pasta/arquivo.xxx','c:\arquivo.xxx') then
ShowMessage('Download Concluído.'); |
_____________________________________________________________ |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
