18.09.2010 Загрузка HTML кода в TWebBrowser
Иногда необходимо показать в компоненте TWebBrowser HTML код, сформированный программным способом или полученный из интернета другими компонентами. Например, может потребоваться просмотреть код, полученный при помощи TIdHTTP. HTML код возвращается этим компонентов в виде строки, необходимо передать этот HTML код в компонент TWebBrowser. Вот небольшая функция, позволяющая делать это:
procedure ViewHtml(html: string);
var Document: IHTMLDocument2;
varr: OleVariant;
begin
WebBrowser.Navigate('about:blank');
Document:=WebBrowser.Document as IHtmlDocument2;
varr:=VarArrayCreate([0,0],varVariant);
varr[0]:=html;
Document.Write(PSafeArray(TVarData(varr).VArray));
Document.Close;
end;
var Document: IHTMLDocument2;
varr: OleVariant;
begin
WebBrowser.Navigate('about:blank');
Document:=WebBrowser.Document as IHtmlDocument2;
varr:=VarArrayCreate([0,0],varVariant);
varr[0]:=html;
Document.Write(PSafeArray(TVarData(varr).VArray));
Document.Close;
end;
В процессе интерпретации переданного в TWebBrowser HTML кода могут возникать ошибки, избежать показ которых можно выставив свойство Silent в True.
Смотрите также:
Оставьте свой комментарий
Вы должны быть авторизированны, чтобы оставить комментарий.
