Enviado em 24/11/2014 - 21:38h
Meu programa está quase pronto,porém ele não salva o arquivo em lugar nenhum,li que preciso utilizar o GetEnviromentVariable,gostaria de saber:
procedure TForm1.Button1Click(Sender: TObject);
var
URL, Arq : string;
MyFile: TFileStream;
begin
// Definir o link
URL := Edit1.Text; // Aqui fica o caminho de onde ira fazer o download , pode ser trocado por um edit, etc..
Arq := ExtractFileName(StringReplace(URL,'/','\',[rfReplaceAll]));
try // Nome do arquivo para download
MyFile := TFileStream.Create('Desktop',fmCreate); //Local no hd e nome do arquivo com a extensão, onde vai salvar.
try
IdHTTP1.Get(URL, MyFile); // Fazendo o download do arquivo
finally
MyFile.Free;
end;
finally
end;
end;
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
ProgressBar1.Position := AWorkCount;
end;
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
BEGIN
ProgressBar1.Position:=10;
Sleep(150);
ProgressBar1.Position:=20;
Sleep(150);
ProgressBar1.Position:=30;
Sleep(150);
ProgressBar1.Position:=40;
Sleep(150);
ProgressBar1.Position:=50;
Sleep(150);
ProgressBar1.Position:=60;
Sleep(150);
ProgressBar1.Position:=75;
Sleep(150);
ProgressBar1.Position:=90;
Sleep(150);
ProgressBar1.Position:=100;
Sleep(150);
Showmessage('Terminou!');
ProgressBar1.Position := 0;
ProgressBar1.Max := AWorkCountMax;
Label1.caption := 'Download em andamento, espere!';
end;
procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := ProgressBar1.Max;
Label1.caption := 'Download Concluído!';
end;
end.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como criar um robot em NTSL (Nelogica Trading System Language) para Profitchart
Use o Google PageSpeed Insights para verificar um site
Como Atualizar Fedora 39 para 40
Sistema da Coréia do Norte - Red Star OS (20)
filtrar só as pastas onde tem arquivo (4)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (31)
Instalacao Manjaro em notebook com placa de video hibrida [RESOLVIDO] (2)