用DELPHI制作在線程序升級(jí)信息查詢

2019-11-18 18:42:34

字體：大中小

供稿：網(wǎng)友

越來(lái)越多的程序支持在線升級(jí)功能，本文介紹的就是如何從網(wǎng)站獲取升級(jí)信息。這里我主要使用版本信息來(lái)檢測(cè)是否需要下載升級(jí)版本。
大致原理如下：
1、放置信息文本到網(wǎng)站。
2、使用TNMHTTP從網(wǎng)站信息文本獲取文本內(nèi)容。
3、分析文本解析所需信息。
4、比較程序版本提供升級(jí)信息。
    首先，我們放置一個(gè)信息文本到自己的網(wǎng)站，這個(gè)文本有自己的文件格式，我定義了如下的格式：
[update]
    <ver>1.79.9.25</ver>
    <url>http://delphibox.com/softm/3_update.zip</url>
    <date>2002-9-25</date>
[/update]
我們可以將它保存為update.txt文件，使用[]<>的標(biāo)示符將信息分類，這里包含了程序名、版本、更新日期和下載地址。這里我假使上傳到http://2ccc.com/update.txt。
    然后我們使用TNMHTTP組件從網(wǎng)站獲取此文件的內(nèi)容：
function TForm1.GetUpdateText:String;
begin
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
NMHTTP1.Get('http://2ccc.com/update.txt'); { 獲取網(wǎng)站文本 }
Result:=NMHTTP1.Body;
end;
    獲取文本以后，我們要將其中的信息分離，我使用了如下的函數(shù)：
function TForm1.AnalyseUpdate(Body:String;var Update:TUpdate):Boolean;
var
TmpStr,Ver:String;
function CenterStr(Src:String;Before,After:String):String;
{ 這個(gè)函數(shù)用來(lái)分離兩個(gè)字符串中間的字符串，
    例如 ..('DelphiBox.com','Delphi','.com')=>'Box'。 }
var
    Pos1,Pos2:Word;
begin
    Pos1:=Pos(Before,Src)+Length(Before);
    Pos2:=Pos(After,Src);
    Result:=Copy(Src,Pos1,Pos2-Pos1);
end;
begin
TmpStr:=CenterStr(Body,'update'); { 得到程序名間的升級(jí)信息 }
if TmpStr='' then
    Result:=False else { 找不到此文件升級(jí)信息 }
begin
    Ver:=CenterStr(TmpStr,'<ver>','</ver>');
    Update.Version:=SeparateVerStr(Ver); { 解析版本 }
    Update.Date:=StrToDate(CenterStr(TmpStr,'<date>','</date>')); { 解析日期 }
    Update.URL:=CenterStr(TmpStr,'<url>','</url>'); { 解析升級(jí)地址 }
    Result:=True;
end;
end;
其中TUpdate是我定義的信息的記錄格式：
TSimpleVersion=record  { 簡(jiǎn)化的版本信息 }
    dwPRoductVersionMS: DWORD; { 主版本 }
    dwProductVersionLS: DWORD; { 輔版本 }
end;
TUpdate=record      { 升級(jí)信息 }
    Name:String[63];  { 程序名 }
    Version:TSimpleVersion; { 版本 }
    Date:TDate;  { 日期 }
    URL:ShortString;  { 下載地址 }
end;
而SeparateVerStr()函數(shù)是將得到字符串形式的升級(jí)版本信息轉(zhuǎn)換為簡(jiǎn)化的版本信息格式：
function SeparateVerStr(s:String):TSimpleVersion;
const
Separator='.'; { 以為'.'分割符 }
var
p,v1,v2,v3,v4:WORD;
begin
if Length(s)=0 then Exit;
p:=pos(Separator, s);
v1:=StrToInt(copy(s,1,p-1));
Delete(s,1,p);
p:=Pos(Separator,s);
v2:=StrToInt(copy(s,1,p-1));
Delete(s,1,p);
p:=Pos(Separator,s);
v3:=StrToInt(copy(s,1,p-1));
Delete(s,1,p);
v4:=StrToInt(s);
Result.dwProductVersionMS:=v1*$10000+v2;
Result.dwProductVersionLS:=v3*$10000+v4;
end;
    最后要做的就是比較文件的版本信息，先得到自己的版本，我使用如下的函數(shù)：
function GetBuildInfo(FName:string):TSimpleVersion; { 得到自身版本信息 }
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
VerValue: PVSFixedFileInfo;
Dummy: DWORD;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(FName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '/', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
    Result.dwProductVersionMS := dwFileVersionMS; { 主版本 }
    Result.dwProductVersionLS := dwFileVersionLS; { 輔版本 }
end;
FreeMem(VerInfo, VerInfoSize);
end;
然后使用如下的函數(shù)比較網(wǎng)站的升級(jí)版本和現(xiàn)在的版本，如果返回TRUE，說(shuō)明有新版本文件：
function VersionCheck(OriVer,NewVer:TSimpleVersion):Boolean;
begin
if (OriVer.dwProductVersionMS=NewVer.dwProductVersionMS) then
begin
    Result:=OriVer.dwProductVersionLS<NewVer.dwProductVersionLS;
end else
begin
    Result:=OriVer.dwProductVersionMS<NewVer.dwProductVersionMS
end;
end;

上一篇：用Delphi產(chǎn)生一個(gè)最小的可執(zhí)行程序

下一篇：用DELPHI制作在線程序升級(jí)信息查詢