作者：徐長(zhǎng)友
    用過一般的殺毒軟件，都知道，啟動(dòng)程序時(shí)，常會(huì)問，網(wǎng)上已經(jīng)有新版本的，是否升級(jí)之類的提示，現(xiàn)在越來越多的軟件都支持在線升級(jí)，
你是否也想實(shí)現(xiàn)這個(gè)功能？本文就是如何實(shí)現(xiàn)在線升級(jí)，講述一下如何通過HTTP檢測(cè)是否需要下載升級(jí)版本，并下載升級(jí)。

實(shí)現(xiàn)方法：
  1、網(wǎng)站提供升級(jí)信息。
  2、使用HTTP從網(wǎng)站下載升級(jí)信息。
  3、確定是否進(jìn)行升級(jí)，升級(jí)程序

下面我們定義一下升級(jí)信息：
  [文件名1]
  datetime=時(shí)間
  [文件名2]
  datetime=時(shí)間 
存為HTML文件，如定義一個(gè)update.htm
[PRograme1.exe]
datetime=2003-07-06
[programe1.hlp]
datetime=2003-07-06

這里只是簡(jiǎn)單的判斷一下文件的時(shí)間，如果時(shí)間比需要升級(jí)的文件時(shí)間小的，表示要下載新版本升級(jí)它。當(dāng)然要做到十全十美，這是判斷是不合理的，這里只作個(gè)簡(jiǎn)單的介紹。
寫個(gè)fuction，判斷是否有新的版本要升級(jí)

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';    //要升級(jí)的服務(wù)器
   g_path:=ExtractFilePath(application.ExeName);  //升級(jí)程序的路徑
   if copy(g_path,length(g_path),1)<>'/' then g_path:=g_path+'/';
   if copy(url,length(url),1)<>'/' then url:=url+'/';

  //下載升級(jí)信息文件
   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; //'取得升級(jí)信息出錯(cuò)！，不用再繼續(xù)
      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[i],fmShareDenyNone);
                     FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle)); //取得文件時(shí)間
                     FileClose(iFileHandle);
                     //是否要下載文件
                     if FileDateTime<strtodatetime(Appini.ReadString(files[i],'datetime','1900-1-1')) 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[i]; 
      HTTPFiles.Get(url);

把下載后的文件復(fù)制到原程序，并備份出一份
      for i:=0 to files.Count-1 do    //備份文件
      begin
         //備份一份文件出來
         copyfile(pchar(g_path+files[i]),pchar(g_path+files[i]+'.bak'),false);
      end;
      for i:=0 to files.Count-1 do    //從update復(fù)制新文件
      begin
         copyfile(pchar(g_path+'update/'+files[i]),pchar(g_path+files[i]),false);
      end;
因?yàn)椴捎昧薚NMHTTP，文件下載的進(jìn)度并不是很好控制，可以在TNMHTTP的PacketRecvd事件，確定進(jìn)度
到這里基本方法就介紹完了，在DELPHI6+WIN2000環(huán)境調(diào)試通過，這里我沒有寫出完整的代碼，有興趣可以自己寫寫，多加改善