InfoLight-EEP(delphi)用外部清單為-第三方元件-進行自動更新(利用APUtils->CheckLocalFile)

2011-04-27

※緣由：在開發系統過程中，制式的元件常常不夠用，需要用到第三方元件，問題又不可能一一為客戶端安裝元件。

※原理：只要利用EEP提供的方法(CheckLocalFile)，在加一個外部的”更新清單(例：NewBPLList.ini)”，便可以達到這項功能(可以用小程式產生此清單)。

   1:  Procedure TfrmPasswordBase.FormCreate(Sender:TObject);

   2:  Var

   3:      fNewBplList:string;

   4:      LstNewBpl:TStringList;

   5:      I:Integer;

   6:  begin

   7:  fNewBplList:='NewBplList.ini';

   8:  //先取得更新清單

   9:    CheckLocalFile(fNewBplList,true,true,true,false);

  10:    if FileExists(fNewBplList) then

  11:    begin

  12:      try

  13:        //讀取更新清單

  14:        LstNewBpl := TStringList.Create;

  15:        LstNewBpl.LoadFromFile(fNewBplList);

  16:        for I:= 0 to LstNewBpl.Count -1 do

  17:          CheckLocalFile(LstNewBpl.Strings[I],true,true,true,false);//CheckLocalFile會根據清單一一進行筆對，判斷是否要進行下載。

  18:      finally

  19:        if Assigned(LstNewBpl) then FreeAndNil(LstNewBpl);

  20:      end;

  21:    end;

22:

  23:    LoadDefaultUsers;

  24:    HaveLoginCount := 0;

  25:    HaveLogin := False;

  26:  end;

[清單內容與存放位置]

(存放位置)(清單格式)

測試：

(完)