[Duvida]Download de arquivo na internet!
Ola, Quero fazer meu aplicativo fazer downloads da internet, essa etapa eu já consegui faze(Código Abaixo), mas é um metodo muito ruim pois trava o programa quando estou fazendo o download, além disso eu gostaria de adicionar Progressbar e informações como velocidade de download, tamanho do arquivo a ser baixado, se possivel tempo para completar o download e etc... como retiro essas informações do download.. e como faço para o aplicativo não travar... Preciso de ajuda, o programa que eu estou fazendo é um Udapter(atualizador).
O meu Atualizador atual faz assim, verifica a versão do aplicativo instalado no pc, e atraves de um arquivo .txt que fica em um host ele le a ultima versão lançada, se houver diferenças de versões ele baixa o aplicativo atualizado, renomeia o antigo para *.bkp e o novo para o nome original...
Quero Dicas e sugestões para tornar esse aplicativo mais facil, rapido e util..
eu agradeço desde já a ajuda ^^
Função:
quando aperta o botão Atualizar:
Se alguém estiver interessado em me ajudar via MSN.. Add-me em Guilherme_12345_@MSN.com
Ficaria grato se pudesse terminar esse projeto, Obrigado.
Att LastDeath!
O meu Atualizador atual faz assim, verifica a versão do aplicativo instalado no pc, e atraves de um arquivo .txt que fica em um host ele le a ultima versão lançada, se houver diferenças de versões ele baixa o aplicativo atualizado, renomeia o antigo para *.bkp e o novo para o nome original...
Quero Dicas e sugestões para tornar esse aplicativo mais facil, rapido e util..
eu agradeço desde já a ajuda ^^
Função:
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;quando aperta o botão Atualizar:
procedure TForm1.Button3Click(Sender: TObject);
var
DestFile:string;
SourceFile:string;
begin
SourceFile := DownloadURLPlayer;
if processExists(´Radio Gunbound Media Player.exe´) then KillTask(´Radio Gunbound Media Player.exe´);
DestFile := ExtractFilePath(Application.EXEName)+´Radio Gunbound Media Player.exe.udpt´;
if DownloadFile(SourceFile, DestFile) then
begin
label2.Caption:=´Atualização Baixada!´;
ProgressBar1.Position:=10;
timer11.Enabled:=true;
timer12.Enabled:=true;
end else
begin
ShowMessage(´Erro Ao Atualizar Programa, Tente Mais tarde!´ )
end;
end;
Se alguém estiver interessado em me ajudar via MSN.. Add-me em Guilherme_12345_@MSN.com
Ficaria grato se pudesse terminar esse projeto, Obrigado.
Att LastDeath!
Ratu123
Curtidas 0