Pegar TXT de site e mostar

[Ringeril 0]

Olá, estou começando esse projeto agora e gostaria de ajuda.

 

O que quero fazer é baixar de um site um arquivo TXT com Nome,Imagem,Arquivo e URL.

Exemplo:

#Coisas 1
#img1.jpg
#1.rar
www.arquivos.com/1.rar

#Coisas 2
#img2.jpg
#2.rar
www.arquivos.com/2.rar

#Coisas 3
#img3.jpg
#3.rar
www.arquivos.com/3.rar

#Coisas 4
#img4.jpg
#4.rar
www.arquivos.com/4.rar

#Coisas 5
#img5.jpg
#5.rar
www.arquivos.com/5.rar

A partir dai montar uma "interface" simples:

 

Ao clicar no botão download pegar o Arquivo e a URL e fazer o download atráves daqui:

function DownloadFile(Source, Dest: string): Boolean; 
begin
try
   Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
   Result := False;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile (URLarquivo, 'c:\downloads\'+Arquivo) then
   ShowMessage('Download Concluído!')
else
   ShowMessage('Falha ao fazer o download!!')
end;

Não sei como posso puxar o TXT e montar a "interface", e também com essa function de download o PC fica travado.

 

Obrigado.

Diogo Silva

[bdexterholland 0]

Kara, o PC fica travado porque ele deve estar fazendo o download do arquivo. Para abrir o arquivo, voce pode usar a classe TStringList:

 

var
  Lista: TStringList;
begin
  Lista := TStringList.Create;
  Lista.LoadFromFile('c:\windows\system32\autoexec.nt');
  ShowMessage(Lista.Text);
end;

[Ringeril 0]

Vou ter que abrir o arquivo e formatar ele para montar a interface.

Como faço para parar as travadas e mostrar tempo que falta, velocidade, etc.?

 

Sou iniciante(muito), se pudesse dar mais explicações.

[Raficcha 1]

Pois intão, você pode, para isso, criar um objeto, que você instacia dinamicamente em tempo de execução.

 

Me passa um e-mail: tonello.rafinha@gmail.com

 

vou tentar explicar com um exemplo