第一次花100分来提问,求一个智能的copy文件的解决方案.

Question

从服务器上的/update下面down了要更新的文件到本机的/update,
但从服务器上的/update down下来的文件要分别放到/src,/bin....等很多目录下.一个再线更新程序.
怎么实现这些文件copy智能copy,
需要一个比较快捷的办法,

Answer 1

方法1.用winrar建个自解压文件,在服务器按预先需要设置好再放在/update目录下.客户端下载后执行就OK.
方法2.在服务器上建一个文本文件,对所有需要更新文件指出在客户端的安装目录及文件名.然后在客户端根据donw来的文本文件进行COPY操作.

Answer 2

楼上的谢谢了.您的方法1我也想过,但这样做就失去了我这个在线更新的程序的意义了.
如果这样完全可以把程序做成压缩包,放到web上让他们下.您的方法2正是我打算做的.如果没有更好的办法,我就按这个来做了.

Answer 3

很简单的嘛，做一个服务端程序，一个客户端程序，用SOCKET传送程序，

Answer 4

传送部分已经,现在要实现的是怎么copy到相应的目录下去.

Answer 5

程序启动
下载更新过的版本到临时文件夹（具体你应该事先有个文档对路径做好安排）
启动update程序
主程序退出
update.exe copy files
shell main.exe
update.close

Answer 6

实现步骤：　　　1、网站提供升级信息。
　　　2、使用HTTP从网站下载升级信息。
　　　3、确定是否进行升级
　　　4、升级程序　　下面我们定义一下升级信息：　　　[文件名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;
url:string;
files:TStrings;
begin
result:=false;
url:=’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 url:=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,fmShareDenyNone);
FileDateTime:=FileDateToDateTime(FileGetDate(iFileHandle)); //取得文件时间
FileClose(iFileHandle);
//是否要下载文件
if FileDateTime,’DATETIME’,’1900-1-1’))&NBSP;THEN
begin
result:=true;
break;
end;
except
end;
finally
AppIni.free;
files.Free;
end;
end;　　取得files后文件下载！httpfiles为TNMHTTPHTTPFiles.InputFileMode := true;
HTTPFiles.OutputFileMode := FALSE;
HTTPFiles.ReportLevel := Status_Basic;
HTTPFiles.Body:=g_path+’update/’+files;
HTTPFiles.Get(url);　　把下载后的文件复制到原程序，并备份出一份for i:=0 to files.Count-1 do //备份文件
begin
//备份一份文件出来
copyfile(pchar(g_path+files),pchar(g_path+files+’.bak’),false);
end;
for i:=0 to files.Count-1 do //从update复制新文件
begin
copyfile(pchar(g_path+’update\’+files),pchar(g_path+files),false);
end;

Answer 7

怎么都文不对题啊,老大门.我不是要更新程序,我是要把更新文件COPY到制订目录下的算法.
我要算法而已,不要程序.