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内联汇编的一点心得

Delphi 二进制值转换十六进制 bintohex和hextobin

Delphi开发桌面图标列表查看程序

Delphi下遍历指定目录下指定类型文件的函数

Delphi 将对象转换为json字符串或tjsonobject

Delphi 注释方法

Delphi 62 进制的简单实现

Delphi中操作olevariant、variant和stream

Delphi 读写文本文件

Delphi 的链式代码

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

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