如何在网络上实现动态升级(100分)

请教高手
请详细介绍一下：
实现网络动态升级有几种方法；具体如何实现
最好带代码讲解；
谢谢

后台保存前台版本号，把要升级文件放在后台。前台访问后台时，在后台进行版本比较，
需生机的话，把升级文件清单传给客户端，客户端通过http,ftp,socket等协议把文件取
到本地即可。瑞星就是。

我有AutoUpgrader Pro
留mail

to yaya8163
给我一份，eastdak@cmmail.com

我的e是yunfeiatp@163.net

用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;
获取文本以后，我们要将其中的信息分离，我使用了如下的函数：
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.dwProductVersionMS=NewVer.dwProductVersionMS) then
begin
Result:=OriVer.dwProductVersionLS<NewVer.dwProductVersionLS;
end else
begin
Result:=OriVer.dwProductVersionMS<NewVer.dwProductVersionMS
end;
end;
到这里基本方法就介绍完了，我在DELPHI+WIN2000环境调试通过，这里我没有写出完整的代码，在我的主页我做了演示程序，大家可以下载慢慢研究。
我的网址是：http://www.DelphiBox.com 或 http://www.2ccc.com
如果有问题可以给我来信交流：mantousoft@vip.163.com

有没有源吗啊？

还源码呢，上面那段程序是什么？

网站上特定路径下留一个记录文件，记录版本等信息
程序先访问记录文件，是否要升级，如果要就升级，我有代码。留下盒子。

mark

我也要一份，谢谢各位了
Joke_18@163.com

up

我觉得大伙都没说到点子上！要判断版本是否最新和下载最新版本补丁实在是太太简单了！！
在线升级的难点是在下载完最新版本的补丁后，如何动态地更新目前正在运行的程序而不用重新启动？？
这才是难点！！！！！！！！！！！！！！！
还有一点：为了支持在线更新，设计程序结构是要注意些什么？

升级可执行文件，可以在程序的退出时写一个批处理，一直运行，直到更新了后，再运行
新程序。若是动态库等，释放掉即可更新

偶也要一份
zc_coach@163.net