系统在线更新的代码

转载 2006年06月08日 10:29:00

大概是这样的。没测。。

呵呵。。 http的传输还是比较好的

 

 

procedure checkupdate;
var
  ustream:tmemorystream;
  verstr:string;
  oldname,newname:pchar;
  oldsize,newsize:dword;
begin
  ustream :=tmemorystream.Create ;
  try
    //get new version infomation
    verstr:=frmclient.HTTPC.Get('/jfgl/version.ini');
    if (verstr<>'') and ((strtointdef(fetch(verstr,'.'),1)>1) or (strtointdef(fetch(verstr,'.'),0)>1) or (strtointdef(fetch(verstr,'.'),1)>0) or (strtointdef(fetch(verstr,'.'),1)>0)) then
    try
      //get new exe file and rename to filename.tmp
      frmclient.httpc.Get('/jfgl/client.exe',ustream);
      ustream.SaveToFile(ChangeFileExt(application.ExeName,'.tmp'));
      //replace exe file until last boot because it is now running
      //if you have better method please tell me,thank's
      getmem(oldname,max_path);
      fillchar(oldname[0],max_path-1,0);
      getshortpathname(pchar(application.exename),oldname,oldsize);
      getmem(newname,max_path);
      fillchar(newname[0],max_path-1,0);
      getshortpathname(pchar(ChangeFileExt(application.ExeName,'.tmp')),newname,newsize);
      movefileex(newname,oldname,MOVEFILE_DELAY_UNTIL_REBOOT or MOVEFILE_REPLACE_EXISTING);
    except
    end;
  except
    //
  end;
  freeandnil(ustream);
end;

学生管理系统,用Java代码连接数据实现数据的添加、更新、删除操作

版权声明:本文为博主原创文章,未经博主允许不得转载。 注意:我用的是MySQL数据库。 util包:  DbUtil.java package util; import java.sql....

Android系统代码本地更新Linux shell脚本2

Android系统代码本地更新Linux shell脚本2相当于Android系统代码本地更新(Linux系统)原理差不多、修改和使用方法更简单。可以带参数,也可以到脚本中修改默认一些变量。...

fastboot系统更新代码流程分析

说明:本流程基于Android4.4.2中的fastboot源代码讲解,该代码路径在"/system/core/fastboot"下。 1、从fastboot.c文件的main函数开始: int ma...

ICTCLAS 中科院分词系统 代码 注释 中文分词 词性标注(2009-06-18 更新 可下载)

转载自:http://hi.baidu.com/huabk/item/9b0f4d5f0d970609e6c4a5cb ICTCLAS 中科院分词系统 代码 注释 中文分词 词性标注 风暴...
  • memray
  • memray
  • 2013年11月03日 16:25
  • 2887

千寻软件更新系统(非代码版本)

  • 2010年10月26日 11:14
  • 570KB
  • 下载

关于更新windows Service Pack 3 更新后系统登录出现“一个问题阻止Windows正确检查机器的许可证。错误代码 0x80070002”问题解决方案

官网下载Service Pack 补丁包 Service Pack 3,但是我安装之后从起时,在系统欢迎页面显示“一个问题阻止Windows正确检查机器的许可证。错误代码 0x80070002”这是怎...

无线传感器远程代码更新系统

  • 2012年04月13日 10:13
  • 1.07MB
  • 下载

C/s系统自动更新代码

  • 2008年03月26日 13:54
  • 186KB
  • 下载

银联在线支付ASP代码不支持64位系统的解决办法

最近更换了公司的服务器,系统从原来的32位2003换成了64位2008R2。网站提供在线支付功能(用ASP开发的),结果银联在线支付(Chinapay)模块不能使用了。后来咨询Chinapay,他们给...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:系统在线更新的代码
举报原因:
原因补充:

(最多只允许输入30个字)