🚀 go-pugleaf

Witam,
Próbuję użyć komponentu TCurl z biblioteki lazcurl, wszystko niby
pięknie działa, ale TCurl zawiesza się dokładnie po 300-stu
wywołaniach TCurl.Perform. Pobieram 300 stron html i koniec.
Zrobiłem testową procedurkę, aby wybadać problem, ale nie mogę
dojść w czym rzecz, dlatego proszę Was o pomoc.
Procedura ma pobrać 500 razy stronę googli, ale zawiesza się
po 300. To wygląda tak, jakby jakaś zmienna lub jakiś stos
się przepełniał, może więc powinienem coś zrobić jeszcze
w tej pętli? Może ma ktoś jakiś pomysł?

<code>
procedure TForm1.gCurlReceive(Sender: TObject; data: PChar; len: 
Cardinal; var bContinue: Boolean);
begin
   TMemoryStream(TCurl(Sender).OutputStream).Write(data^, len);
end;

procedure TForm1.gCurlWait(Sender: TObject);
begin
   Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var strona: String;
     i: Integer;
     gCurl: TCurl;
     HtmlStream:TMemoryStream;
begin
   gCurl := TCurl.Create(Self);
   gCurl.ConnectTimeout := 15;
   gCurl.Timeout := 60;
   gCurl.Threaded := True;
   gCurl.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)';
   gCurl.CookieFile:='google.txt';
   gCurl.CookieSession:=True;
   gCurl.OnWait := @gCurlWait;
   gCurl.OnReceive:= @gCurlReceive;
   gCurl.MaxConnects:=1;
   gCurl.URL := 'http://www.google.pl/';
   for i:=1 to 500 do begin
     HtmlStream:=TMemoryStream.Create; //utworz strumien dla strony
     try
       gCurl.OutputStream:=HtmlStream; //przydzielenie strumienia
       if gCurl.Perform then begin //Success... ale
   //po 300 razach program zapetla sie (wisi) na tym Perform
         //HtmlStream.Position := 0;
         //strona := StreamToString(HtmlStream);
         StatusBar1.Panels.Items[0].Text := 'OK '+IntToStr(i);
       end else ShowMessage('Błąd pobierania strony!');
       gCurl.ResultCode; //po bledzie ma przywracac stan CURLE_OK
     finally
       HtmlStream.Free;
     end;
   end;
   gCurl.Free;
end;
</code>

Sławek

P.S. Lazarus 0.9.25 svn 14688, curlpas-2005-11-05,
curl-7.17.1-2.fc8.i386, System Fedora 8