Пытаюсь настроить парсер html текста, с помощью TWebBrowser. Загружаю файл из базы данных.
Однако, переодически вылезают разные сообщения с ошибками java-скриптов, безопасности. Делаю вроде этого:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ...
sl: TStringList;
ms: TMemoryStream;
iDoc: IHtmlDocument2;
HTMLCode: String ;
...
sl := TStringList . Create;
ms := TMemoryStream . Create;
sl . Text := HTMLCode;
sl . SaveToStream(ms);
ms . Seek( 0 , 0 );
(WebBrowser . Document as
IPersistStreamInit).Load(TStreamAdapter . Create(ms));
...
iDoc := (pDisp as TWebBrowser).Document as IHtmlDocument2;
my_title:=iDoc . body . title;
my_text:=iDoc . body . innerText;
...
|
Как отключить появление этих сообщений?