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

本文链接：https://blog.csdn.net/bass0727cn/article/details/6831044

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

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命令把窗体刷新一下。