delphi自动更新程序

最新推荐文章于 2022-06-26 09:25:22 发布

百炼成钢百忍成佛

最新推荐文章于 2022-06-26 09:25:22 发布

阅读量5.8k

点赞数 1

文章标签： delphi path url basic integer string

本文链接：https://blog.csdn.net/beyondqd/article/details/6330271

版权

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

摘要由CSDN通过智能技术生成

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; //有哪些文件&#