P.S.
Случайно вернулся к этой теме и порешал задачу так:
| Код |
................................
procedure DisplayHandler(Sender : TObject; var Msg : String);
..............................
Var fMessage:String;
................................
FTPClient.OnDisplay:=DisplayHandler;
................................
procedure TFilesPanel.DisplayHandler(Sender : TObject; var Msg : String);
begin
//Display(Msg);процедура, где все команды выводятся например в Мемо
fMessage:=Msg;
end;
// Получить дату модификации файла
function TFilesPanel.FtpGetFileDate(FullFileName:String):String;
Var sDate,Y,M,D,H,min,sec:String;
begin
if not FtpClient.Connected then FtpClient.Connect;
FtpClient.HostDirName := путь к директории, где лежит файл;
FtpClient.HostFileName := имя файла;
FtpClient.Cwd;
FtpClient.Feat;//включает расширенные функции (я так думаю)
FtpClient.Mdtm;
//fMessage='< 213 20140326123426', где 20140326123426 - дата в формате "YYYYMMDDhhmmss"
sDate:=fMessage;
Delete(sDate,1,Pos('213 ',sDate)+3);
Y := Copy(sDate,1,4); Delete(sDate,1,4);
M := Copy(sDate,1,2); Delete(sDate,1,2);
D := Copy(sDate,1,2); Delete(sDate,1,2);
H := Copy(sDate,1,2); Delete(sDate,1,2);
min:= Copy(sDate,1,2); Delete(sDate,1,2);
sec:= sDate;
Result:=D+'.'+M+'.'+Y+' '+H+':'+min+':'+sec;
end;
|
Мне все это не очень нравится, но работает четко. Правда только для файлов. |
)