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

fdeli

　　
　　在做程序时，遇到了一些问题，有的已经解决，还有一些不影响程序正常使用的问题，还没有找到解决办法。
　　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命令把窗体刷新一下。

版权声明：本文为博主原创文章，未经博主允许不得转载。