用Delphi做了个从FTP服务器更新的程序，把遇到的一些小问题在这儿，以备查用

来源：互联网发布：庄家统软件2016 编辑：程序博客网时间：2024/06/09 20:28

在做程序时，遇到了一些问题，有的已经解决，还有一些不影响程序正常使用的问题，还没有找到解决办法。

1、因为是要做更新程序，就会有文件比较的问题，我的比较条件是文件的修改时间，在写程序的过程中发现，从FTP服务器把文件下载之后，本地更新文件的修改时间，都是系统的当前时间，所以用到了设置文件修改时间的函数，从网上找到了该函数：

//设置文件修改时间function TFTPFrm.SetFileDateTime(FileName : String; NewDateTime : TDateTime): Boolean;var FileHandle: Integer;  FileTime: TFileTime;  LFT: TFileTime;  LST: TSystemTime;begin  Result := False;try  DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);  DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond, LST.wMilliSeconds);  IF SystemTimeToFileTime(LST, LFT) Then  begin  IF LocalFileTimeToFileTime(LFT, FileTime) Then  begin  FileHandle := FileOpen(FileName, fmOpenReadWrite or fmShareExclusive);  IF SetFileTime(FileHandle, NIL, NIL, @FileTime) Then Result := True;  end;  end;finally  FileClose(FileHandle);end;end;

2、在程序执行时，自动执行下载的过程，如果把代码写在OnShow()事件中，窗体会在下载代码执行完成后，才能显示出来，要把代码写在OnActivate()事件中。

3、为了把更新结果写在ListBox中，显示更新的信息，每下载一个文件，把相关的信息写入ListBox中，如果下载的文件较多，ListBox中的内容会在所有下载完成后，才一起显示出来，我的解决方法是，在每写入ListBox一行信息后，把用Refresh命令把窗体刷新一下。