Как я могу запустить TWebBrowser в Delphi XE2?

-1

Компонент TWebBrowser в Delphi XE2 кажется серьезным ошибкой. Есть ли какой-то код, который мне нужно запустить, чтобы создать его каким-то особым образом?Как я могу запустить TWebBrowser в Delphi XE2?

Создать новый проект Delphi
Бросьте компонент TWebBrowser на форму.
В Form1.FormCreate() вызов WebBrowser1.GoHome (для google).

Если я скомпилирую этот 32-разрядный файл и перейду на некоторые веб-страницы, то получаю сообщения об ошибках. google (ncbi нуклеотидный взрыв) и нажмите на первую ссылку.

В дополнение к этим ошибкам javascript, если я нажму ссылку, которая обычно открывается в новом окне, она открывается в IE (отдельное приложение).

64-разрядная версия кажется еще более неисправной. Перейдя на тот же сайт (ncbi nucleotide blast), я получаю всю ошибку программы из-за ошибки divide_by_zero.

источник

2013-04-08 Daisetsu

TWebBrowser - это просто обертка, и эти ошибки не возникают в Delphi. Чтобы избежать этого всплывающего окна, установите TWebBrowser.Silent: = True –

Если бы у меня была копейка за каждый раз, когда я видел, что кто-то спросил об этом ... У меня было бы много гроши. –

@Sir Rufo Добавление .silent избавилось от ошибок JS. – Daisetsu

Что касается исключений с плавающей запятой, TWebBrowser рассчитывает работать с исключениями с плавающей запятой в масках. Похоже, вы используете настройки Delphi по умолчанию с плавающей запятой и исключения отключены. Я подозреваю, что если вы маскируете исключения, ваши проблемы исчезнут.

ли, что вот так:

SetExceptionMask(exAllArithmeticExceptions);

И как уже говорили другие, вы молчание всплывающих окон Javascript, установив Silent в True.

источник

2013-04-08 22:29:09

Привет, Дэвид, я видел это. http://stackoverflow.com/questions/9359223/delphi-xe2-twebbrowser-float-divide-by-zero, но на самом деле не понимал этого. – Daisetsu

Что вы не понимаете? –

Я попробовал System.Set8087CW ($ 133f); и $ 1F80 // Отключить все исключения fpu. Но я все равно получаю ту же ошибку. Как SetSSEExceptionMask (exAllArithmeticExceptions), так и SetFPUExceptionMask (exAllArithmeticExceptions) не компилируются даже после импорта System.math. – Daisetsu

Как я могу запустить TWebBrowser в Delphi XE2?

ответ

Смежные вопросы