var
v: Variant;
HTMLDocument: IHTMLDocument2;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := 'ghjkfhjskf'; // Это наша HTML строка
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
TWebBrowser
Код:
а он мне эксепшын вываливает... а если перед записью данных открыть в нём какойнить url, то всё пучком.... подскажите кто знает.. как этот глюк лечится?
Документ-то создать сначало надо. HTMLDocument := WebBrowser1.Document as IHTMLDocument2; ничего не делает. Точнее делает тот самый except.
Цитата:
Originally posted by mfender
Документ-то создать сначало надо. HTMLDocument := WebBrowser1.Document as IHTMLDocument2; ничего не делает. Точнее делает тот самый except.
Документ-то создать сначало надо. HTMLDocument := WebBrowser1.Document as IHTMLDocument2; ничего не делает. Точнее делает тот самый except.
я решил уже эту проблему... просто перед записью в документ сделал WebBrowser.Navigate('about :Blank');
[/QUOTE]
Предлагаю делать так:
Код:
WebBrowser1.OleObject.document.open;
WebBrowser1.OleObject.document.write('asdfasdfasdf');
WebBrowser1.OleObject.document.close;
WebBrowser1.OleObject.document.write('asdfasdfasdf');
WebBrowser1.OleObject.document.close;