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

韩冰

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

an;

var

$ \3 l' C# K) Y% _$ h

Stream: TStringStream;

( f* m, w& a% Q! r2 O5 Y7 c

Adapter: TStreamAdapter;

begin

Stream := TStringStream.Create(Html);

try

. J+ _7 c, ~1 ?9 F

Adapter := TStreamAdapter.Create(Stream);

try

: p7 R8 b/ W0 x

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

Result := True;

finally

2 Y4 @5 x1 }: ?. q2 d# Y: ?! x

Adapter.Free;

end;

finally

% B. Z$ O8 n* u6 s

Stream.Free;

M) ^; K% `8 j% E

end;

]/ o G+ i# a' ]0 @( U

end;

6 W( d3 @6 N( Q# P* d

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

7 c+ ^& g% h. Q5 `

0 i, _. ]- O C! Z( |

var

Stream: TMemoryStream;

Adapter: TStreamAdapter;

begin

+ J9 k5 n! g# [' P1 n: l

Stream := TMemoryStream.Create;

3 J U5 [" o: H

try

. H6 |) @0 T5 H4 R

Adapter := TStreamAdapter.Create(Stream);

try

; g, F4 `& ~# b2 |2 |

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

x$ ^! Z+ { o8 e4 Z; n

e));

SetLength(Html, Stream.Size+1);

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

Result := True;

) I5 G( x, T7 z4 m# G- c

finally

Adapter.Free;

end;

6 ?5 w, u( s7 ^" q

finally

6 b0 x' a! j! T; f8 n$ h/ _

Stream.Free;

/ ]% g$ _* U# [+ w# \7 d |

end;

3 a- [- k9 Q0 \& X5 J! s$ B$ h

end;