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.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba