Webbrowser html code ziehen aber aus richtigem Frame

**Andi1982ka**

Hallo,

ich benutze folgende Funktion um mir den HTML-Code aus dem TWebBrowser zu ziehen:

Delphi-Quellcode:

			function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;

var

  ps: IPersistStreamInit;

  ss: TStringStream;

  sa: IStream;

  s: string;

begin

  ps := WebBrowser.Document as IPersistStreamInit;

  s := '';

  ss := TStringStream.Create(s);

  try

    sa := TStreamAdapter.Create(ss, soReference) as IStream;

    Result := Succeeded(ps.Save(sa, True));

    if Result then ACode.Add(ss.Datastring);

  finally

    ss.Free;

  end;

end;

Allerdings habe ich bei seiten mit frames dann nur den Code des Framesets! Kann ich in dieser zeile

ps := WebBrowser.Document as IPersistStreamInit; nicht irgendwie Sagen dass er den Code des Frames "MAIN" ziehen soll?

Vielen Dank schonmal,

Gruß Andi

**marabu**

Hallo Andi,

solange keine Frames im Spiel sind, ist dein Ansatz tragbar. Bei Frames ist der WebBrowser nur noch der Lieferant des Manteldokuments und dieses muss auf seine Frames hin untersucht werden. Jeder Frame hat ein zugehöriges Window und dieses liefert dir dann das Document. Natürlich könntest du die eine Zeile durch ein Code-Ungetüm ersetzen, aber mir gefällt es besser, wenn die Gesamtfunktionalität in kleinere Blöcke zerlegt wird, die man auch unabhängig voneinander verwenden kann.

Ich verwende GetFrameDoc() um auf einen bestimmten Frame eines FrameSet zuzugreifen:

zusammenfalten · markieren

Delphi-Quellcode:

			function GetFrameDoc(doc: IHTMLDocument2; v: OleVariant): IHTMLDocument2;

var

  win: IHTMLWindow2;

  u: IUnknown;

  ec: IHTMLElementCollection;

begin

  u := doc.frames.item(v);

  if Assigned(u)

  and Succeeded(u.QueryInterface(IHTMLWindow2, win))

    then Result := win.Document

    else Result := nil;

end;

Den HTML-Code des so ermittelten Document besorge ich mir dann mit DocToStrings():

zusammenfalten · markieren

Delphi-Quellcode:

			function DocToStrings(doc: IDispatch; s: TStrings): Boolean;

var

  ps: IPersistStreamInit;

  sa: IStream;

  ms: TStream;

begin

  if Succeeded(doc.QueryInterface(IPersistStreamInit, ps)) then

  begin

    ms := TMemoryStream.Create;

    sa := TStreamAdapter.Create(ms, soReference) as IStream;

    Result := Succeeded(ps.Save(sa, true));

    ms.Position := 0;

    s.LoadFromStream(ms);

    ms.Free;

  end;

end;

Und aufgerufen wird das Ganze dann etwa so:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDemoForm.ExtractButtonClick(Sender: TObject);

var

  doc: IHTMLDocument2;

  s: TStrings;

begin

  doc := GetFrameDoc(WebBrowser.Document as IHTMLDocument2, 'MAIN');

  if Assigned(doc) then 

  begin

    s := TStringList.Create;

    if DocToStrings(doc, s)

      then ShowMessage(s.Text)

      else ShowMessage('Rats!');

    s.Free;

  end;

end;

Grüße vom marabu

**Andi1982ka**

Hey,

funktioniert wunderbar! Vielen Dank!!!!

Gruß andi

**jamma-markus**

kann das ganze nicht auch so gehen?
memo2.Lines.Text := (WebBrowser1.Document as IHTMLDocument2).frames.item('MAIN').body.innerHTML;

**marabu**

Hast du es ausprobiert?

Freundliche Grüße vom marabu

**jamma-markus**

nein. denn wenn du

das ließt, weißt du auch, warum nicht.

Webbrowser html code ziehen aber aus richtigem Frame

Webbrowser html code ziehen aber aus richtigem Frame

Re: Webbrowser html code ziehen aber aus richtigem Frame

Re: Webbrowser html code ziehen aber aus richtigem Frame

Re: Webbrowser html code ziehen aber aus richtigem Frame

Re: Webbrowser html code ziehen aber aus richtigem Frame

Re: Webbrowser html code ziehen aber aus richtigem Frame

Forumregeln

Andi1982ka Registriert seit: 22. Mär 2006 Ort: Karlsruhe 12 Beiträge	#3 Re: Webbrowser html code ziehen aber aus richtigem Frame 8. Apr 2006, 18:16 Hey, funktioniert wunderbar! Vielen Dank!!!! Gruß andi
	Zitat

jamma-markus Registriert seit: 16. Okt 2004 Ort: Kempen 58 Beiträge	#4 Re: Webbrowser html code ziehen aber aus richtigem Frame 27. Mai 2006, 12:32 kann das ganze nicht auch so gehen? memo2.Lines.Text := (WebBrowser1.Document as IHTMLDocument2).frames.item('MAIN').body.innerHTML;
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#5 Re: Webbrowser html code ziehen aber aus richtigem Frame 27. Mai 2006, 12:59 Hast du es ausprobiert? Freundliche Grüße vom marabu
	Zitat

jamma-markus Registriert seit: 16. Okt 2004 Ort: Kempen 58 Beiträge	#6 Re: Webbrowser html code ziehen aber aus richtigem Frame 27. Mai 2006, 14:21 nein. denn wenn du das ließt, weißt du auch, warum nicht.
	Zitat