unit HttpGetThreads;

interface

uses
  Classes,
  IdBaseComponent, IdComponent, IdTCPConnection,IdTCPClient, IdHTTP,IdObjs;//Indy


type
  THttpGetThread = class(TThread)

  private
    { Private-Deklarationen }
  IdHTTP: TIdHTTP;
  ContentStream:TStringStream;
  procedure loadComplete;
  public
    url:string;
  protected
    procedure Execute; override;
  end;

implementation
uses Unit1;//Main

procedure THTTPGetThread.Execute;
begin
  { Thread-Code hier einfügen }
  IdHTTP:=TIdHTTP.Create;
  ContentStream:= TStringStream.Create(toEOF);
  try
  IdHTTP.Get(URL,ContentStream);
  except
  end;
  Synchronize(loadComplete);
  IdHTTP.Destroy;
  ContentStream.Free;
end;

procedure THTTPGetThread.loadComplete;
begin
Form1.parseDoc(ContentStream);
end;

end.