Здравствуйте. Есть работающий код загрузки интернет страниц для последующего анализа.
Но не получается сделать работающий ProgressBar.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ComCtrls;
type
TForm1 = class(TForm)
http: TIdHTTP;
Button1: TButton;
ProgressBar1: TProgressBar;
procedure Button1Click(Sender: TObject);
procedure httpWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure httpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
s:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
http:=TIdHTTP.Create(nil);
try
s := http.Get('http://forum.vingrad.ru/');
showmessage(s);
except
ShowMessage('Ошибка');
end;
http.Free;
end;
procedure TForm1.httpWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
if AWorkMode = wmRead then ProgressBar1.Position := AWorkCount;
end;
procedure TForm1.httpWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkMode = wmRead then ProgressBar1.Max := AWorkCountMax;
end;
end.
|
При загрузки страницы progress никак ни реагирует. Где ошибка?
|