Переписать код в Delphi-йского на C++ Builder (выполнение скриптов на HTML странице)

@Gdasar · Регистрация: 18.02.2013

Студворк — интернет-сервис помощи студентам

Всем привет.
Нагуглился код на Delphi, который выполняет скрипты на HTML странице:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;
 
procedure TForm1.Button9Click(Sender: TObject);
var
s:OleVariant;
IDoc1: IHTMLDocument2;
begin
Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc1);
s:='javascript:сюда скрипт';
ExecuteScript(iDoc1,s,'JavaScript');
end;

Хочу его переписать на C++ Builder:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
bool ExecuteScript(TStringList* Script)
{
    IHTMLDocument2* HTMLDoc = NULL;
    IHTMLWindow2* win;
    OleVariant v;
    TWebBrowser *WebBrowser1;
    // no matching member function for call to 'QueryInterface'
    WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, HTMLDoc);
 
    try
    {
        win = HTMLDoc->parentWindow;
    }
    catch(...)
    {
        return false;
    }
    if(win == NULL)
    {
        return false;
    }
    try
    {
        v = L"JavaScript";
        // 100% неверно!
        win->execScript(Script->Text.c_str(), L"JavaScript", v);
    }
    catch(...)
    {
        return false;
    }
 
    return true;
};

Вот только не получается совсем.
Например, не понимаю, что передавать в

C++
1
WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, HTMLDoc);

И правильно ли я передал параметры тут:

C++
1
win->execScript(Script->Text.c_str(), L"JavaScript", v);

Буду признателен за Вашу помощь.
Или может у кого есть другой, работающий вариант кода, для выполнения этой задачи?

@volvo · 08.07.2017, 14:39

Запускать скрипты со страницы можно вот так (в XE2/XE4 работало) :

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall ExecuteScript(TWebBrowser * Browser, const String &fmt, const TVarRec *args, int size)
{
    _di_IDispatch _di = Browser->ControlInterface->Document;
    DelphiInterface<IHTMLDocument2>doc = _di;
    DelphiInterface<IHTMLWindow2>wnd;
    doc->get_parentWindow(&wnd);
    String _script = String::Format(fmt, args, size);
    WideString script = _script;
    WideString lang = "JScript";
    OleVariant v;
    wnd->execScript(script.c_bstr(), lang.c_bstr(), v);
}

вызывать - так:

C++
1
2
    String params = "parameter_for_script";
    ExecuteScript(WebBrowser1, "scriptname(\"%s\");", ARRAYOFCONST((params)));

@Gdasar · 08.07.2017, 19:19 **[ТС]**

Спасибо за код.
Вот только у меня ошибка в строке

C++
1
doc->Get_parentWindow(&wnd);

[bcc64 Error] Unit1.cpp(33): non-const lvalue reference to type '_di_IHTMLWindow2' (aka 'DelphiInterface<Mshtml::IHTMLWindow2>') cannot bind to a temporary of type 'Mshtml::IHTMLWindow2 **'

И если заменить её на эту

C++
1
doc->Get_parentWindow(wnd);

То компиляция проходит, но во время работы получаю следующее

Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'

Версия XE8.

@volvo · 08.07.2017, 19:25

С этим у Билдера постоянные ошибки. То на одной версии не заработает, то на другой.

Попробуй вот так:

C++
1
DelphiInterface<IHTMLWindow2> wnd = doc->parentWindow;

Мне проверять вообще негде, у меня Билдера теперь нет совсем, но в сети клянутся, что у них отработало.

@Gdasar · 08.07.2017, 20:05 **[ТС]**

Не помогло. Выводит тоже самое.

Добавлено через 2 минуты

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall ExecuteScript(TWebBrowser * Browser, const String &fmt, const TVarRec *args, int size)
{
    _di_IDispatch _di = Browser->ControlInterface->Document;
    DelphiInterface<IHTMLDocument2> doc = _di;
    DelphiInterface<IHTMLWindow2> wnd = doc->parentWindow;
    doc->Get_parentWindow(wnd);
    String _script = String::Format(fmt, args, size);
    WideString script = _script;
    WideString lang = "JScript";
    OleVariant v;
    wnd->execScript(script.c_bstr(), lang.c_bstr(), v);
}

@Gdasar · 10.07.2017, 16:18 **[ТС]**

В общем провел проверку : установил C++ Builder XE8 на другую машину(другой студии нет) и проверил всё тот же код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall ExecuteScript(TWebBrowser * Browser, const String &fmt, const TVarRec *args, int size)
{
    _di_IDispatch _di = Browser->ControlInterface->Document;
    DelphiInterface<IHTMLDocument2> doc = _di;
    DelphiInterface<IHTMLWindow2> wnd = doc->parentWindow;
    doc->Get_parentWindow(wnd);
    String _script = String::Format(fmt, args, size);
    WideString script = _script;
    WideString lang = "JScript";
    OleVariant v;
    wnd->execScript(script.c_bstr(), lang.c_bstr(), v);
}

Получаю всю туже ошибку:

Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'

А так же переписал код с Delphi(но это не точно)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
bool ExecuteScript(TStringList* Script)
{
    IHTMLDocument2* HTMLDoc = NULL;
    IHTMLWindow2* win;
    OleVariant v;
    TWebBrowser *WebBrowser1;
    WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (void**)&HTMLDoc);
 
    try
    {
        win = HTMLDoc->parentWindow;
    }
    catch(...)
    {
        return false;
    }
    if(win == NULL)
    {
        return false;
    }
    try
    {
        v = L"JavaScript";
        // 100% неверно!
        win->execScript(Script->Text.c_str(), L"JavaScript", v);
    }
    catch(...)
    {
        return false;
    }
 
    return true;
};

Который вываливается на следующей строке:

C++
1
WebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (void**)&HTMLDoc);

Всё с той же ошибкой:

Exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'

Что-то странное происходит. Почему-то XE8 никак не хочет выполнять код без ошибок. Может, кто-нибудь заюзает этот код на более ранних или более поздних версиях студии?
Или скинет файл mshtml.hpp с XE2 или XE4. Так как выше написали, что на этих версиях код работал нормально.
Спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .