清理过期临时文件线程单元文件

//用到不常见的TWin32FindData结构，判断文件的生成日期/创建日期等；
Windows.FindFirstFile(PChar(sFileName), ffd); //根据文件名查找文件
Windows.FindClose(sHandle);
FileTimeToLocalFileTime(fTime, lft); //将一个FILETIME结构转换成本地时间
FileTimeToDosDateTime(lft, LongRec(dft).HI, LongRec(dft).Lo); //将一个 win32 FILETIME 值转换成DOS日期和时间值
Result:= FileDateToDateTime(dft); //返回将文件日期时间类型转换日期时间类型

 

//读取配置文件
function TMainForm.ReadClearConfig: Boolean;
var
  MyIniFile: TIniFile;
begin
  Result := True;
  MyIniFile := TIniFile.Create(Pub_EXEPath + '\ClearCatchServer.ini');
  try
    try
      BDBQCSPFTempDir := (MyIniFile.ReadString('ClearConfig', 'BDBQCSPFTempDir', ''));
      BDDCBFTempDir := (MyIniFile.ReadString('ClearConfig', 'BDDCBFTempDir', ''));
      BDDZTempDir := (MyIniFile.ReadString('ClearConfig', 'BDDZTempDir', ''));
      BDSPFTempDir := (MyIniFile.ReadString('ClearConfig', 'BDSPFTempDir', ''));
      BDSXPDSSTempDir := (MyIniFile.ReadString('ClearConfig', 'BDSXPDSSTempDir', ''));
      BDZJQSTempDir := (MyIniFile.ReadString('ClearConfig', 'BDZJQSTempDir', ''));
      LQDZTempDir := (MyIniFile.ReadString('ClearConfig', 'LQDZTempDir', ''));
      LQRFTempDir := (MyIniFile.ReadString('ClearConfig', 'LQRFTempDir', ''));
      LQYSZFTempDir := (MyIniFile.ReadString('ClearConfig', 'LQYSZFTempDir', ''));
      ZQDZTempDir := (MyIniFile.ReadString('ClearConfig', 'ZQDZTempDir', ''));
      LogDir :=(MyIniFile.ReadString('ClearConfig', 'LogDir', ''));
      IDateLimit := (MyIniFile.ReadString('ClearConfig', 'IDateLimit', ''));
      sClearTimeStrat := (MyIniFile.ReadString('ClearConfig', 'sClearTimeStrat', ''));
      sClearTimeEnd := (MyIniFile.ReadString('ClearConfig', 'sClearTimeEnd', ''));
    except on E : Exception do
      begin
        WriteLog(E.Message);
        Result := False;
      end;
    end;
  finally
    MyIniFile.Free;
  end;   
end;

　　

//启动线程 之前还要获取要删除的各文件夹名称
if iClearFileStart = 1 then
begin
slDirList.Clear;
slDirList.Delimiter := '|';
slDirList.DelimitedText := BDBQCSPFTempDir +'|'+ BDDCBFTempDir +'|'+ BDDZTempDir +'|'+ BDSPFTempDir +'|'+ BDSXPDSSTempDir +'|'+ BDZJQSTempDir+'|'
+ LQDZTempDir + '|' + LQRFTempDir + '|' + LQYSZFTempDir + '|' + ZQDZTempDir + '|' + LogDir;
ClearOverdueFileThd := TClearOverdueFileThd.create;
ClearOverdueFileThd.resume;
end;

{*******************************************************************************
  Copyright (C), 2011-2015,
  File name: ThdClearOverdueFile
  Author:
  Version: 1.0
  Date: 2013-05-02
  Description: 清理过期临时文件
  Others:
  Function List:
  History:
    1. Date: 2013-06-09
        Author: guoqiang.xu
        Modification: debug
*******************************************************************************}
unit ThdClearOverdueFile;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, MyAccess,
  PubDefine, DateUtils, StrUtils, StdCtrls, Forms;

type
  TClearOverdueFileThd = class(TThread)
  private
    { Private declarations }

  public
    { Public declarations }
   constructor Create;
   procedure Execute; override;
   destructor Destroy; override;
   function DelOverduefile(path:string;date:TDateTime):boolean;
   function GetFilesTime(sFilename: String; Timetype: Integer): TDateTime;
end;

implementation

uses  FrmMain;

constructor TClearOverdueFileThd.Create;
begin
  inherited Create(True);   //继承
  freeOnTerminate := True;  //设定默认Terminate后释放所占资源
end;

procedure TClearOverdueFileThd.Execute;
var
  i : Integer;
  CurrTime : string;
begin
  CurrTime := FormatDateTime('HHMM',Now());
  // 2013-06-09 guoqiag.xu 原来的if条件太长了，识别不了。 更新把删除条件减少
  //若在这个删除的范围内 ，则删除
  if (CurrTime >= MainForm.sClearTimeStrat) and (CurrTime < MainForm.sClearTimeEnd) then
  begin
    // 循环删除文件夹
    for i:=0 to MainForm.slDirList.Count - 1 do
    begin
      DelOverduefile(Pub_EXEPath+ '\' + MainForm.slDirList[i],Now());
      Sleep(300);
    end;
    sleep(1000);
  end;
end;

function  TClearOverdueFileThd.DelOverduefile(path:string;date:TDateTime):boolean;
var
  rec : TsearchRec;
  ret,tcount : integer;
  sDirFlie,dt1,dt2,dt3 : string;
  cdt,chkd : Tdatetime;
begin
  result := False;
  try
    try
      tcount := 0;
      ret:=findfirst(path+'\'+'*.txt',faanyfile,rec);  //用TsearchRec查找目录结构
      while ret=0 do
      begin
        sDirFlie:=path+'\'+rec.name;
        cdt:=GetFilesTime(sDirFlie, 0);
        chkd:= date;
        //以文件的创建时间为基准
        dt1:=datetostr(cdt);
        dt2:=datetostr(GetFilesTime(sDirFlie, 1));
        dt3:=datetostr(GetFilesTime(sDirFlie, 2));
        //ITimeLimit是从配置文件读取
        if chkd - StrToInt(mainform.IDateLimit) > cdt then   //创建日期要小于 某个间隔IDateLimit的
        begin
          application.ProcessMessages;
          tcount:=tcount+1;
          deletefile(sDirFlie);
          MainForm.LogInfo('成功删除,'+ path +'目录下->' + IntToStr(tcount) +'个过期文件！',True);
        end;
        ret:=findnext(rec);
      end;
      Result := True;
    except on E:Exception do
      begin
        MainForm.LogInfo('文件删除异常,' + e.Message,True);
        Result := False;
        Exit;
      end;
    end;
  finally
    findclose(rec);
  end;
end;

function TClearOverdueFileThd.GetFilesTime(sFilename: String; Timetype: Integer): TDateTime;
var  
  ffd: TWin32FindData;  
  dft: DWord;  
  lft, fTime: TFileTime;
  sHandle: THandle;
begin
  sHandle:= Windows.FindFirstFile(PChar(sFileName), ffd);  //根据文件名查找文件

  if (sHandle <>INVALID_HANDLE_VALUE) then   //不是无效的
  begin
    case Timetype of
    //0为创建时间，1为最后修改时间，2为最后访问时间。
      0: fTime:= ffd.ftCreationTime;
      1: fTime:= ffd.ftLastWriteTime;
      2: fTime:= ffd.ftLastAccessTime;
    end;
    // 
    Windows.FindClose(sHandle);
    FileTimeToLocalFileTime(fTime, lft); //将一个FILETIME结构转换成本地时间
    FileTimeToDosDateTime(lft, LongRec(dft).HI, LongRec(dft).Lo); //将一个 win32  FILETIME 值转换成DOS日期和时间值
    Result:= FileDateToDateTime(dft);  //返回将文件日期时间类型转换日期时间类型
  end
  else
    Result:= 0;
end;


destructor TClearOverdueFileThd.Destroy;
begin
  inherited;
end;

end.