delphi自动更新程序

最新推荐文章于 2025-05-29 09:55:59 发布

百炼成钢百忍成佛

最新推荐文章于 2025-05-29 09:55:59 发布

阅读量5.9k

点赞数 1

CC 4.0 BY-SA版权

文章标签： delphi path url basic integer string

本文链接：https://blog.youkuaiyun.com/beyondqd/article/details/6330271

这段代码展示了如何使用Delphi编写一个自动更新程序。它首先检查服务器上的更新信息文件，然后下载并安装新文件，同时备份现有文件。程序通过HTTPFiles组件与服务器交互，获取并保存更新文件到指定路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function ExistNewfile&:boolean;
var i,iFileHandle:integer;
FileDateTime:TDateTime;
AppIni:TiniFile;
g_path:string;
url:string;
files:TStrings;
begin
result:=false;
url:=’http://yousoft.hi.com.cn/update.htm/’; //要升级的服务器
g_path:=ExtractFilePath(application.ExeName); //升级程序的路径
if copy(g_path,length(g_path),1) <> ’/’ then g_path:=g_path+’/’;
if copy(url,length(url),1) <> ’/’ then url:=url+’/’;

//下载升级信息文件
try
HTTPFiles.InputFileMode := true;
HTTPFiles.OutputFileMode := FALSE;
HTTPFiles.ReportLevel := Status_Basic;
HTTPFiles.Body:=g_path+’update/update.ini’; //下载后保存到程序的update目录下
HTTPFiles.Get(url);
except
result:=false; //取得升级信息出错！，不用再继续
exit;
end;
try
files:=TStringlist.Create; //有哪些文件？
AppIni := TIniFile.Create(g_path+’/update/update.ini’);
AppIni.ReadSections(files);
for i:=0 to files.Count-1 do
try
iFileHandle :=FileOpen(g_path+files,fmShareDenyNone);
FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle)); //取得文件时间
FileClose(iFileHandle);
//是否要下载文件
if FileDateTime,’DATETIME’,’1900-1-1’))&NBSP;THEN
begin
result:=true;
break;
end;
except
end;
finally
AppIni.free;
files.Free;
end;
end;

　　取得files后文件下载！httpfiles为TNMHTTP

HTTPFiles.InputFileMode := true;
HTTPFiles.OutputFileMode := FALSE;
HTTPFiles.ReportLevel := Status_Basic;
HTTPFiles.Body:=g_path+’update/’+files;
HTTPFiles.Get(url);

　　把下载后的文件复制到原程序，并备份出一份

for i:=0 to files.Count-1 do //备份文件
begin
//备份一份文件出来
copyfile(pchar(g_path+files),pchar(g_path+files+’.bak’),false);
end;
for i:=0 to files.Count-1 do //从update复制新文件
begin
copyfile(pchar(g_path+’update/’+files),pchar(g_path+files),false);
end;