Ich möchte das Datum der Datei ‚index.htm‘ auf unserem Server per FTP (Indies 10) anzeigen, kriege aber immer diese Fehlermeldung:
„Im Projekt ist eine Exception der Klasse EListError aufgetreten. Meldung: ‚Listenindex überschreitet das Maximum (0)‘. …“
Was stimmt hier nicht? (Ansonsten klappt z.B. list, get und put ohne Probleme)
Code:
procedure TForm1.Button29Click(Sender: TObject);
var
LS: TStringList;
datum1: TDateTime;
begin
LS := TStringList.Create;
try
IdFTP1.username := username1;
IdFTP1.Password := password1;
IdFTP1.Host := hostname1;
IdFTP1.Connect;
if IdFTP1.Connected then
begin
IdFTP1.ChangeDir(’/abc’);
IdFTP1.List(LS,‚index.htm‘, True);
datum1 := idFTP1.DirectoryListing.Items[0].ModifiedDate;