Htmlcode aus TWebbrowser auslesen

**kingflo**

Hallo zusammen ich habe ein problem:

Und zwar lese ich immoment so den HTMLCode aus dem webbrowser1 aus:

Code:

			var

code:string;

begin

code:=WebBrowser1.OleObject.Document.Body.InnerHtml;

allerdings bekomme ich einen anderen Quellcode raus wenn ich mit der rechten Maustaste auf quellcode anzeigen klicke.

Wenn also beispielsweise der Htmlcode so aussieht:

markieren

Code:

			<html>

<head>

<title>Test Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

    Test

<body bgcolor="#FFFFFF" text="#000000"  >

</body>

</html>

bekomme ich mit dem oben genannten source nur dieses ergebnis:

markieren

Code:

Test

kann mir jemand vielleicht sagen wie ich aus dem TWebBrowser den vollen source der Aktuellen Seite auslesen kann???

**sakura**

Suche doch mal, das hatten wir schon desöfteren. Eine Möglichkeit wäre hier: [dp]twebbrowser source*[/dp]

...

...

**kingflo**

Leider nichts passendes gefunden.

**FAlter**

Hi,

Ich habe mal nach einem Code gesucht und bei swissdelphicentergefunden. Für meinen erweiterten TWebBrowser abgewandelt habe ich:

zusammenfalten · markieren

Delphi-Quellcode:

			function TFAWebBrowser.GetSource: String;

var

  ps: IPersistStreamInit;

  ss: TStringStream;

  sa: IStream;

  //s: string;

begin

  //Result := OleObject.Document.Body.InnerHtml;

  //Result := OleObject.Document.Body.OuterHtml;

  ps := Document as IPersistStreamInit;

  ss := TStringStream.Create('');

  try

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

    if Succeeded(ps.Save(sa, True)) then

        Result := ss.DataString;

  finally

    ss.Free;

  end;

end;

Htmlcode aus TWebbrowser auslesen

Htmlcode aus TWebbrowser auslesen

Re: Htmlcode aus TWebbrowser auslesen

Re: Htmlcode aus TWebbrowser auslesen

Re: Htmlcode aus TWebbrowser auslesen

Forumregeln

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#2 Re: Htmlcode aus TWebbrowser auslesen 27. Sep 2004, 18:07 Suche doch mal, das hatten wir schon desöfteren. Eine Möglichkeit wäre hier: [dp]twebbrowser source*[/dp] ...... Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

kingflo Registriert seit: 21. Jun 2004 Ort: Hamburg 502 Beiträge Delphi 7 Professional	#3 Re: Htmlcode aus TWebbrowser auslesen 27. Sep 2004, 18:21 Leider nichts passendes gefunden. Florian Gilde
	Zitat