TWebBrowser - к вопросу автоматизации: не хочу из инета или фаила

← →
GigoVich (2003-09-28 14:22) [0]

Здрасте, Мастера. Как мне заставить TWebBrowser отображать HTML, который, ну допустим находиться не в Инете не в фаиле, а под указателем каким нибудь (главное не на физическом носителе и в непределов ОЗУ). Заранее благодарен...

← →
Ihor Osov'yak © (2003-09-28 15:18) [1]

и в непределов ОЗУ - а это что такое?

но может подойдет нечно из этого

1)
procedure ShowHTML(aText: string);
var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
CheckDocReady(WebBrowser);
HTMLDocument := WebBrowser.DefaultInterface.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := aText; // Here"s your HTML string
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;

2)
function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.DefaultInterface.Document as IPersistStreamInit).Load
(TStreamAdapter.Create(AStream));
end;

3) с. nikkie :-)
var
Doc: Variant;
begin
Doc := WebBrowser1.DefaultInterface.Document;
Doc.write(aText);
end;

Из 1 - CheckDocReady(WebBrowser) убери.

TWebBrowser - к вопросу автоматизации: не хочу из инета или фаила Найти похожие ветки