在WinForm中使用Web Services 来实现软件自动升级( Auto Update ) (C#)

最新推荐文章于 2023-06-16 11:46:41 发布

weixin_33749242

最新推荐文章于 2023-06-16 11:46:41 发布

阅读量79

点赞数

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)。
<?xml version="1.0" encoding="utf-8" ?>
<product>
<version>1.0.1818.42821</version>
<description>修正一些Bug</description>
<filelist count="4" sourcepath="./update/">
  <item name="City.xml" size="">
   <value />
  </item>
  <item name="CustomerApplication.exe" size="">
   <value />
  </item>
  <item name="Interop.SHDocVw.dll" size="">
   <value />
  </item>
  <item name="Citys.xml" size="">
   <value />
  </item>
</filelist>
</product>
作用是作为一个升级用的模板。
　　　　２、WebServices的GetVer方法。

　　　　４、在客户端进行的工作。
　　　　　　首先引用此WebServices，例如命名为:WebSvs，
     string nVer = Start.GetService.GetVer();　
     if(Application.ProductVersion.CompareTo(nVer)<=0)
      update();