winform程序相對web程序而言，功能更強大，編程更方便，但軟件更新卻相當麻煩，要到客戶端一台一台地升級，面對這個實際問題，在最近的一個小項目中，本人設計了一個通過軟件實現自動升級技術方案，彌補了這一缺陷，有較好的參考價值。
一、升級的好處。
長期以來，廣大程序員為到底是使用Client/Server，還是使用Browser/Server結構爭論不休，在這些爭論當中,C/S結構的程序的可維護性差，佈置困難，升級不方便，維護成本高就是一個相當重要的因素，也是那些B/S的支持者們將Client/Server結構打入地獄的一個重要原因。
現在好了，我們就在最新的基於Microsoft 的 WinForm上用WebServices來實現軟件的自動升級功能。
二、升級的技術原理。
升級的原理有好幾個，首先無非是將現有版本與最新版本作比較，發現最新的則提示用戶是否升級。當然也有人用其它屬性比較的，例如：文件大小。:) 或者更新日期。
而實現的方法呢？在VB時代，我使用的是XmlHTTP+INet控件。用XmlHTTP獲取信息，用INET傳輸升級文件，而用一個簡單的BAT文件來實現升級。
Public Sub CheckUpdate()
On Error Resume Next
Dim b As Boolean
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHttp")
XmlHttp.Open "GET", "Http://mu.5inet.net/MuAdmin/update.xml", False
XmlHttp.Send
Dim vs As String
vs = XmlHttp.responseText
If Err.Number > 0 Then
Exit Sub
End If
Dim Xml As Object
Set Xml = CreateObject("Microsoft.XmlDom")
Xml.LoadXml vs
Dim Version As String
Dim downAddr As String
Dim FSize As Long
Dim fInfo As String
Version = Xml.DocumentElement.ChildNodes(0).Text
downAddr = Xml.DocumentElement.ChildNodes(1).Text
FSize = CLng(Xml.DocumentElement.ChildNodes(2).Text)
fInfo = Xml.DocumentElement.ChildNodes(3).Text
Set Xml = Nothing
Set XmlHttp = Nothing
Dim Major As Long
Dim Minor As Long
Dim Revision As Long
Dim C() As String
C = Split(Version, ".")
Major = CLng(C(0))
Minor = CLng(C(1))
Revision = CLng(C(2))
If Major > App.Major Then
b = True
ElseIf Minor > App.Minor Then
b = True
ElseIf Revision > App.Revision Then
b = True
Else
b = False
End If
If (b) Then
Dim result As VbMsgBoxResult
result = MsgBox("發現程序新版本。當前版本為：" & App.Major & "." & App.Minor & "." & App.Revision & "，目前最新版本為：" & Version & "，是否進行更新？", vbQuestion Or vbYesNo, "自動更新")
If result = vbYes Then
Dim frm As New Update
frm.DownloadAddress = downAddr
frm.size = FSize
frm.InfoPage = fInfo
frm.Version = Version
frm.Show vbModal
End If
End If
End Sub
而BAT文件有個特性，是可以刪除自己本身。下面是BAT文件的內容.
@echo off
echo
echo echo 歡迎使用無垠奇跡管理器升級嚮導。
echo 本次升級版本為：1.1.0。
echo 請按任意鍵開始升級無垠奇跡管理器... echo
echo
pause
del SQLSrvBrowser.Exe
ren ~update.tmp SQLSrvBrowser.Exe
echo 升級成功，按任意鍵重新啟動應用程序。
pause
start http://mu.5inet.net/
start SQLSrvBrowser.Exe
del update.bat
三、在.Net時代的實現。
在.Net時代，我們就有了更多的選擇，可以使用WebRequest，也可以使用WebServices。在這裡我們將用WebServices來實現軟件的自動升級。
實現原理：在WebServices中實現一個GetVer的WebMethod方法，其作用是獲取當前的最新版本。
然後將現在版本與最新版本比較，如果有新版本，則進行升級。
步驟：
１、準備一個ＸＭＬ文件 (Update.xml)。
作用是作為一個升級用的模板。
２、WebServices的GetVer方法。
[WebMethod(Description="取得更新版本")]
public string GetVer()
{
XmlDocument doc = new XmlDocument();
doc.Load(Server.MapPath("update.xml"));
XmlElement root = doc.DocumentElement;
return root.SelectSingleNode("version").InnerText;
}
３、WebServices的GetUpdateData方法。
[WebMethod(Description="在線更新軟件")]
[SoapHeader("sHeader")]
public System.Xml.XmlDocument GetUpdateData()
{
//驗證用戶是否登陸
if(sHeader==null)
return null;
if(!DataProvider.GetInstance.CheckLogin(sHeader.Username,sHeader.Password))
return null;
//取得更新的xml模板內容
XmlDocument doc = new XmlDocument();
doc.Load(Server.MapPath("update.xml"));
XmlElement root = doc.DocumentElement;
//看看有幾個文件需要更新
XmlNode updateNode = root.SelectSingleNode("filelist");
string path = updateNode.Attributes["sourcepath"].Value;
int count = int.Parse(updateNode.Attributes["count"].Value);
//將xml中的value用實際內容替換
for(int i=0;i
XmlNode itemNode = updateNode.ChildNodes[i];
string fileName = path + itemNode.Attributes["name"].Value;
FileStream fs = File.OpenRead(Server.MapPath(fileName));
itemNode.Attributes["size"].Value = fs.Length.ToString();
BinaryReader br = new BinaryReader(fs);
//這裡是文件的實際內容，使用了Base64String編碼
itemNode.SelectSingleNode("value").InnerText = Convert.ToBase64String(br.ReadBytes((int)fs.Length),0,(int)fs.Length);
br.Close();
fs.Close();
}
return doc;
}
４、在客戶端進行的工作。
首先引用此WebServices，例如命名為:WebSvs，
string nVer = Start.GetService.GetVer();
if(Application.ProductVersion.CompareTo(nVer)<=0)
update();
在本代碼中 Start.GetService是WebSvs的一個Static 實例。首先檢查版本，將結果與當前版本進行比較，如果為新版本則執行UpDate方法。 void update()
{
this.statusBarPanel1.Text = "正在下載...";
System.Xml.XmlDocument doc = ((System.Xml.XmlDocument)Start.GetService.GetUpdateData());
doc.Save(Application.StartupPath + @"\update.xml");
System.Diagnostics.Process.Start(Application.StartupPath + @"\update.exe");
Close();
Application.Exit();
}這裡為了簡單起見，沒有使用異步方法，當然使用異步方法能更好的提高客戶體驗，這個需要讀者們自己去添加。：） update的作用是將升級的XML文件下載下來，保存為執行文件目錄下的一個Update.xml文件。任務完成，退出程序，等待Update.Exe 來進行升級。 ５、Update.Exe 的內容。 private void Form1_Load(object sender, System.EventArgs e)
{
System.Diagnostics.Process[] ps = System.Diagnostics.Process.GetProcesses();
foreach(System.Diagnostics.Process p in ps)
{
//MessageBox.Show(p.ProcessName);
if(p.ProcessName.ToLower()=="customerapplication")
{
p.Kill();
break;
}
}
XmlDocument doc = new XmlDocument();
doc.Load(Application.StartupPath + @"\update.xml");
XmlElement root = doc.DocumentElement;
XmlNode updateNode = root.SelectSingleNode("filelist");
string path = updateNode.Attributes["sourcepath"].Value;
int count = int.Parse(updateNode.Attributes["count"].Value);
for(int i=0;i
XmlNode itemNode = updateNode.ChildNodes[i];
string fileName = itemNode.Attributes["name"].Value;
FileInfo fi = new FileInfo(fileName);
fi.Delete();
//File.Delete(Application.StartupPath + @"\" + fileName);
this.label1.Text = "正在更新： " + fileName + " (" + itemNode.Attributes["size"].Value + ") ...";
FileStream fs = File.Open(fileName,FileMode.Create,FileAccess.Write);
fs.Write(System.Convert.FromBase64String(itemNode.SelectSingleNode("value").InnerText),0,int.Parse(itemNode.Attributes["size"].Value));
fs.Close();
}
label1.Text = "更新完成";
File.Delete(Application.StartupPath + @"\update.xml");
label1.Text = "正在重新啟動應用程序...";
System.Diagnostics.Process.Start("CustomerApplication.exe");
Close();
Application.Exit();
} 這個代碼也很容易懂，首先就是找到主進程，如果沒有關閉，則用Process.Kill()來關閉主程序。然後則用一個XmlDocument來Load程序生成的update.xml文件。用xml文件裡指定的路徑和文件名來生成指定的文件，在這之前先前已經存在的文件刪除。更新完畢後，則重新啟動主應用程序。這樣更新就完成了。
四、總結：
從這個實例看來，WebService的工作是很簡單的，也是很容易實現的。好好的使用WebService能夠為我們的程序帶來很多新的，強的功能。總而言之，.Net是易用的，強大的語言。如果大家對本代碼有任何意見，歡迎光臨《開發者》論壇： http://forums.coder.cn/ ，希望和大家共同探討。
此文亦發表在本人Blog上：http://blogs.coder.cn/skyover/archive/2004/06/07/485.aspx
沒有留言:
張貼留言