Веб-браузер, парсинг в общем работа с веб-страничками!

@Andersen1313 · Регистрация: 18.10.2010

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

Здраствуйте! Вот тут решил попрактиковаться в работе с WebBrowser..

Постановка задачи:
Открыл я свой браузер открыл страницу: WebBrowser1->Navigate("URL");
Страница загрузилась. На ней есть кнопка которую по задумке мне потребуется нажать, эта кнопка открывает другую страницу, причем не в этой же вкладке, а в другой.

Проблема:
Эта страница открывается в Internet Explorer, надо в моем же приложении.

Вопрос:
Как организовать открытие подобных страниц в моем же приложении?! Что то читал про PageControl, но не понял как его связать.. как после нажатия кнопки создать в нем новую страницу и как сделать что бы в ней открылась та страница?

@Andersen1313 · 24.08.2012, 17:15 **[ТС]**

Вот это:

Delphi
1
2
3
// Для надежности работаем со всеми фреймами, как с междоменными:
      Doc := CrossDomainFrame(WebBrowser1.Document as iHTMLDocument2,
                              iCurr).document as iHTMLDocument2;

Делает вот это:

Delphi
1
2
3
iCurr := i;
      Disp := Frames.item(iCurr);
      OleCheck(Disp.QueryInterface(IID_IHTMLWindow2, Frame));

только для междоменного фрейма?

Я просто не могу понять где используется Frame полученный в этих трех строчках..

и получается что вместо вот этого всего:

C++
1
2
3
4
5
6
7
8
9
if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
                    {
                        IHTMLWindow2 *pWindow = NULL;
                        if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2, (LPVOID*)&pWindow))) //Если фрейм найден
                        {
                            //pWindow->
                            IHTMLDocument2 *pDoc = NULL;
                            if(SUCCEEDED(pWindow->get_document(&pDoc)))
                            {

Мне нужен аналог функции из Делфи?

Добавлено через 29 минут
В общем вот что у меня получилось в попытках перевести функцию с 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
34
35
36
37
38
39
40
41
42
43
for(long frameIx = 0; frameIx < CountFrame; frameIx++)
                {
 
                    //vFrame.lVal = frameIx;
                    TComInterface<IEnumUnknown> Enumerator;
                    TComInterface<IOleContainer> theContainer;
                    TComInterface<IUnknown> unknownFrame;
                    pDocument->QueryInterface(IID_IOleContainer,(LPVOID*) &theContainer);
                    theContainer->EnumObjects(OLECONTF_EMBEDDINGS,&Enumerator);
                    Enumerator->Skip(frameIx);
                    Enumerator->Next(1, &unknownFrame, NULL);
                    IWebBrowser2 *pWindow;
                    unknownFrame->QueryInterface(IID_IWebBrowser2,(LPVOID*) &pWindow);
 
 
                    /*if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
                    {
                        IHTMLWindow2 *pWindow = NULL;
                        if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2, (LPVOID*)&pWindow))) //Если фрейм найден
                        {
                            //pWindow->*/
                           /*   IHTMLDocument2 *pDoc = NULL;
                            if(SUCCEEDED(pWindow->get_document(&pDoc)))
                            {
                            TComInterface<IHTMLElementCollection> pCollection;
                            pDoc->get_all(&pCollection);                                   //Получаю набор всех елементов в фрейме
                            if( pCollection )                                                   //если элементы есть
                            {
                                TComInterface<IDispatch> pDisp;
                                pCollection->item(TVariant(WideString("like")), TVariant(0), &pDisp); //Получаю елемент с ID или name "like"
                                if( pDisp )
                                {
                                    TComInterface<IHTMLElement> pElement;
                                    pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
                                    if( pElement )                                                //Если ээлемент есть то счелкаю его
                                    {
                                        pElement->click();
                                    }
                                }
                            }
                            }
                        }
                    }*/

На строчках:

C++
1
2
IWebBrowser2 *pWindow;
                    unknownFrame->QueryInterface(IID_IWebBrowser2,(LPVOID*) &pWindow);

Компилятор выдал два сообщения об неопределенности:

[BCC32 Error] Unit1.cpp(72): E2015 Ambiguity between 'IWebBrowser2' and 'Shdocvw::IWebBrowser2'
[BCC32 Error] Unit1.cpp(73): E2015 Ambiguity between 'IID_IWebBrowser2' and 'Shdocvw::IID_IWebBrowser2'

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

@volvo · 24.08.2012, 20:20

Вот проект. Только что запустил его на специально созданной страничке, и он прекрасно нашел на чужом фрейме нужную ссылку.

@Andersen1313 · 24.08.2012, 20:29 **[ТС]**

UI, Спасибо большое! Обязательно разберусь! И буду н раз тренироваться на разных страничках чтобы закрепить полученный материал!

И последний вопрос: Есть вообще литература (все равно на каком языке), в которой бы нормально объяснялись WebBrowser и его методы, парсинг на C++ builder и тому подобное? мне как то трудно приступая к абсолютно новой области в C++ используя справку разобраться.. там написана функция и черт её знает как её применять толком.

@Avazart · 24.08.2012, 20:35

Можно еще использовать IdHTTP парсить boost/regex или специальными библиотеками типа libxml2

@Andersen1313 · 25.08.2012, 20:11 **[ТС]**

Можно если я так получил какой нибудь блок div (Например: <div id="dle-content"></div>):

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    TWebBrowser *CppWB = WebBrowser1;
    IHTMLDocument2 *pHTMLDocument = NULL;
    if(SUCCEEDED(CppWB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pHTMLDocument)))
    {
        TComInterface<IHTMLElementCollection> pCollection;
        if (SUCCEEDED (pHTMLDocument->get_links(&pCollection)))
        {
        TComInterface<IDispatch> pDiv;
            pCollection->item(TVariant(WideString("dle-content")), TVariant(0), &pDiv);
            if (pDiv)
            {
 
            }
        }
    }

Потом получить все ссылки из него?
По типу чего нибудь такого:

C++
1
2
3
 
    TComInterface<IHTMLElementCollection> pLinks;
        if (SUCCEEDED (pHTMLDocument->get_links(&pLinks)))

Пытался так дальше делать:

C++
1
2
3
4
5
6
7
8
9
10
11
                TComInterface<IHTMLElement> pElemDiv;
                pDiv->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElemDiv);
                if (pElemDiv)
                {
                    TComInterface<IDispatch> pDivLinks;
                    pElemDiv->get_all(&pDivLinks);
                    if(pDivLinks)
                    {
 
                    }
                }

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

@Andersen1313 · 27.08.2012, 10:11 **[ТС]**

Что мне написать в скобках catch, что бы на строчке

C++
1
IdHTTP1->Head(strHTMLWallpaper);

,

в случае отсутствия файла strHTMLWallpaper, не зависало, а тихо выходило и продолжало дальше действия располагающиеся после catch блока?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
try
{
    IdHTTP1->Head(strHTMLWallpaper);
    if(IdHTTP1->ResponseCode==200)
    {
        TFileStream* FILE_STREAM = new TFileStream(Edit2->Text+"\\image-"+NameFile+".jpg", fmCreate | fmOpenWrite);
        IdHTTP1->Get(strHTMLWallpaper, FILE_STREAM);
        CountDown++;
        delete FILE_STREAM;
    }
}
catch()
{
}

@Andersen1313 · 28.08.2012, 20:46 **[ТС]**

А как мне получить элемент у которого нет ID или NAME, а есть например тэг HREF?

Например:

HTML5
1
<a href="link.html"></a>

Новые блоги и статьи Все статьи Все блоги /
Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .
Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .	сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .

@Andersen1313 8 / 8 / 1 Регистрация: 18.10.2010 Сообщений: 120

	Веб-браузер, парсинг в общем работа с веб-страничками! 22.08.2012, 15:46. Показов 12091. Ответов 46 Метки нет (Все метки) Здраствуйте! Вот тут решил попрактиковаться в работе с WebBrowser.. Постановка задачи: Открыл я свой браузер открыл страницу: WebBrowser1->Navigate("URL"); Страница загрузилась. На ней есть кнопка которую по задумке мне потребуется нажать, эта кнопка открывает другую страницу, причем не в этой же вкладке, а в другой. Проблема: Эта страница открывается в Internet Explorer, надо в моем же приложении. Вопрос: Как организовать открытие подобных страниц в моем же приложении?! Что то читал про PageControl, но не понял как его связать.. как после нажатия кнопки создать в нем новую страницу и как сделать что бы в ней открылась та страница? 0

@Andersen1313 8 / 8 / 1 Регистрация: 18.10.2010 Сообщений: 120
	24.08.2012, 20:29 [ТС]
	UI, Спасибо большое! Обязательно разберусь! И буду н раз тренироваться на разных страничках чтобы закрепить полученный материал! И последний вопрос: Есть вообще литература (все равно на каком языке), в которой бы нормально объяснялись WebBrowser и его методы, парсинг на C++ builder и тому подобное? мне как то трудно приступая к абсолютно новой области в C++ используя справку разобраться.. там написана функция и черт её знает как её применять толком. 0

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	24.08.2012, 20:35
	Можно еще использовать IdHTTP парсить boost/regex или специальными библиотеками типа libxml2 0

Веб-браузер, парсинг в общем работа с веб-страничками!

Решение