Delphi 最简单的升级下载代码

本文整理自网络，侵删。

 
user idhttp;
var
  Stream: TMemoryStream;
begin
  try
    try
      Stream := TMemoryStream.Create;
      IdHTTP1.Get('http://dww.no-ip.org/simplex/spw.exe', Stream);
      a := IdHTTP1.Response.ContentLength;
      RenameFile('spw.exe', 'spw.old');
      Stream.SaveToFile('spw.exe');
    finally
      Stream.Free;
      IdHTTP1.Disconnect;
    end;
  except
    RenameFile('spw.old', 'spw.exe');
  end;

 

相关阅读 >>

Delphi 学习 sql 语句 - select(8): 分组条件

Delphi 7zip 示例调用7z.dll 压缩及解压.7z文件

Delphi 数据类型列表

Delphi 不可移动的窗体

Delphi 本地数据库备份与还原(Delphi)

Delphi 以bytes为单位获取文件大小

Delphi pascal实现二分查找算法

Delphi webbroker 上传文件

Delphi中move 函数额用法

Delphi 获取系统启动文件夹路径

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 最简单的升级下载代码