TCppWebBrowser 控件里怎么得到所浏览的源代码？

韩冰

function SetHtml3(const WebBrowser: TWebBrowser; const Html: string): Boole

9 @4 U, `2 s+ r/ v3 a

an;

var

x: L3 L; r" z( E# l- c" ^6 q Q

Stream: TStringStream;

) S/ m5 s1 ~- h) y! G

Adapter: TStreamAdapter;

begin

Stream := TStringStream.Create(Html);

. B$ e1 |* `5 w7 T. h! ]' j

try

Adapter := TStreamAdapter.Create(Stream);

6 Y; c+ d* \: T, \9 u8 P

try

- X# A8 ?( K. ?3 `' H# c! m I0 l

OleCheck((WebBrowser.Document as IPersistStreamInit).Load(Adapter));

/ E- X8 |; j( |( a. n/ W& F! D+ t

Result := True;

finally

Adapter.Free;

1 b; I4 \5 c3 b5 b: R

end;

5 d8 H( q T0 {2 [& Y

finally

( s" O1 z: j$ |: N( K' J

Stream.Free;

end;

end;

function GetHtml3(const WebBrowser: TWebBrowser; var Html: string): Boolean;

var

" S- ?9 H6 l4 j( d* O+ |

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

. j/ X+ E# |2 s8 a, A

Stream := TMemoryStream.Create;

try

Adapter := TStreamAdapter.Create(Stream);

try

9 d, P$ S$ I5 E* c

OleCheck((WebBrowser.Document as IPersistStreamInit).Save(Adapter, Tru

e));

SetLength(Html, Stream.Size+1);

# N9 |9 R# ]( x4 b

StrLCopy(PChar(Html), Stream.Memory, Stream.Size);

Result := True;

; k$ c& X5 q% x( m

finally

8 o& t, E9 j7 ` x2 M9 l; _; |1 z+ o

Adapter.Free;

/ w7 K7 G l: Q- F

end;

finally

+ y3 w. J, d# X( J

Stream.Free;

end;

: S1 | o* i- P

end;