Prosty program
procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;
procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.Get('http://www.wp.pl/');
end;
Po nacisnięciu buttona wyskakuje błąd
Błąd wyskakuje tylko wtedy gdy są 3 zdarzenia
- WorkBegin
- Work
- WorkEnd
nie mam zielonego pojęcia co jest nie tak.
2 x Instalowałem na nowo delphi6 i indy10
Pozdrawiam