Заполнение форм CppWebBrowser

@bodrich · Регистрация: 20.06.2010

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

Может кто подсказать, как сделать:
Вот зашел например на сайт вот как-то так:

C++
1
CppWebBrowser1->Navigate(WideString("http://site.ru));

Дальше надо заполнить две формы:

HTML5
1
2
<input type="text" value="login" onfocus="javascript:this.value=''" class="text" name="login_login">
<input type="password" value="password" onfocus="javascript:this.value=''"  class="text" name="login_password">

Ну и нажать кнопку войти

HTML5
1
<a href="#" class="button" onclick="javascript:$('#loginForm').submit(); return false;" style="padding-right:23px;">войти</a>

и как это сделать?)

cpp_developer · 05.02.2011, 19:34

Заполнение полей ввода и нажатие кнопки на HTML странице

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
void __fastcall TForm1::ClickButton(String Name){// нажатие кнопки на форме. Name - имя кнопки в html коде
  TCppWebBrowser *WB=CWB;
  if( WB->Document )    {
    TComInterface<IHTMLDocument2> pDocument;
    WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);
    if( pDocument )        {
      TComInterface<IHTMLElementCollection> pCollection;
      pDocument->get_all(&pCollection);
      if( pCollection )            {
        TComInterface<IDispatch> pDisp;
        pCollection->item(TVariant(WideString(Name)), TVariant(0), &pDisp);
        if( pDisp )                {
          TComInterface<IHTMLElement> pElement;
          pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
          if( pElement )                    {
            pElement->click();
          }
        }
      }
    }
  }
} //---------------------------------------------------------------------------------
void __fastcall TForm1::FillForm(String Name, String Data){
// заполнение поля на форме. Name - имя поля в html коде. 
  TCppWebBrowser *WB=CWB;
  CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2>                  pDoc;
  CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection>  pColl;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pTmpDisp;
  CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement>            pElement;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pDisp;
  if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))    {
    if ( SUCCEEDED (pDoc->get_all(&pColl)))                 {
      if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
        pElement = pDisp;
        pElement->put_value(WideString(Data));
      }
    }
  }
} //---------------------------------------------------------------------------------

Так же выбирается Radio Button. каждой позиции соответсвует значение - найти его можно в html коде.
Заполнение TEXTAREA

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
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  IHTMLDocument2 *pHTMLDocument = NULL;
  if (SUCCEEDED(WB->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&pHTMLDocument)))
  {
    if(pHTMLDocument!= NULL ) {
      IHTMLElementCollection *pAll = NULL;
      if ( SUCCEEDED ( pHTMLDocument -> get_all ( &pAll ) ) && pAll ) {
        TVariant vIndex = 0;
        IDispatch *pDisp1 = NULL;
        TVariant vName1 = "txtSM"; // ?? ???? ???? <TEXTAREA name=text ....
        WideString iniString = "текст смски"; //  TEXTAREA
        if ( SUCCEEDED ( pAll -> item ( vName1, vIndex, &pDisp1 ) ) && pDisp1 ) {
          IHTMLTextAreaElement *pInput = NULL;
          if ( SUCCEEDED ( pDisp1 -> QueryInterface ( IID_IHTMLTextAreaElement, ( LPVOID* )&pInput ) ) && pInput ) {
            pInput -> put_value ( iniString );
            pInput -> Release ();
          }
          pDisp1 -> Release ();
        }
      }
      pAll -> Release ();
    }
  }
}

WB это CppWebBrowser.

@bodrich · 05.02.2011, 22:12 **[ТС]**

Вопрос насчет Заполнение полей ввода на HTML странице.
Пишет, что неизвестный практически все команды, такие как CComQIPtr, pDoc, pTmpDisp и тп.

C++
1
void __fastcall TForm1::FillForm(String Name, String Data)

что за элемент FillForm?

cpp_developer · 05.02.2011, 23:03

это не элемент, это функция, хорошо бы ее прототип засунуть в хидер:

C++
1
2
3
private:    // User declarations
  void __fastcall FillForm(String Name, String Data);
// или в public: // User declarations

и, может, Вы какой компонент забыли перетащить на форму, или хидер подключить...

@bodrich · 06.02.2011, 14:55 **[ТС]**

и еще вопрос, как сделать остановку загрузки страницы?

Добавлено через 11 минут
и еще вопрос, как сделать проверку, если нету заданых на страничке форм/кнопок, то ошибка не писалась?

09.01.2012, 18:48

LK, большое спасибо за код. Очень помогло. Может еще подскажите, как редактировать ComboBox на html-страничке?

@Limit-ED-itioN · 20.02.2012, 18:07

Кто-нибудь, можете пожалуйста скинуть исходник дабы посмотреть поближе и как оно устроенно, ато так ничегошеньки понять не могу!

cpp_developer · 20.02.2012, 18:08

Limit-ED-itioN, а вставить код в кнопку самому воспитание не позволяет ?

@Limit-ED-itioN · 22.02.2012, 01:17

Сообщение от LK

Limit-ED-itioN, а вставить код в кнопку самому воспитание не позволяет ?

та я то вставлял, был бы он рабочий...))) Вообщем уже начитался литературы и все сделал)

@Limit-ED-itioN · 11.03.2012, 13:14

продолжим довольно интересную тему...)
Мучаюсь над добавлением картинки в поле обзор.
есть HTML код, который в нетронутом виде выглядит вот так:

HTML5
1
<DIV class=field><INPUT value=file type=hidden name=image[1]> <INPUT class="margintop3 " size=40 type=file name=image[1]> </DIV></DIV>

когда я добавляю фото вручную (d:\Aren\Program\Photos\Chev\1001\11.jpg ) получаю код вида:

HTML5
1
<DIV class=field><INPUT value=file type=hidden name=image[1]> <INPUT class="margintop3 " value=D:\fakepath\11.jpg size=40 type=file name=image[1]> </DIV></DIV>

каким образом это можно сделать? ведь вводить в поле обзор нельзя, так как оно только риид, да еще и в предачу путь к файлу скрывается "fakepath"ем...
думал создать на форме список файлов и оттуда драг&дроп перекидывать их на браузер, но не получается...

cpp_developer · 11.03.2012, 13:46

сделать что ?

Добавлено через 38 секунд
И посмотрите в самом низу страниці Похожие темы

@Limit-ED-itioN · 11.03.2012, 14:20

сделать - добавить картинку( .jpg файл) в поле обзор...

@Miller-1981 · 12.03.2012, 18:51

Сообщение от LK

Заполнение полей ввода и нажатие кнопки на HTML странице

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
void __fastcall TForm1::ClickButton(String Name){// нажатие кнопки на форме. Name - имя кнопки в html коде
  TCppWebBrowser *WB=CWB;
  if( WB->Document )    {
    TComInterface<IHTMLDocument2> pDocument;
    WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);
    if( pDocument )        {
      TComInterface<IHTMLElementCollection> pCollection;
      pDocument->get_all(&pCollection);
      if( pCollection )            {
        TComInterface<IDispatch> pDisp;
        pCollection->item(TVariant(WideString(Name)), TVariant(0), &pDisp);
        if( pDisp )                {
          TComInterface<IHTMLElement> pElement;
          pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);
          if( pElement )                    {
            pElement->click();
          }
        }
      }
    }
  }
} //---------------------------------------------------------------------------------
void __fastcall TForm1::FillForm(String Name, String Data){
// заполнение поля на форме. Name - имя поля в html коде. 
  TCppWebBrowser *WB=CWB;
  CComQIPtr<IHTMLDocument2, &IID_IHTMLDocument2>                  pDoc;
  CComQIPtr<IHTMLElementCollection, &IID_IHTMLElementCollection>  pColl;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pTmpDisp;
  CComQIPtr<IHTMLInputElement, &IID_IHTMLInputElement>            pElement;
  CComQIPtr<IDispatch, &IID_IDispatch>                            pDisp;
  if ( SUCCEEDED (WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDoc)))    {
    if ( SUCCEEDED (pDoc->get_all(&pColl)))                 {
      if ( SUCCEEDED (pColl->item(TVariant(WideString(Name)), TVariant(0), &pDisp))) {
        pElement = pDisp;
        pElement->put_value(WideString(Data));
      }
    }
  }
} //---------------------------------------------------------------------------------

Так же выбирается Radio Button. каждой позиции соответсвует значение - найти его можно в html коде.
Заполнение TEXTAREA

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
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  IHTMLDocument2 *pHTMLDocument = NULL;
  if (SUCCEEDED(WB->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&pHTMLDocument)))
  {
    if(pHTMLDocument!= NULL ) {
      IHTMLElementCollection *pAll = NULL;
      if ( SUCCEEDED ( pHTMLDocument -> get_all ( &pAll ) ) && pAll ) {
        TVariant vIndex = 0;
        IDispatch *pDisp1 = NULL;
        TVariant vName1 = "txtSM"; // ?? ???? ???? <TEXTAREA name=text ....
        WideString iniString = "текст смски"; //  TEXTAREA
        if ( SUCCEEDED ( pAll -> item ( vName1, vIndex, &pDisp1 ) ) && pDisp1 ) {
          IHTMLTextAreaElement *pInput = NULL;
          if ( SUCCEEDED ( pDisp1 -> QueryInterface ( IID_IHTMLTextAreaElement, ( LPVOID* )&pInput ) ) && pInput ) {
            pInput -> put_value ( iniString );
            pInput -> Release ();
          }
          pDisp1 -> Release ();
        }
      }
      pAll -> Release ();
    }
  }
}

WB это CppWebBrowser.

для

HTML5
1
2
3
4
<div class="class1">
  <textarea id="post_field"></textarea>
</div>
pInput -> put_value ( iniString );

не работает - элемент находит? но в него ниче не пишет

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@bodrich 104 / 94 / 14 Регистрация: 20.06.2010 Сообщений: 966 Записей в блоге: 16
	06.02.2011, 14:55 [ТС]
	и еще вопрос, как сделать остановку загрузки страницы? Добавлено через 11 минут и еще вопрос, как сделать проверку, если нету заданых на страничке форм/кнопок, то ошибка не писалась? 0

MeisterLg
	09.01.2012, 18:48
	LK, большое спасибо за код. Очень помогло. Может еще подскажите, как редактировать ComboBox на html-страничке?

@Limit-ED-itioN 5 / 5 / 2 Регистрация: 12.02.2012 Сообщений: 44
	20.02.2012, 18:07
	Кто-нибудь, можете пожалуйста скинуть исходник дабы посмотреть поближе и как оно устроенно, ато так ничегошеньки понять не могу! 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	20.02.2012, 18:08
	Limit-ED-itioN, а вставить код в кнопку самому воспитание не позволяет ? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	11.03.2012, 13:46
	сделать что ? Добавлено через 38 секунд И посмотрите в самом низу страниці Похожие темы 0

@Limit-ED-itioN 5 / 5 / 2 Регистрация: 12.02.2012 Сообщений: 44
	11.03.2012, 14:20
	сделать - добавить картинку( .jpg файл) в поле обзор... 0