WebBrowser: отображение динамического HTML

← →
AAZ72 (2003-10-19 15:22) [0]

Гл.Ув.Мастера! Ответа не нашел ни в FAQе мастеров, ни в Королевстве. Как отобразить с помощью WebBrowser дин-ий HTML, находящийся в памяти, а не на диске или Webе. Дело в том, что перед отправкой HTML, нужно организовать Preview.
Если можно, пожалуйста допошите код...
Заранее благодарю.

← →
Ihor Osov'yak © (2003-10-20 00:57) [1]

TWebBrowser

2.
---

1 вариант

procedure ShowHTML(aText: string); var v: Variant; HTMLDocument: IHTMLDocument2; begin if not assigned(WebBrowser.DefaultInterface.Document) then exit; 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 if not assigned(WebBrowser1.DefaultInterface.Document) then exit; 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-10-20 01:02) [2]

Да, чтобы не срабатывало

if not assigned(WebBrowser.DefaultInterface.Document) then exit;

сделай где-то поначалу WebBrowser.Navigate("about:blank");

← →
AAZ72 (2003-10-20 14:03) [3]

to Ihor Osov"yak

Огромное спасибо - ты очень помог!!!!

WebBrowser: отображение динамического HTML Найти похожие ветки