IHTMLDocument2 in Delphi 5 EP

[cramer]

Hallo,
gibt es für IHTMLDocument2 eine entsprechende Unit für Delphi 5 ?
OK Die Unit habe ich gefunden, MSHTML, aber schon gibt es zwei weitere Fragen:
1. Wie bekomme ich das ganze Dokument unabhängig von enthaltenen <TAGs> komplett in einen String ?
2. Wie kann ich ein mit JavaScript geöffnetes PopUp ohne Debugfenster verhindern.

Delphi-Quellcode:

procedure TDBC.HTTPDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  document: IHTMLDocument2;
  s     : string;
begin
  s := ''; 
  document := http.Document as IHTMLDocument2;
  if Assigned(document) then begin
    if http.LocationURL <> '' then begin
      //ShowMessage((http.Document as IHTMLDocument2).fileSize);
      ShowMessage((http.Document as IHTMLDocument2).body.innerText);
//      ShowMessage((http.Document as IHTMLDocument2).body.innerHTML);
//      ShowMessage((http.Document as IHTMLDocument2).body.outerHTML);
    end else begin
      ShowMessage('Seite nicht vorhanden!');
    end;  
  end;
end; 

procedure TDBC.HTTPNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
  // PopUps verhindern, 
  // öffnet aber ein Windows Debugfenster und meckert die Javascript OpenWindow Stelle an
  //cancel := (Sender as TWebbrowser).ReadyState <> READYSTATE_COMPLETE;

  // Versteckter TWebBrowser2 geht auch nicht, öffnet auch das besagte Debugfenster
  //ppDisp := popup; 
end;

[toms]

Zitat:

1. Wie bekomme ich das ganze Dokument unabhängig von enthaltenen <TAGs> komplett in einen String ?

Kannst du das etwas genauer erklaeren?

Zitat:

2. Wie kann ich ein mit JavaScript geöffnetes PopUp ohne Debugfenster verhindern.

Koentest du ein Beispiel Projekt hochladen, damit wir's besser nachvollziehen, ausprobieren koennen?