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.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
O que é isso no meu navegador? [RESOLVIDO] (5)
Eu estou com problemas para usar o QBASIC no Dosbox X (2)
Ubuntu simplesmente morreu (8)
Como colocar uma assinatura digital em um código compilado ! (2)