关于NMHTTP控件的问题

Question

使用一个定时器获取反复获取一个URL页面
NMHTTP.Get(AURL);
Result:=NMHTTP.Body;可是会出现下面这个错误：
project raised exception class ESockError with message 'already connected'.Process stopped.请问如何解决？

Answer 1

var con:boolean;
procedure TForm1.nmhttpConnect(Sender: TObject);
begin
  con:=true;
end;
procedure TForm1.nmhttpDisConnect(Sender: TObject);
begin
  con:=false;
end;
procedure TForm1.Timer1OnTimer(Sender: TObject);
begin
  if (con=true) exit;
  nmhttp.get(aurl);
end;