hi malik!
hier falls du immer noch suchst - müsste eigentlich funzen:
// Code ...
Function GetFTPFileDate( URL: String): TDateTime;
{ benötigt: Var idFTP1: TidFTP; }
Var DListe: TStrings;
Begin
idFTP1.Username := 'anonymous';
idFTP1.Password := 'anonymous';
idFTP1.Host := URLSplitHost( URL); // URLSplitHost filtert den Host aus der URL, Bsp: 'ftp.server.com'
idFTP1.Connect;
idFTP1.ChangeDir( URLSplitDir( URL)); // URLSplitDir filtert den Pfad zur Datei aus der URL, Bsp: 'public'
DListe := TStringList.Create;
idFTP1.List( DListe, URLSplitFile( URL), True); // URLSplitFile filtert die Datei aus der URL, Bsp: 'beispiel.zip'
Result := idFTP1.DirectoryListing.Items[0].ModifiedDate;
idFTP1.Quit;
End;
// ... Code!
Aufruf, Bsp:
Label1.Caption := 'Dateidatum: ' + FormatDateTime( 'dd.mm.yyyy', GetFTPFileDate( 'ftp://ftp.server.com/public/beispiel.zip'));
bye!