请问用delphi7如何实现在线升级程序,不能添加其他控件!不能用delphi6上的控件

解决方案 »

  1.   

    汗,不用控件那你还用什么DELPHI用C++去吧
      

  2.   

    简单的在线升级的实现方法    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+'/';  //下载升级信息文件
       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事件,确定进度
    到这里基本方法就介绍完了,在DELPHI6+WIN2000环境调试通过,这里我没有写出完整的代码,有兴趣可以自己写写,多加改善
    在我的主页我做了演示程序,大家可以看看网址是:http://yousoft.hi.com.cn/
      

  3.   

    to sfply(随风飘零叶) 你误会了
    我说的是只用delphi7开发在线升级,可以用delphi7上的控件的