数学建模社区-数学中国

标题: TCppWebBrowser 控件里怎么得到所浏览的源代码？ [打印本页]

---

作者: 韩冰    时间: 2005-1-26 12:59
标题: TCppWebBrowser 控件里怎么得到所浏览的源代码？

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

an;

var

Stream: TStringStream;

Adapter: TStreamAdapter;

% w& a. b/ k7 h) |+ L' J# F

begin

Stream := TStringStream.Create(Html);

try

1 U; Z% j, e" C; \* ~8 ~4 a, E

Adapter := TStreamAdapter.Create(Stream);

try

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

Result := True;

finally

Adapter.Free;

end;

& @: @. D; I8 P7 F! X

finally

% B' J& @; m2 _% |" ]

Stream.Free;

end;

l' T/ i: l7 k' _* s1 K/ f

end;

! h! g# a$ K) @3 Q

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

- P1 D! `- L, r, [# K

var

Stream: TMemoryStream;

8 v! U) k2 T2 }- c3 w1 D- T/ J) S: W1 ^ t

Adapter: TStreamAdapter;

begin

Stream := TMemoryStream.Create;

try

$ {' b! ^& P4 U1 @$ h/ D0 b; O

Adapter := TStreamAdapter.Create(Stream);

S `: Q U# y* Q' F# g! i2 F

try

0 K% D, H5 r/ D! t- d

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

`% X6 t) }( r: n& j& f) _% T

e));

3 B* f! m4 |' I- w" x

SetLength(Html, Stream.Size+1);

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

Result := True;

finally

Adapter.Free;

. i x# i% G5 f% Z6 S2 @, }/ |4 X

end;

! I: B3 l% @/ P+ v0 Y _

finally

Stream.Free;

$ G! t8 Z/ x% G, y! {1 B! P

end;

end;

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5