急急：怎样编写一个能够自动进行网络更新的程序。

Question

我想把一个程序放在一个服务器上，每次有用户使用了该软件时，就连接这个服务器，检查是不是该软件有更新的版本。如果有，就在线更新，请问有什么办法？

Answer 1

VAR
   NEWDATE,OLDDATE:INTEGER;
   DATE,DATE1:STRING;
begin
   NEWDATE:=FILEAGE('\\servername\newprogram.EXE');  // 新版本日期
   OLDDATE:=FILEAGE('C:\directoryname\oldprogram.EXE');
    DATE:=FORMATDATETIME('YYYYMMDD',FILEDATETODATETIME(NEWDATE));
    DATE1:=FORMATDATETIME('YYYYMMDD',FILEDATETODATETIME(OLDDATE));
   IF ( OLDDATE>0 ) AND  (DATE<>DATE1) THEN
      begin
         SHOWMESSAGE('pls update');
         application.terminate;                     
      end;
end这段程序可判断是否有新的版本

Answer 2

在服务器上放一文本内容为该软件的版本号，检查这个文本内的版本号和软件的版本号就可以区别是否更新，写个FTP客户端程序将新软件下载下来后覆盖原来的软件即可！

Answer 3

同意kkk123(11) 的。不过如果是数据库相关的应用，可以在数据库中以流的方式存放程序和版本标示，每次与数据库中的核对，如果数据库里的比较新，就download下来。这样的方式适合采用Package的模式组合的程序。