怎样制作一个可以通过网络升级的程序？

Question

各位高手，小弟现想做个可以通过INTERNET或局域网自动升级的程序，但不知怎么做，望各位高手指点思路吧，不胜感激！

Answer 1

简单的在线升级的实现方法    yousoft（原作）    
作者：徐长友
    用过一般的杀毒软件，都知道，启动程序时，常会问，网上已经有新版本的，是否升级之类的提示，现在越来越多的软件都支持在线升级，
你是否也想实现这个功能？本文就是如何实现在线升级，讲述一下如何通过HTTP检测是否需要下载升级版本，并下载升级。
实现方法：
  1、网站提供升级信息。
  2、使用HTTP从网站下载升级信息。
  3、确定是否进行升级，升级程序下面我们定义一下升级信息：
  [文件名1]
  datetime=时间
  [文件名2]
  datetime=时间  
存为HTML文件，如定义一个update.htm
[programe1.exe]
datetime=2003-07-06
[programe1.hlp]
datetime=2003-07-06这里只是简单的判断一下文件的时间，如果时间比需要升级的文件时间小的，表示要下载新版本升级它。当然要做到十全十美，这是判断是不合理的，这里只作个简单的介绍。
写个fuction，判断是否有新的版本要升级function ExistNewFile:boolean;
var i,iFileHandle:integer;
    FileDateTime:TDateTime;
    AppIni:TiniFile;
    g_path:string;
    http://www.csdn.net/develop/string;
    files:TStrings;
begin
   result:=false;
   http://www.csdn.net/develop/='http://yousoft.hi.com.cn/update.htm';    //要升级的服务器
   g_path:=ExtractFilePath(application.ExeName);  //升级程序的路径
   if copy(g_path,length(g_path),1)<>'\' then g_path:=g_path+'\';
   if copy(url,length(url),1)<>'/' then http://www.csdn.net/develop/=url+'/';

Answer 2

//下载升级信息文件
   try
      HTTPFiles.InputFileMode := true;
      HTTPFiles.OutputFileMode := FALSE;
      HTTPFiles.ReportLevel := Status_Basic;
      HTTPFiles.Body:=g_path+'update/update.ini';   //下载后保存到程序的update目录下
      HTTPFiles.Get(url);
   except
      result:=false; //'取得升级信息出错！，不用再继续
      exit;
   end;
   try
              files:=TStringlist.Create;      //有哪些文件？
              AppIni := TIniFile.Create(g_path+'\update\update.ini');
              AppIni.ReadSections(files);
              for i:=0 to files.Count-1 do
              try
                     iFileHandle :=FileOpen(g_path+files[i],fmShareDenyNone);
                     FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle)); //取得文件时间
                     FileClose(iFileHandle);
                     //是否要下载文件
                     if FileDateTime<strtodatetime(Appini.ReadString(files[i],'datetime','1900-1-1')) then
                     begin
                            result:=true;
                            break;
                     end;
              except
              end;
   finally
              AppIni.free;
              files.Free;
   end;
end;取得files后文件下载！httpfiles为TNMHTTP
      HTTPFiles.InputFileMode := true;
      HTTPFiles.OutputFileMode := FALSE;
      HTTPFiles.ReportLevel := Status_Basic;
      HTTPFiles.Body:=g_path+'update/'+files[i];  
      HTTPFiles.Get(url);把下载后的文件复制到原程序，并备份出一份
      for i:=0 to files.Count-1 do    //备份文件
      begin
         //备份一份文件出来
         copyfile(pchar(g_path+files[i]),pchar(g_path+files[i]+'.bak'),false);
      end;
      for i:=0 to files.Count-1 do    //从update复制新文件
      begin
         copyfile(pchar(g_path+'update\'+files[i]),pchar(g_path+files[i]),false);
      end;
因为采用了TNMHTTP，文件下载的进度并不是很好控制，可以在TNMHTTP的PacketRecvd事件，确定进度

Answer 3

呵呵
c/s应该是比较简单的了，当客户端启动的时候先向服务发送当前的版本信息，服务判断是否需要升级，如果需要直接用socket传送文件（最好先传送文件列表）

Answer 4

更简单的办法是使用第三方控件
autoupgraderpro

Answer 5

这个问题太简单了...运行的时候先通过HTTP或者FTP检查一下当前最新的版本是多少。
如果比较新，就去下载。然后执行安装程序。