Delphi-PRAXiS - Delphi Htmlcode aus TWebbrowser auslesen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Netzwerke (https://www.delphipraxis.net/14-netzwerke/)

- - Delphi Htmlcode aus TWebbrowser auslesen (https://www.delphipraxis.net/30659-htmlcode-aus-twebbrowser-auslesen.html)

kingflo

27. Sep 2004 17:03

Htmlcode aus TWebbrowser auslesen

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:

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:

Code:

Test

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

sakura

27. Sep 2004 17:07

Re: Htmlcode aus TWebbrowser auslesen

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

...:cat:...

kingflo

27. Sep 2004 17:21

Re: Htmlcode aus TWebbrowser auslesen

Leider nichts passendes gefunden.

FAlter

27. Sep 2004 17:24

Re: Htmlcode aus TWebbrowser auslesen

Hi,

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

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;

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:50 Uhr.