Скачивание файла

[Пепел Феникса]

как показала практика, то не все проблемы это решает, много поточность лучше.

[fezilk24]

В новом проекте снова требуется скачивание файла, делаю так:

var
  Form3: TForm3;
  T:TCriricalThread;

procedure TForm3.AdvGlowButton2Click(Sender: TObject);
begin
progressbar1.Visible := true;
  T:=TCriricalThread.Create(false);
end;

procedure TForm3.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 ProgressBar1.Position:=Int64(AWorkCount);
end;


procedure TForm3.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
begin
ProgressBar1.Max := Int64(AWorkCountMax);
end;

procedure TCriricalThread.Execute;
var
  fs : TFileStream;
  FILENAME:string;
begin
  filename:=form3.AdvEdit2.Text+form3.listview1.Items[form3.ListView1.ItemIndex].SubItems[0]+' - '+form3.listview1.Items[form3.ListView1.ItemIndex].SubItems[1]+'.mp3';
  ForceDirectories(ExtractFilePath(FileName));
  fs := TFileStream.Create(filename,fmCreate or fmOpenReadWrite);
  form3.IdHTTP1.Get(form3.Edit1.Text,fs);
  fs.Free;
end;

Файл качается нормально, а ProgressBar криво отображается - сразу на 100%. Подскажите, пожалуйста, где я допустил ошибку..

И еще - при закрытии формы (если файл еще качается) вылетает ошибка 'disconnected', это наверное нехорошо?

[fezilk25]

Как только жму кнопку "Скачать", создается файл, размером 4,3 МВ. (полный размер закачивающегося файла)
На самом деле файл ещё не скачался. Как реализовать создание файла с ПРАВИЛЬНЫМ размером, т.е. размер файла = кол-ву скачанных байт?

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdComponent,

  IdTCPConnection, IdTCPClient, IdHTTP;



type

  TForm1 = class(TForm)

    Button1: TButton;

    IdHTTP1: TIdHTTP;

    Edit1: TEdit;

    Label1: TLabel;

    ProgressBar1: TProgressBar;

    procedure Button1Click(Sender: TObject);

    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

      const AWorkCount: Integer);

    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

      const AWorkCountMax: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



  TCriricalThread = class(TThread)

  private

  protected

    procedure Execute; override;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

  CriricalThread: TCriricalThread;

begin

  CriricalThread:=TCriricalThread.Create(true);

  CriricalThread.Resume;

end;



{ TCriricalThread }



procedure TCriricalThread.Execute;

var

  fs : TFileStream;

begin

  fs := TFileStream.Create('c:\1.txt',fmCreate or fmOpenReadWrite);

  form1.IdHTTP1.Get(form1.Edit1.Text,fs);

  MessageBox(Application.Handle,'Скачано','Готово',0);

  fs.Free;

end;



procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;

  const AWorkCount: Integer);

begin

  ProgressBar1.Position := Int64(AWorkCount);

end;



procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;

  const AWorkCountMax: Integer);

begin

  ProgressBar1.Max := Int64(AWorkCountMax);

end;



end.

[exn]

в IdIOHandler закомментируй // AStream.Size := ASize;

[fezilk25]

Это где? =)

[exn]

это в indy )

[fezilk25]

Не могу найти этот IdIOHandler.pas, пишет Source File not found. Delphi 2010.