ProgressBar для скачивания

[KoBRaAndrey]

нашел в интернете код скачивания:
var
ToFolder:string;
begin
IdHTTP1:=TIdHTTP.Create(nil);
str:=TFileStream.Create('D:\askinde mo222.zip', fmCreate);
try
IdHTTP1.Get('http://www.alphaskins.com/sfiles/askindemo.zip',str);
finally
IdHTTP1.Free;
str.Free;
end;

Вот только не пойму как прогресс бар привентить, пробывал узнать размер:
var
ToFolder:string;
begin
IdHTTP1:=TIdHTTP.Create(nil);
str:=TFileStream.Create('D:\askinde mo222.zip', fmCreate);
try
IdHTTP1.Get('http://www.alphaskins.com/sfiles/askindemo.zip',str);
showmessage(IntToStr(str.size));
finally
IdHTTP1.Free;
str.Free;
end;
но размер показывался после того как файл загрузился...

[KoBRaAndrey]

Так, сам разобрался, тему можно удалять

[Lime]

Сообщение от KoBRaAndrey

Так, сам разобрался, тему можно удалять

Уж изволь код в студию) Для поиска полезно

[projectsoft]

unit Unit1;

interface

uses
SimpleXML, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
HTTP: TIdHTTP;
ListBox1: TListBox;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
procedure HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
procedure HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
procedure HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure HTTPConnected(Sender: TObject);
private
procedure Theard;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Theard;
var
Stream: TFileStream;
begin
Stream:= TFileStream.Create('gmbartlist.xml' ,fmCreate);
try
HTTP.Get('http://bar.gismeteo.ru/gmbartlist.xml',Stream);
finally
Stream.Free;
end;
ListBox1.Items.LoadFromFile('gmbart list.xml');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Theard;
end;

procedure TForm1.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
ProgressBar1.Max:= AWorkCountMax;
end;

procedure TForm1.HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position:= 0;
Button1.Enabled:= True;
end;

procedure TForm1.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:= AWorkCount;
Application.ProcessMessages;
end;

procedure TForm1.HTTPConnected(Sender: TObject);
begin
Button1.Enabled:= False;
end;

end.

Ну лень человеку отвечать. Ему проще задавать и ждать когда ему ответят.

[pomkalk]

Сообщение от projectsoft

unit Unit1;
procedure TForm1.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:= AWorkCount;
Application.ProcessMessages;
end;

А что значит тут строка Application.ProcessMessage(); и зачем она нужна!

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

чтоб приложение могло обрабатывать сообщение(короче окно чтоб не висло)
в данном случае это важно, иначе не увидите своего прогрессбара(точнее изменений в нем)