FTP使用Synapse获取文件修改日期

时间:2017-05-09 10:18:59

标签: delphi ftp lazarus freepascal

我正在使用Synapse创建一个自动更新程序,它应该根据修改日期下载比本地文件更新的文件。 但是从ftp我得到了创建时间而不是修改,尝试使用这样的自定义命令:

var
  ftp:tftpsend;
...
ftp.List('',false);
for i:=0 to ftp.ftplist.Count-1 do begin
  item:=ftp.FtpList[i];
  ftp.FTPCommand('MDTM '+ item.FileName);
  //decode date
  if (ftp.ResultCode=213) then begin
    s:=ftp.ResultString;
    s:=copy(s,5,length(s));
    date:=encodeDateTime(
    strtoint(copy(s,1,4)),
    strtoint(copy(s,5,2)),
    strtoint(copy(s,7,2)),
    strtoint(copy(s,9,2)),
    strtoint(copy(s,11,2)),
    strtoint(copy(s,13,2)),
    0);
    item.FileTime:=date;
  end;

FileZilla能够正确显示它。发生了什么事?

0 个答案:

没有答案