Delphi : 自動升級組件AutoUpgrader簡單教程(初學者)

AutoUpgrader簡單教程（寫給初學者）

1.放置一個TauAutoUpgrader在窗體上

2.雙擊auAutoUpgrader1，在彈出的對話框中設定一些要件：

首先選擇按日期還是按版本號檢查更新並填好日期或版本號（該日期或版本號也可以在會同時記錄在VersionData屬性裏，版本號主要通過該屬性來檢查），然後單擊add按鈕添加需要更新的文件的http下載地址，因AutoUpgrader僅支持http方式，不支持ft方式，所以不要填錯。Upgrade method默認即可；然後在“Release Notes Message”裏面寫好本次的更新內容；

3.單擊“Export to info-file”導出到inf文件，並將這個文件上傳至你的網站，以備更新程序檢測。

4.在InfoFileURL屬性裏面輸入你上傳到自己網站的那個inf文件，更新程序是通過該inf文件來確定你每次需要更新的內容。

5.如果你希望程序自動檢查更新，那麼你需要把auAutoUpgrader1的autocheck設爲true；

6.窗體上添加一個按鈕bt1，caption屬性改爲“檢查更新”，在bt1的onclick事件裏面寫上 auAutoUpgrader1.CheckUpdate(False);

7.如果你需要當檢查到沒有更新時提示用戶，那麼將auAutoUpgrader1的showmessages的mNoUpdateAvailable屬性設爲true即可。

好了，馬上去體驗吧！

裝AutoUpgrader控件的時候，還會裝上另外兩個控件，有一個TauThread(用於 D6、7的線程組件)，簡單用了一下還不錯，看來以後寫線程方便多了。另外還有auHTTP(支持文件上傳、IE緩存)、不知道怎麼用，有時間再看吧

 

AutoUpgrader組件NoUpdateAvailable提示技巧。

AutoUpgrader組件showmessages屬性中的NoUpdateAvailable設置成false以後 點擊檢查升級，如果無可用版本，將不會提示，如何在不啓用NoUpdateAvailable的情況下實現提示呢（爲了應付手動、自動升級兩種情形），這樣做：

procedure TmainForm.NoUpdateAvailable(Sender:TObject);
begin
Application.MessageBox('不需要更新','系統提示',MB_OK);
end;

procedure TmainForm.Gengxin(Sender:TObject);
begin
//手動檢查更新 如果沒有可用升級 提示之 NoUpdateAvailable
auAutoUpgrader1.OnNoUpdateAvailable:=NoUpdateAvailable;
auAutoUpgrader1.CheckUpdate;
end;