Kilka plików przez HttpGet

0

Witam.
Zadaniem mojego programu, ma być ściągnięcie kilku plików z internetu pod rząd, do których linki znajdują się w memo1.
Więc pod button1 dałem taki kod:

procedure TForm1.Button1Click(Sender: TObject);
var
  aktualna : string;
  nazwa : string;
begin
  aktualna := memo1.Lines[0]; // przypisuje do zmiennej link
  nazwa := memo1.Lines[0]; // przypisuje do zmiennej link
  Delete(nazwa, 1, 52);  // usuwa ze zmiennej znaki, tak, aby została sama nazwa pliku
  HTTPGet1.URL := aktualna;
  HTTPGet1.FileName := 'C:\'+nazwa;
  HTTPGet1.GetFile;
end;

W zdarzeniu DoneFile komponentu HttpGet dałem coś takiego:

procedure TForm1.HTTPGet1DoneFile(Sender: TObject; FileName: String;
  FileSize: Integer);
begin
  memo1.lines.Delete(0);
  button1.Click;
end;

W praktyce miałoby to działać mniej więcej tak:

  1. Program ściąga plik, do którego link jest w 0 linii memo.
  2. Po ściągnięciu pliku, program usuwa 0 linię
  3. Program klika na buttona, który znów pobiera plik z 0 linii...

Lecz coś nie działa :( Pobiera tylko pierwszy plik i na tym koniec...
Co ciekawe, gdy usunę z DoneFile procedurę "button1.click" i po ściągnięciu pierwszego pliku ręcznie kliknę na buttona, to wszystko działa...
Dodam jeszcze, że próba ściągnięcia tych plików w pętli, również nie działa...
W czym tkwi problem?

Pozdrawiam

0

A dlaczego nie używasz pętli for? I spróbuj Button1.OnClick

0

Jak już pisałem, pętle też nic nie dają...
OnClick też nie pomaga...

0

Spróbuj zrobić komponent dynamicznie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1