Скачать: CL | DM;

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;

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c