Witajcie.
Moze mi ktos napisac jak przy wykorzystaniu komponentu ICS FTPClient wylistowac pliki w katalogu FTP i je wszystkie pobrac ?
Pozdrawiam.
0
0
i oczywiście nie wpadłeś na tak genialny pomysł jak pooglądanie dem, które są razem z paczką ...
0
Zdziebko zagmatwane sa te dema.
Co do listowania to juz sobie poradzilem.
Mam natomiast inny problem z rozwiazaniem znalezionym gdzies w sieci, ktore jest ponizej.
procedure TForm1.SpeedButton2Click(Sender: TObject);
var MyDirList: TStringList;
TempFileName: String;
i: Integer;
begin
TempFileName := 'D:\TempDirList.txt';
MyDirList := TStringList.Create;
FTPClient1.LocalFileName := TempFileName;
FTPClient1.HostDirName:='/REKLAMY/';
FTPClient1.Cwd;
FTPClient1.ls;
MyDirList.LoadFromFile(TempFileName);
for i := 0 to MyDirList.Count - 1 do
begin
Memo1.Lines.Add(MyDirList[i]);
FTPClient1.HostFileName:=MyDirList[i];
FTPClient1.LocalFileName:='D:\Tymczasowy\REKLAMY\'+MyDirList[i];
FTPClient1.RestGet;
FTPClient1.Dele;
end;
FTPClient1.HostDirName:='/AKTUALIZACJE/';
FTPClient1.Cwd;
FTPClient1.ls;
MyDirList.LoadFromFile(TempFileName);
for i := 0 to MyDirList.Count - 1 do
begin
Memo1.Lines.Add(MyDirList[i]);
FTPClient1.HostFileName:=MyDirList[i];
FTPClient1.LocalFileName:='D:\Tymczasowy\REKLAMY\'+MyDirList[i];
FTPClient1.RestGet;
FTPClient1.Dele;
end;
MyDirList.Free;
end;
Jak chcesz pomoc to napisz dlaczego przy przechodzeniu do katalogu "/AKTUALIZACJE/" w momencie podstawiania nazwy pliku do sciagniecia do HostFileName w pliku TempDirList.txt zapisywane sa infromacje z listowania pierwszego katalogu czyli "/REKLAMY/" zamiast z listowania katalogu "/AKTUALIZACJE/".
Pozdrawiam.