winnet download thread

[Luckie]

Delphi 2006 code:

Delphi-Quellcode:

type
  TDownloadThread = class(TThread)
  public
    FFilename: AnsiString;
    FURL: AnsiString;
    procedure Execute; override;
  private
    procedure DownloadToStream;
  end;

// ...

procedure TDownloadThread.DownloadToStream;
var
  FileStream: TFileStream;
begin
  FileStream := TFileStream.Create(FFilename, fmCreate);
  try
    // download code goes here
    // download from FURL
  finally
    FileStream.Free;
  end;
end;

procedure TDownloadThread.Execute;
begin
  inherited;
  DownloadToStream;
end;

procedure TForm4.btn1Click(Sender: TObject);
var
  DownloadThread: TDownloadThread;
begin
  DownloadThread := TDownloadThread.Create(True);
  try
    DownloadThread.FFilename := 'Z:\test.txt';
    DownloadThread.FURL := '....';
    DownloadThread.Execute;
  finally
    DownloadThread.Free;
  end;
end;

In later BDS versions TThread provides better/different thread handling.