用DELPHI製作線上程式升級資訊查詢 (轉)

用DELPHI製作線上程式升級資訊查詢 (轉)[@more@]

  越來越多的支援線上升級功能，本文介紹的就是如何從網站獲取升級資訊。這裡我主要使用版本資訊來檢測是否需要升級版本。
大致原理如下：
  1、放置資訊文字到網站。
  2、使用TNMHTTP從網站資訊文字獲取文字內容。
  3、分析文字解析所需資訊。
  4、比較程式版本提供升級資訊。
  首先，我們放置一個資訊文字到自己的網站，這個文字有自己的格式，我定義瞭如下的格式：
  [update]
  1.79.9.25
 
  2002-9-25
  [/update]
我們可以將它儲存為update.txt檔案，使用[]<>的標示符將資訊分類，這裡包含了程式名、版本、日期和下載地址。這裡我假使到。
  然後我們使用TNMHTTP從網站獲取此檔案的內容：
function TForm1.GetUpdateText:String;
begin
  NMHTTP1.InputFileMode := FALSE;
  NMHTTP1.OutputFileMode := FALSE;
  NMHTTP1.ReportLevel := Status_Basic;
  NMHTTP1.Get(''); { 獲取網站文字 }
  Result:=NMHTTP1.Body;
end;
  獲取文字以後，我們要將其中的資訊分離，我使用瞭如下的：
function TForm1.AnalyseUpdate(Body:String;var Update:TUpdate):Boolean;
var
  TmpStr,Ver:String;
  function CenterStr(Src:String;Before,After:String):String;
  { 這個函式用來分離兩個字串中間的字串，
  例如 ..('DelphiBox.com','Delphi','.com')=>'Box'。 }
  var
  Pos1,Pos2:;
  begin
  Pos1:=Pos(Before,Src)+Length(Before);
  Pos2:=Pos(After,Src);
  Result:=Copy(Src,Pos1,Pos2-Pos1);
  end;
begin
  TmpStr:=CenterStr(Body,'update'); { 得到程式名間的升級資訊 }
  if TmpStr='' then
  Result:=False else { 找不到此檔案升級資訊 }
  begin
  Ver:=CenterStr(TmpStr,'','');
  Update.Version:=SeparateVerStr(Ver); { 解析版本 }
  Update.Date:=StrToDate(CenterStr(TmpStr,'','')); { 解析日期 }
  Update.URL:=CenterStr(TmpStr,'',''); { 解析升級地址 }
  Result:=True;
  end;
end;
其中TUpdate是我定義的資訊的記錄格式：
  TSimpleVersion=record { 簡化的版本資訊 }
  dwProductVersionMS: DWORD; { 主版本 }
  dwProductVersionLS: DWORD; { 輔版本 }
  end;
  TUpdate=record   { 升級資訊 }
  Name:String[63]; { 程式名 }
  Version:TSimpleVersion; { 版本 }
  Date:TDate; { 日期 }
  ; { 下載地址 }
  end;
而SeparateVerStr()函式是將得到字串形式的升級版本資訊轉換為簡化的版本資訊格式：
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;
  最後要做的就是比較檔案的版本資訊，先得到自己的版本，我使用如下的函式：
function GetBuildInfo(FName:string):TSimpleVersion; { 得到自身版本資訊 }
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVixedFileInfo;
  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;
然後使用如下的函式比較網站的升級版本和現在的版本，如果返回TRUE，說明有新版本檔案：
function VersionCheck(OriVer,NewVer:TSimpleVersion):Boolean;
begin
  if (OriVer.dwProductVersionMS=NewVer.dwProductVersionMS) then
  begin
  Result:=OriVer.dwProductVersionLS  end else
  begin
  Result:=OriVer.dwProductVersionMS  end;
end;
  到這裡基本方法就介紹完了，我在DELPHI+環境透過，這裡我沒有寫出完整的程式碼，在我的主頁我做了演示程式，大家可以下載慢慢研究。
我的網址是： 或
如果有問題可以給我來信交流：to:mantousoft@vip.163.com">mantousoft@vip.163.com

    重慶 萬重
  西安科技學院143信箱 710054