Ich arbeite an einem Programm, das Webseiten aus einer Kundendatenbank abruft, nach bestimmten Kriteren durchsucht und die Ergebnisse aktuell im Intranet des Unternehmens zur Verfügung stellt. In diesem Projekt verwende ich die
indy Komponente tidhttp in einer Multithread-Umgebung. In der Regel werden ca. 40.000Websites mit jeweils max. 60 Unterseiten abgerufen. Das ganze funktioniert auch ganz gut. Leider ist mir aufgefallen, das während des Abrufs threads nach und nach ausfallen. Dies passiert immer bei den gleichen websites. (
www.original-klopfer.de,
www.kwo.de,..). Im Internetexplorer lassen sich die Sites einwandfrei laden. In einem einfachen Programm mit auf die Form gezogene tidhttp-Komponente tritt der gleiche Effekt auf. Das Programm hängt sich auf.
Vielleicht kennt jemand von euch den Grund.
procedure TForm2.Button1Click(Sender: TObject);
var SS : TStringStream ;
begin
SS := TStringStream.Create ;
try
HTTP.get('http://www.kwo.de',ss) ;
showmessage (ss.DataString) ;
finally
SS.Free ;
end;
end;