如何在不冻结或崩溃Delphi应用程序的情况下下载图像

uses
  System.Classes, IdHTTP;

type
  TImageDownloader = class(TThread)
  private
    FURL: string;
    FFileName: string;
    FHTTP: TIdHTTP;
  protected
    procedure Execute; override;
    procedure DoDownloadComplete;
  public
    constructor Create(const AURL, AFileName: string);
    destructor Destroy; override;
  end;

constructor TImageDownloader.Create(const AURL, AFileName: string);
begin
  inherited Create(True);
  FURL := AURL;
  FFileName := AFileName;
  FHTTP := TIdHTTP.Create(nil);
end;

destructor TImageDownloader.Destroy;
begin
  FHTTP.Free;
  inherited Destroy;
end;

procedure TImageDownloader.Execute;
begin
  try
    FHTTP.Get(FURL, FFileName);
    Synchronize(DoDownloadComplete);
  except
    // 处理异常情况
  end;
end;

procedure TImageDownloader.DoDownloadComplete;
begin
  // 下载完成后的处理，例如更新UI
end;

// 在主线程中创建并启动图像下载线程
procedure TForm1.Button1Click(Sender: TObject);
var
  Downloader: TImageDownloader;
begin
  Downloader := TImageDownloader.Create('http://example.com/image.jpg', 'image.jpg');
  Downloader.Start;
end;