Закачка файла происходит в отдельном потоке.

[Kyran29]

Подскажите, пожалуйста, как отразить весь процесс закачки файла, с помощью компонента TProgressBar .
Вывести текст Загружено - (столько-то МБ) компонент TLabel (Label2).
По событию Button2Click - отменить закачку файла. (Остановить поток)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,URLMon,Wininet;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
end;
 TLoadThread = class(TThread)
protected
  FResult:String;
  procedure Execute; override;
  procedure ShowResult;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):string;
var
  hSession, hFile: hInternet;
  dwBuffer: Extended;  
  dwBufferLen, dwIndex: DWORD;
begin
  Result := '';
  hSession := InternetOpen('Загрузка файла  "kav9.0.0.736ru.exe"',
                           INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(hSession) then begin
    hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
                             INTERNET_FLAG_RELOAD, 0);
    dwIndex  := 0;
    dwBufferLen := 20;
    if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)
      then Result := PChar(@dwBuffer);
    if Assigned(hFile) then InternetCloseHandle(hFile);
    InternetCloseHandle(hsession);
  end;
end;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

{ TLoadThread }

procedure TLoadThread.Execute;
const
  SourceFile = 'http://downloads.kaspersky-labs.com/trial/registered/8NGILSWTCHAPVSJ1NTX8/kav9.0.0.736ru.exe ';
  DestFile = 'c:\kav9.0.0.736ru.exe ';
begin
  if DownloadFile(SourceFile, DestFile) then
    FResult:= 'Файл загружен!'
  else
    FResult:= 'Ошибка при загрузке - '+ SourceFile;
    Synchronize(ShowResult);

end;

procedure TLoadThread.ShowResult;
begin
  ShowMessage(FResult);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
i : Real;
begin
 //Запрашиваем размер файла с сервера
 i := StrToFloat( GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH,'http://downloads.kaspersky-labs.com/trial/registered/8NGILSWTCHAPVSJ1NTX8/kav9.0.0.736ru.exe'));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
lt:TLoadThread;
begin
lt:=TLoadThread.Create(False);
lt.FreeOnTerminate:=True;
lt.Resume;

end;
procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.

[mihali4]

http://www.programmersforum.ru/showthread.php?t=71344
Свяжитесь с ТС.