Twebbrowser delphi ошибка сценария js

← →
crash123
 
(2003-01-18 16:48)
[0]

Я использую компоненту TWebBrowser. Встала проблема избаиться от окна «Ошибка сценария Internet Explorer». Оно появляется на многих сайтах в которых есть ошибки в JAVA скриптах. Версия IE — 5.0.

Помогите пожалуйста!

← →
Ihor Osov’yak
 
(2003-01-18 22:42)
[1]

← →
crash123
 
(2003-01-19 10:29)
[2]

Уважаемый Ihor Osov»yak, если Вас не затруднит, напишите исходный код. Заранее спосибо!

← →
Ihor Osov’yak
 
(2003-01-19 11:31)
[3]

← →
Ihor Osov’yak
 
(2003-01-19 11:34)
[4]

← →
int64
 
(2003-01-19 12:57)
[5]

← →
Ihor Osov’yak
 
(2003-01-19 13:48)
[6]

← →
Ihor Osov’yak
 
(2003-01-19 13:50)
[7]

← →
Ihor Osov’yak
 
(2003-01-19 13:57)
[8]

← →
sergey2
 
(2003-01-21 15:00)
[9]

Я использую компоненту TWebBrowser. Встала проблема избаиться от окна «Ошибка сценария Internet Explorer». Оно появляется на многих сайтах в которых есть ошибки в JAVA скриптах. Версия IE — 5.0.
Помогите пожалуйста!

← →
Ihor Osov’yak ( 2003-01-18 22:42 ) [1]

Есть ошибка — значит будет сообщение об ошибке :-).

Зы — если кто-то посоветует Silent установить в true — не слушай его. Ибо в первых, Silent не все сообщения перехватывает — о твоем случае не знаю, нужно экспериментировать. Но проблема не в том – если даже это заблокирует сообщение об ошибке – то это будет равнозначно ответу “не выполнять скрипты более”. А как показывает опыт – сейчас очень модно на всякие линки и кнопки скрипты вешать – следовательно, броузер соотв. клики уже не будет обрабатывать. Со всеми вытекающими последствиями.

Юзание IDOCHOSTSHOWUI (пример реализации смотрим в TEmbeddedWB) тоже вряд ли (когда-то делал эксперименты – сообщения об ошибках здесь тоже не ловятся – но могу ошибиться за древностью – проверьте, если есть желанию).

Делаю так – немного в лоб, но работает наверняка (IE от 5, все винды)

— хук на создание окна для своего потока.
— в хуке смотрим класс окна, если это Internet Explorer_Server — вполне может быть, что это окно с сообщением об ошибке. Тогда – PostMessage на взвод таймера примерно на 0.1 сек – єто нужно для того, что в соотв. окне еще ничего нет. По срабатыванию таймера запрашиваем IHtmlDocument2 от соотв. хидера окна – как это сделать, здесь уже говорили, поищи по ключевым словам ObjectFromLresult,IHtmlDocument2

— парсим соотв. IHtmlDocument2, и если там есть бутончик, в html коде которого есть >

← →
crash123 ( 2003-01-19 10:29 ) [2]

Уважаемый Ihor Osov»yak, если Вас не затруднит, напишите исходный код. Заранее спосибо!

← →
Ihor Osov’yak ( 2003-01-19 11:31 ) [3]

Держи фрагменты, выдернуто с реального проекта, убраны некоторые несущественные детали, но может и не все, посему некоторые фрагменты «будут лишними», также не даю кода всякой мелочовки вида WrTm — это у меня отладочный вывод:

function GetWndClassName(aWnd:THandle):string;
var wS:string;
l:integer;
begin
SetLength(ws,160);
l:=GetClassName(aWnd,PChar(ws),length(ws));
if length(ws)>0
then Result := Copy(ws,1,l)
else Result := «»;
SetLength(ws,0);
end;

Собственно процедура хука.
notifHandle — хендл формы, в которой будем организовать клик по кнопочке, у меня это главная форма,WUM_HookIEFired- юзверовский месидж

При юзании только для своего процесса
оформлять в виде длл необязательно:

function Kah_hook(Code:integer; aWParam:WPARAM; aLParam:LParam):longint; stdcall;
var wnd: dword;

wnd :=aWParam;
fl:= 0;
if code

ну и собственно обработчик WUM_HookIEFired:

procedure TFormMain_DreamMates14_2.WUMHookIEFired(var Msg: TMessage);
begin

if Msg.WParam <> 0 then begin
fHWndHookedIEFrame := Msg.WParam;
fHWndHooked := Msg.LParam;

end
else exit;
TimerHook.Enabled := true;

И обработчик таймера(здесь основная работа) — почему через таймер — я уже говорил — нужно дать время на формирование сообщения, оно начинает формироватся даже не при создании окна, а сразу после активации (у меня такое впечатление сложилось, но в прочем на єтом я не настаиваю — в смысле, когда формируется, но что задержка нужна — это обнозначно, я ставлю 0.2 сек)

type
TObjectFromLResult = function(LRESULT: lResult; const IID: TIID; WPARAM:
wParam; out pObject): HRESULT; stdcall;

const MSG: Integer = 0;
hInstLib: HWND =0;
ObjectFromLresult: TObjectFromLresult = nil;

function GetIDocFromHWND(WHandle: HWND; var iDoc: IHtmlDocument2): HRESULT;
var
lRes: Cardinal;
begin
Result := S_FALSE;
if hInstLib = 0 then hInstLib := LoadLibrary(«Oleacc.dll»);
if not assigned(ObjectFromLresult) then @ObjectFromLresult := GetProcAddress(hInstLib, «ObjectFromLresult»);
if @ObjectFromLresult <> nil then begin
try
if MSG=0 then MSG := RegisterWindowMessage(«WM_HTML_GETOBJECT»);
SendMessageTimeOut(WHandle, MSG, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, iDoc);
finally
//eeLibrary(hInst);
end;
end;
end;

procedure TFormMain_DreamMates14_2.TimerHookTimer(Sender: TObject);
var
WndChild: HWND;
//IE:IWebbrowser2;
iElem:IHtmlElement;
iDoc:IHtmlDocument2;

procedure HtmlCodToLog;
begin
if not assigned(iDoc) then exit;
WrTm(2,»Hooked text:» + GetTxtBoby(iDoc));
WrTm(2,»Hooked html:» + GetHtmlBoby(iDoc));

procedure TryForceCloseHokkedWnd;
var h1,h:thandle;
begin
if fHWndHooked<>0 then begin
PostMessage(fHWndHooked,WM_Close,0,0);
exit;
end;
h1:= fHWndHookedIEFrame;

if ((h=0) or (h=Handle)) then begin
PostMessage(h1,WM_Close,0,0);
exit;
end;
h1 := h;

var s:string;
begin //
try
TimerHook.Enabled := false;

if ((fHWndHookedIEFrame<>0) and (fHWndHooked=0)) then begin

if not assigned(iDoc) then begin

WndChild := FindWindowEX(fHWndHookedIEFrame, 0, «Internet Explorer_Server», nil);
if WndChild=0 then begin
WrTm(2,»TimerHookTimer: cp1″);
WndChild := FindWindowEX(fHWndHooked, 0, «Internet Explorer_Server», nil);
end;
if WndChild=0 then begin
WrTm(2,»TimerHookTimer: cp2″);
Exit;
end;
if GetiDocFromHWND(WndChild,IDoc)<>S_OK then begin
WrTm(2,»TimerHookTimer: cp3″);
exit;
end;
end;
if not assigned(iDoc) then begin
WrTm(2,»TimerHookTimer: cp4″);
exit;
end;

WrTm(0,»** Catch window with a html-warnintg . «);
HtmlCodToLog;

if Pos(«error has occurred in the script on this page»,s)>0 then begin
iElem := GetButtonWithSubstrInOuterHtml2( >if assigned(iElem) then begin
iElem.Click;
WrTm(2,»TimerHookTimer: click on «continue running scripts»»);
exit;
end;
end;

← →
Ihor Osov’yak ( 2003-01-19 11:34 ) [4]

Да, функция постановки хука: 🙂

procedure OnHook(aHNotif:THandle);
begin
if HookHandle<>0 then exit;
notifHandle := aHNotif;
HookHandle:=SetWindowsHookEx(WH_CBT,@Kah_hook,0,GetCurrentThreadId);

← →
int64 ( 2003-01-19 12:57 ) [5]

crash123 (18.01.03 16:48)

Сделай так, и вообще никаких окон не будет. Во всяком случае, посмотри, может получится.

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormCreate(Sender: TObject);
private
FOldWindowProc: TWndMethod;
procedure FormWndProc(var AMsg: TMessage);
< Private declarations >
public
< Public declarations >
end;

var
Form1: TForm1;

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldWindowProc:= WindowProc;
WindowProc := FormWndProc;
WebBrowser1.Navigate(«c: emp1.htm»);
end;

procedure TForm1.FormWndProc(var AMsg: TMessage);
var
ChWnd, wnd: Integer;
Msg: TWmActivate;
i: integer;
s: string;
begin
if AMsg.Msg = WM_ACTIVATE then
begin
Msg := TWmActivate(AMsg);
wnd := Msg.ActiveWindow;
//if . then
SendMessage(wnd, WM_CLOSE, 0, 0);
end;
FOldWindowProc(AMsg);
end;

А если хочешь, чтоб какое-то конкретное окно пропадало, то перед SendMessage(wnd, WM_CLOSE, 0, 0) ставь проверку на корректную идентификацию этого окна.

Ihor Osov»yak © (19.01.03 11:34)
Что-то ты много написал. Может ты практически подходил? А я вот теоритически. )

← →
Ihor Osov’yak ( 2003-01-19 13:48 ) [6]

2 int64 © (19.01.03 12:57)

> Что-то ты много написал. Может ты практически подходил? А я вот теоритически. )

Практик я, практик. 🙂
Для теоретиков повторяю: прибитие окна на взлете равнозначно тисканию на кнопочку «не выполнять более скриптов» — или как она там зовется, пишу по-памяти, что в болшинстве практических случаев ведет к нарушению функционирования сайта — сейчас часто на всякие линки и кнопки скрипты разработчики сайтов вешают.
Хотя в конкретном случае вариант от int64 пройдет. Но нужно быть готовым к тому, что через некоторое время софту доделывать придется, так как авторы сайта подпадут под модные течения и . (см. выше)

← →
Ihor Osov’yak ( 2003-01-19 13:50 ) [7]

Зы
> прибитие окна на взлете равнозначно тисканию на кнопочку
> «не выполнять более скриптов»
— сие проверялось практически и не единыжды 🙂

← →
Ihor Osov’yak ( 2003-01-19 13:57 ) [8]

Зы еще — в коде от int64 наверно есть ошибка — FormWndProc делает сабклассинг для делфийской формы и будет соотв. ловить ее активацию, а не активацию окна с сообщением с ошибкой.
Имхо, активацию окна с ошибкой — только через хуки.

Зы — на сей раз это теоритическое размышление, практически проверять влом. Но думаю, что я прав.

← →
sergey2 ( 2003-01-21 15:00 ) [9]

Я лично у себя написал:

try
WebBrowser1.Navigate(URL);
except
end;

и никаких ошибок не вылазит.

9 TipTop [2011-12-19 22:49:00]

У меня возникли проблемы с обработкой ошибок javascript в WebBrowser на Delphi 2010.

Я использую WebBrowser с включенным тихим свойством. Кажется ОК, но есть одна проблема на сайтах с багги-скриптами: она кажется частью script после того, как ошибка не выполняется. Результаты некоторых script немного отличаются от IE.

Вы знаете, как решить эту проблему?

javascript browser delphi

2 ответа

12 Решение TLama [2011-12-20 18:06:00]

В следующем примере я использовал вставленный класс, поэтому, если вы поместите этот код в свое подразделение, только эти веб-браузеры в форме или созданные в этом устройстве динамически получат это поведение.

Поставил компонент TWebBrowser , загружаю страницу, выходит ошибка сценария. Если игнорировать ошибки путем

то ошибки нет, но функционал страницы нарушен.

Как устранить данную проблему и сохранить функционал загружаемой страницы?

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0184 ]   [ 16 queries used ]   [ Generated: 29.01.23, 02:27 GMT ]  

Вы можете использовать IOleCommandTarget и в IOleCommandTarget.Exec метод поймать OLECMDID_SHOWSCRIPTERROR.

В следующем примере я использовал вставленный класс, поэтому, если вы поместите этот код в свое подразделение, только эти веб-браузеры в форме или созданные в этом устройстве динамически получат это поведение.

uses
  SHDocVw, ActiveX;

type
  TWebBrowser = class(SHDocVw.TWebBrowser, IOleCommandTarget)
  private
    function QueryStatus(CmdGroup: PGUID; cCmds: Cardinal; prgCmds: POleCmd;
      CmdText: POleCmdText): HRESULT; stdcall;
    function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD; 
      const vaIn: OleVariant; var vaOut: OleVariant): HRESULT; stdcall;
  end;

implementation

function TWebBrowser.QueryStatus(CmdGroup: PGUID; cCmds: Cardinal; 
  prgCmds: POleCmd; CmdText: POleCmdText): HRESULT; stdcall;
begin
  Result := S_OK;
end;

function TWebBrowser.Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD; 
  const vaIn: OleVariant; var vaOut: OleVariant): HRESULT; stdcall;
begin
  // presume that all commands can be executed; for list of available commands
  // see SHDocVw.pas unit, using this event you can suppress or create custom 
  // events for more than just script error dialogs, there are commands like 
  // undo, redo, refresh, open, save, print etc. etc.
  // be careful, because not all command results are meaningful, like the one
  // with script error message boxes, I would expect that if you return S_OK,
  // the error dialog will be displayed, but it vice-versa
  Result := S_OK;

  // there a script error in the currently executed script, so
  if nCmdID = OLECMDID_SHOWSCRIPTERROR then
  begin
    // if you return S_FALSE, the script error dialog is shown
    Result := S_FALSE;
    // if you return S_OK, the script error dialog is suppressed
    Result := S_OK;
  end;
end;

<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>D3 Test</title>
<script type="text/javascript" src="d3d3.js"></script>
</head>
<body>
Hello World
</body>
</html>

2 ответа

Лучший ответ

<meta http-equiv="X-UA-Compatible" content="IE=edge" />

type TBrowserEmulationAdjuster = class
  private
      class function GetExeName(): String; inline;
   public const
      // Quelle: https://msdn.microsoft.com/library/ee330730.aspx, Stand: 2017-04-26
      IE11_default   = 11000;
      IE11_Quirks    = 11001;
      IE10_force     = 10001;
      IE10_default   = 10000;
      IE9_Quirks     = 9999;
      IE9_default    = 9000;
      /// <summary>
      /// Webpages containing standards-based !DOCTYPE directives are displayed in IE7
      /// Standards mode. Default value for applications hosting the WebBrowser Control.
      /// </summary>
      IE7_embedded   = 7000;
   public
      class procedure SetBrowserEmulationDWORD(const value: DWORD);
end platform;

class function TBrowserEmulationAdjuster.GetExeName(): String;
begin
    Result := TPath.GetFileName( ParamStr(0) );
end;

class procedure TBrowserEmulationAdjuster.SetBrowserEmulationDWORD(const value: DWORD);
const registryPath = 'SoftwareMicrosoftInternet ExplorerMainFeatureControlFEATURE_BROWSER_EMULATION';
var
    registry:   TRegistry;
    exeName:   String;
begin
    exeName := GetExeName();

    registry := TRegistry.Create(KEY_SET_VALUE);
    try
       registry.RootKey := HKEY_CURRENT_USER;
       Win32Check( registry.OpenKey(registryPath, True) );
       registry.WriteInteger(exeName, value)
    finally
       registry.Destroy();
    end;

TBrowserEmulationAdjuster.SetBrowserEmulationDWORD(TBrowserEmulationAdjuster.IE11_Quirks);