[JohnnyDD]

У меня есть список адресов веб-страниц. Самые обычные страницы (html, php) - все они нормально и быстро открываются в браузере, не содержат редиректа.

Нужно прочитать все страницы из этого списка с помощью Indy (Delphi 7). Функцию я под это дело написал, но она по какой-то причине прочитывает далеко не все URL, а только лишь процентов 20. Подскажите, пожалуйста, в чём тут дело? Заранее спасибо!

Вот функция:

Код:

function ReadSite(URL:String):String;
var rcvrdata: TMemoryStream;
begin
 idHttp1 := TIdHTTP.Create(nil);
 rcvrdata := TMemoryStream.Create;
 idHttp1.ReadTimeout:=15000;
 idHttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)';
 idHttp1.HandleRedirects := false;
 try
  IdHTTP1.get(URL, rcvrdata);
 except
  on EIdReadTimeout do rcvrdata:=nil;
 else
  rcvrdata:=nil;
 end;
 idHttp1.Free;
 if ((rcvrdata<>nil) and (rcvrdata.Size > 0)) then
  begin
   rcvrdata.Position:=0;
   MainForm.TempEdit.Lines.LoadFromStream(rcvrdata);
   Result:=MainForm.TempEdit.Lines.Text;
   Result:=UTF8ToANSI(Result);
  end
 else Result:='';
 rcvrdata.Free;
end;