捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
互联网检测应用程序升级信息的演示程序及代码
关键字:互联网 检测 升级信息 版本 update internet
来 自:原创
平 台:Win9x,Win2k/NT,WinXP 下载所需:0 火柴
深浅度:初级 完成时间:2002/2/14
发布者:mantousoft 发布时间:2003/8/30
编辑器:DELPHI6 语  种:ENGLISH
分 类:互联网 下载浏览:2878/26868
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
    2002年新年的作品,这个例子是演示如何从网站得到是否有程序的更新版本。
    我放了一个文本文件再我的网站,地址是 http://www.2ccc.com/update.txt
    这个文本文件有自己的格式,有点像HTML语言的那种格式。
{
;  update.txt 文件格式演示
;  第一个应用程序更新信息
  [update] //程序标示符
    <ver>1.79.9.25</ver> //最新版本
    <url>http://www.2ccc.com/delphi/simple/update_demo.zip<;/url> //下载地址
    <date>2002-9-25</date> //更新日期
  [/update]

;  另外一个程序的信息
  [exelock]
    <ver>2.11.0.0</ver>
    <url>http://www.2ccc.com/delphi/general/exelock_demo.zip<;/url>
    <date>2002-9-25</date>
  [/exelock]

;  你可以放更多这样的信息
}
   在这个演示程序中,我是用了TNMHTTP组件得到文本文件的正文然后以字符串形式分析格式将其中的信息分离,可以得到版本,下载地址,更新日期等信息,你可以自己增加更多,程序作相应的调整就行了。2003年我写了新方法,直接使用InternetReadFile()函数得到升级文件信息,其实原理一样,并且我将它封装到一个单元中方便使用。

   03:49 2002-2-14 中国西安 更多请察看 http://www.2ccc.com
   DELPHI6.0编译通过。

更详细的文档大家可以到 http://www.zdnet.com.cn/developer/code/story/0,2000081534,39045821,00.htm 察看。

文档分析:

使用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;

获取文本以后,我们要将其中的信息分离,我使用了如下的函数:
function TForm1.AnalyseUpdate(Body:String;var Update:TUpdate):Boolean;
var
  TmpStr,Ver:String;
  function CenterStr(Src:String;Before,After:String):String;
  { 这个函数用来分离两个字符串中间的字符串,
    例如 ..('DelphiBox.com','Delphi','.com')=>'Box'。 }
  var
    Pos1,Pos2:WORD;
  begin
    Pos1:=Pos(Before,Src)+Length(Before);
    Pos2:=Pos(After,Src);
    Result:=Copy(Src,Pos1,Pos2-Pos1);
  end;
begin
  TmpStr:=CenterStr(Body,'update'); { 得到程序名间的升级信息 }
  if TmpStr=' then
    Result:=False else { 找不到此文件升级信息 }
  begin
    Ver:=CenterStr(TmpStr,'<ver>','</ver>');
    Update.Version:=SeparateVerStr(Ver); { 解析版本 }
    Update.Date:=StrToDate(CenterStr(TmpStr,'<date>','</date>')); { 解析日期 }
    Update.URL:=CenterStr(TmpStr,'<url>','</url>'); { 解析升级地址 }
    Result:=True;
  end;
end;

其中TUpdate是我定义的信息的记录格式:
  TSimpleVersion=record { 简化的版本信息 }
    dwProductVersionMS: DWORD; { 主版本 }
    dwProductVersionLS: DWORD; { 辅版本 }
  end;
  TUpdate=record       { 升级信息 }
    Name:String[63]; { 程序名 }
    Version:TSimpleVersion; { 版本 }
    Date:TDate; { 日期 }
    URL:ShortString; { 下载地址 }
  end;

而SeparateVerStr()函数是将得到字符串形式的升级版本信息转换为简化的版本信息格式:
function SeparateVerStr(s:String):TSimpleVersion;
const
  Separator='.'; { 以为'.'分割符 }
var
  p,v1,v2,v3,v4:WORD;
begin
  if Length(s)=0 then Exit;
  p:=pos(Separator, s);
  v1:=StrToInt(copy(s,1,p-1));
  Delete(s,1,p);
  p:=Pos(Separator,s);
  v2:=StrToInt(copy(s,1,p-1));
  Delete(s,1,p);
  p:=Pos(Separator,s);
  v3:=StrToInt(copy(s,1,p-1));
  Delete(s,1,p);
  v4:=StrToInt(s);
  Result.dwProductVersionMS:=v1*$10000+v2;
  Result.dwProductVersionLS:=v3*$10000+v4;
end;

最后要做的就是比较文件的版本信息,先得到自己的版本,我使用如下的函数:
function GetBuildInfo(FName:string):TSimpleVersion; { 得到自身版本信息 }
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(FName), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
  with VerValue^ do
  begin
    Result.dwProductVersionMS := dwFileVersionMS; { 主版本 }
    Result.dwProductVersionLS := dwFileVersionLS; { 辅版本 }
  end;
  FreeMem(VerInfo, VerInfoSize);
end;

然后使用如下的函数比较网站的升级版本和现在的版本,如果返回TRUE,说明有新版本文件:
function VersionCheck(OriVer,NewVer:TSimpleVersion):Boolean;
begin
  if (OriVer.dwProductVersion_MS=NewVer.dwProductVersionMS) then
  begin
    Result:=OriVer.dwProductVersionLS<NewVer.dwProductVersionLS;
  end else
  begin
    Result:=OriVer.dwProductVersionMS<NewVer.dwProductVersionMS
  end;
end;

到这里基本方法就介绍完了,我在DELPHI6+WIN2000环境调试通过,这里我没有写出完整的代码,大家可以下载慢慢研究。
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
FTP方式C/S软件更新演示
lichina 2007/8/2 下+8675/浏+22805 评+5
自动写的HIS自动更新系统 2.0
jinay 2007/5/29 下+11535/浏+23002 评+11
XSDownLoad (多线程下载)
sbzldlb 2007/4/10 下+15683/浏+19216 评+17
RavAutoUP 瑞星网络版自动升级
rocketli 2006/10/29 下+4279/浏+17732 评+8
自动升级,配置简单,使用http
sstreet 2005/12/11 下+13141/浏+30871 评+11
软件在线升级源码下载
endo 2005/7/27 下+7662/浏+27738 评+2
AutoUpdate 更新版
cdlaji 2005/7/12 下+7516/浏+22652 评+12
自动更新 (改进版:含数据库更新)
ljhok 2005/3/8 下+5762/浏+24726 评+10
自动升级程序精简版繁体版
vagrant 2005/1/31 下+2300/浏+15232 评+10
自动升级程序精简版 (支持断点下载)
vagrant 2005/1/29 下+11109/浏+30579 评+23
AutoUpdate 自动更新系统
cdlaji 2004/5/8 下+5718/浏+32401 评+25
支持断点续传的在线更新代码
oliver18 2004/3/6 下+5997/浏+29449 评+49
菜鸟修改的可在D7用的在线更新
myso 2004/2/29 下+3103/浏+21045 评+17
断点续传的整理演示代码
yckxzjj 2004/2/20 下+2587/浏+16398 评+8
http 断点续传演示
mantousoft 2003/11/1 下+2924/浏+19230 评+4
互联网检测应用程序升级信息的演示程序及代…
mantousoft 2003/8/30 下+2878/浏+26869 评+6
相关评论
共有评论6条 当前显示最后5条评论
jiayoua 2003/9/19 21:28:14
TNMHTTP这个组件我怎么就是找不到啊.
mantousoft 2003/9/25 18:33:45
D6下面的,D5可能没有。
cjq2004 2003/12/22 17:49:57
D7下没有TNMHTTP这个组件,请用TIdhttp这个组件
tim001 2004/6/10 18:24:59
THNAK YOU
hygsxy 2005/3/5 2:45:14
感谢中
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表