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:
- Program ściąga plik, do którego link jest w 0 linii memo.
- Po ściągnięciu pliku, program usuwa 0 linię
- 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