Получение кода страницы в потоке используя CppWebBrowser

13.01.2012, 16:21. **Показов** 3487. **Ответов** 1

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

Проблема состоит в том, что во время выполнения кода:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
AnsiString url_site = "http://www.google.ru";
TVariant x = url_site;  
Form1->CppWebBrowser1->Navigate2(&x, NULL, NULL, NULL, NULL);
while (Form1->CppWebBrowser1->ReadyState != 4)
{
 Application->ProcessMessages();;
}
TComInterface<IHTMLDocument2> pHTMLDocument;
TComInterface<IHTMLElement> pEl;
 
if (S_OK != Form1->CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) &pHTMLDocument)) return; 
 
 if (S_OK != pHTMLDocument->get_body(&pEl)) return; 
 
       WideString wHtmlCode;
       pEl->get_innerHTML(&wHtmlCode);
       Form1->Memo2->Text = wHtmlCode;

в потоке выходит ошибка: raised exception class eaccessviolation with message 'access violation at address in module mshtml.dll
страница загружается, но исходный код не выводится в memo.

при выполнении данного кода не в потоке все работает правильно и корректно.
Подскажите пожалуйста решение проблемы. В поисковиках рылся уже 2 дня и не нашел ничего конкретного по решению данной ошибки.

Добавлено через 16 часов 38 минут
Вопрос решился:
Ссылка

Комментарий модератора

Правила

п.3.7. Запрещено публиковать ссылки на другие форумы.

Хотите сделать доброе дело - скопируйте и выложите сюда решение.

Добавлено через 45 минут
Но если выполение данного кода происходит циклично (т.е. загружается несколько страниц по порядку),
исходный код первой страницы загружается нормально, а на второй страницы выводится сообщение:
"_ASSERTE intf != 0 @ c:\program files..........vcl\utilcls.h/2912 Press Y,N,C "
и выводит курсор на строчку: pEl->get_innerHTML(&wHtmlCode);
как это решить подскажите?
чем дальше тем круче((

Добавлено через 5 часов 17 минут
Итоговая версия, вроде работает как мне нужно и без ошибок. насчет правильности и корректности не уверен - приоритет на результат ставлю:
файл unit2.h:
Код:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
class Thread : public TThread
{            
private:
protected:
 
        void __fastcall Execute();
public:
        __fastcall Thread(bool CreateSuspended);
 
         void __fastcall Thread::AddMemo();
};
 
 
Файл Unit2.cpp:
Код:
 
__fastcall Thread::Thread(bool CreateSuspended)
        : TThread(CreateSuspended)
{
 
}
 
 
void __fastcall Thread::Execute()
{
 
for (int i = 0; i < Form1->Memo1->Lines->Count; i++)
          {
          AnsiString url_site = Form1->Memo1->Lines->Strings[i];
          TVariant x = url_site;  // сайт
          Form1->CppWebBrowser1->Navigate2(&x, NULL, NULL, NULL, NULL);
          while (Form1->CppWebBrowser1->ReadyState != 4)
                  {
                  
                  Sleep(50);
                  } // ждет пока полностью не загрузится страница
 
          Synchronize(&AddMemo);
          
         .........................................................
         ..........................................................
         Form1->Memo3->Clear();
         if(Terminated) break;// проверка на закрытие потока
         }
return;
}
 
void __fastcall Thread::AddMemo()
{
 TComInterface<IHTMLDocument2> pHTMLDocument;
 TComInterface<IHTMLElement> pEl;
 
 if (S_OK != Form1->CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) &pHTMLDocument)) return; // запрос интерфейс документа
 if (S_OK != pHTMLDocument->get_body(&pEl)) return; // тело документа
 
 WideString wHtmlCode;
 pEl->get_innerHTML(&wHtmlCode);
 
 Form1->Memo3->Text = wHtmlCode;
 
 return;
}

Компилировал в Builder 6
Если есть какие нибудь еще предложения по поводу корректности кода прошу поделиться.

Комментарий модератора

Есть предложение использовать тег кода при вставке кода

.

@BRcr · 14.01.2012, 11:08

Из Execute() ни к чему напрямую лучше не обращаться, даже для чтения. Тыщу раз может отработать без ошибок, а на тыща первый вылетит access violation... а может и наоборот, как повезет

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
class Thread : public TThread {            
private:
        int memo_lines_count, iter;
        
        void __fastcall get_memo_lines_count(void);
        void __fastcall get_site_url_and_navigate(void);
        void __fastcall add_memo(void);
        void __fastcall clear_memo(void);
protected: 
        void __fastcall Execute();
public:
        TVariant site_url;       
         
        __fastcall Thread(bool CreateSuspended);
};
////////////////////////////////////////////////////////////////////////////////
__fastcall Thread::Thread(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//////////////////////////////////////////////////////////////////////////////// 
void __fastcall Thread::get_memo_lines_count(void) {
    memo_lines_count = Form1->Memo1->Lines->Count;
}
////////////////////////////////////////////////////////////////////////////////
void __fastcall Thread::get_site_url_and_navigate(void) {
    site_url = Form1->Memo1->Lines->Strings[iter];
    Form1->CppWebBrowser1->Navigate2(&site_url, NULL, NULL, NULL, NULL);
    while (Form1->CppWebBrowser1->ReadyState != 4){
        Sleep(50);
    } // ждет пока полностью не загрузится страница
}
////////////////////////////////////////////////////////////////////////////////
void __fastcall Thread::add_memo(void) {
    TComInterface<IHTMLDocument2> pHTMLDocument;
    TComInterface<IHTMLElement> pEl;
     
    if (S_OK != Form1->CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*) &pHTMLDocument)) return; // запрос интерфейс документа
    if (S_OK != pHTMLDocument->get_body(&pEl)) return; // тело документа
     
    WideString wHtmlCode;
    pEl->get_innerHTML(&wHtmlCode);
     
    Form1->Memo3->Text = wHtmlCode;
}
////////////////////////////////////////////////////////////////////////////////
void __fastcall Thread::clear_memo(void) {
    Form1->Memo3->Clear();
}
////////////////////////////////////////////////////////////////////////////////
void __fastcall Thread::Execute()
{
    Synchronize(&get_memo_lines_count);
    for (iter = 0; !Terminated && iter < memo_lines_count; iter++) {
        Synchronize(&get_site_url_and_navigate);
        Synchronize(&add_memo);
        // ...
        Synchronize(&clear_memo);       
    }
}
////////////////////////////////////////////////////////////////////////////////

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip