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;

 

相关阅读 >>

winapi 字符及字符串函数(6): ischaralphanumeric - 是否是个文字(字母或数字)

Delphi中的字符串分割

Delphi 根据文件扩展名判断文件类型函数写法

Delphi 利用createservice写与桌面交互的win32服务

Delphi string转换成tstrings

Delphi的webbrowser改造，对网页中alter等对话框的改造方法

Delphi2010获取鼠标指向窗口的位置及鼠标在窗口内的相对位置坐标

Delphi datetimepicker 宽度如何与Delphi自带style同步

Delphi 让控制台窗口不现实出来

Delphi删除整个目录及目录下的文件

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

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