Delphi：下载升级文件的方法，采用HTTPS协议

unit DownloadThread;

interface
uses
  System.Classes, System.Net.HttpClient, System.Net.URLClient, System.Net.HttpClientComponent;
type
  TDownloadThread = class(TThread)
  private
    FURL: string;
    FSavePath: string;
    FOnComplete: TNotifyEvent;
    procedure DoComplete;
  protected
    procedure Execute; override;
  public
    constructor Create(const AURL, ASavePath: string; AOnComplete: TNotifyEvent);
    property OnComplete: TNotifyEvent read FOnComplete write FOnComplete;
  end;
implementation
{ TDownloadThread }
constructor TDownloadThread.Create(const AURL, ASavePath: string; AOnComplete: TNotifyEvent);
begin
  inherited Create(False);
  FURL := AURL;
  FSavePath := ASavePath;
  FOnComplete := AOnComplete;
end;
procedure TDownloadThread.DoComplete;
begin
  if Assigned(FOnComplete) then
    FOnComplete(Self);
end;
procedure TDownloadThread.Execute;
var
  HttpClient: THTTPClient;
  FileStream: TFileStream;
  Response: IHTTPResponse;
begin
  try
    HttpClient := THTTPClient.Create;
    try
      FileStream := TFileStream.Create(FSavePath, fmCreate);
      try
        Response := HttpClient.Get(FURL);
        if Response.StatusCode = 200 then
        begin
          FileStream.CopyFrom(Response.ContentStream, Response.ContentStream.Size);
        end;
      finally
        FileStream.Free;
      end;
    finally
      HttpClient.Free;
    end;
  except
  end;
  Synchronize(DoComplete);
end;
end.

    URL:='https://xxxxxx.com/ShareFolderProject.exe' ;
    DestFilePath:=IncludeTrailingPathDelimiter(exeDir+'tmp') + 'setup.exe';

    DownloadThread := TDownloadThread.Create( URL,DestFilePath, DownloadComplete);

procedure TMainForm.DownloadComplete(Sender: TObject);
begin
  ShowMessage('文件下载完成！');
end;