用DELPHI制作在线程序升级信息查询

越来越多的程序支持在线升级功能，本文介绍的就是如何从网站获取升级信息。这里我主要使用版本信息来检测是否需要下载升级版本。大致原理如下：

1. 放置信息文本到网站。
2. 使用TNMHTTP从网站信息文本获取文本内容。
3. 分析文本解析所需信息。
4. 比较程序版本提供升级信息。

首先，我们放置一个信息文本到自己的网站，这个文本有自己的文件格式，我定义了如下的格式：

   [update] 
    <ver>1.79.9.25</ver> 
    <url>http://www.2CCC.com/softm/3_update.zip</url>
    <date>2002-9-25</date>
  [/update]
   
 

我们可以将它保存为update.txt文件，使用[]<>的标示符将信息分类，这里包含了程序名、版本、更新日期和下载地址。这里我假使上传到http://www.2CCC.com/update.txt。

然后我们使用TNMHTTP组件从网站获取此文件的内容：

function TForm1.GetUpdateText:String; 
begin 
  NMHTTP1.InputFileMode := FALSE; 
  NMHTTP1.OutputFileMode := FALSE; 
  NMHTTP1.ReportLevel := Status_Basic; 
  NMHTTP1.Get('http://www.2CCC.com/update.txt'); { 获取网站文本 } 
  Result:=NMHTTP1.Body; 
end;