Достук к тегу <SELECT> вебстраницы через CppWebBrowser

@Авраменко Алексей · Регистрация: 06.10.2008

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

Столкнулся с такой ситуацией:
Есть веб страница со сложной формой. Вот ее маленький фрагмент:

HTML5
1
2
3
4
5
6
7
8
9
10
<form name="form1">
....
<SELECT [B]disabled[/B] name="pole_1">
<OPTION value="1" selected>Значение 1
<OPTION value="2">Значение 2
<OPTION value="3">Значение 3
<OPTION value="4">Значение 4
</OPTION></SELECT>
....
</form>

Поле <SELECT> загружается с параметром disabled.
Поэтому содержимое изменить нельзя.

Мне же, нужно изменять данное поле перед отправкой всей формы.

Задачу я решил частично. Вот код:

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    IHTMLDocument2 *htm = 0;
    CppWebBrowser1->Document->QueryInterface(&htm);
    if(htm)
    {
        IHTMLElementCollection *col = 0;
        htm->get_all(&col);
        if(col)
        {
            IDispatch *el_disp = 0;
            col->item(TVariant(L"pole_1"), TVariant(0), &el_disp);   // Здесь указывается имя тега ("pole_1") с которым мы работаем
            if(el_disp)
            {
                IHTMLElement *el = 0;
                el_disp->QueryInterface(&el);
                if(el)
                {
                    el->setAttribute(L"value", TVariant(L"2"), 0); // Здесь переменной "value" присваиваем значение "2"
                    el->Release();
                    el = 0;
                }
                el_disp->Release();
                el_disp = 0;
            }
            col->Release();
            col = 0;
        }
        htm->Release();
        htm = 0;
    }
}

Вот только проблема код не работает на странице с фреймами.

Подскажите как изменить код, чтобы он работал с фреймами.
И еще может кто скажет как тег <SELECT> сделать активным, т.е. отменить значение disabled по умолчанию.
Тогда в списке можно будет выбрать нужное значение на самой вебстранице

.

@Авраменко Алексей · 29.12.2008, 00:51 **[ТС]**

Решение нашел, тему можно считать закрытой!
Спасибо всем кто хотел помочь

Если будут другие варианты, пишыте.
Вот мой код:

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
63
64
65
66
  LONG pFramesCount = 0;
 
  IHTMLDocument2 *htm = 0;
  CppWebBrowser1->Document->QueryInterface(&htm);
  if(htm)
  {
      IHTMLFramesCollection2 *pFrames = 0;
      htm->get_frames(&pFrames);
      if(pFrames)
      {
        pFrames->get_length(&pFramesCount);
        if(pFramesCount < 2) pFramesCount = 0;
        VARIANT vFrame; 
        VARIANT ret; 
        vFrame.vt = VT_UINT; 
        for(LONG pFrameIndex = 0; pFrameIndex < pFramesCount; pFrameIndex++)
        { 
          vFrame.lVal = pFrameIndex;
          if(SUCCEEDED(pFrames->item(&vFrame, &ret)))
          {
            IHTMLWindow2 *pWindow = NULL;
            if(SUCCEEDED(ret.pdispVal->QueryInterface(IID_IHTMLWindow2, (LPVOID*)&pWindow)))
            {
              IHTMLDocument2 *pDoc = NULL;
              if(SUCCEEDED(pWindow->get_document(&pDoc)))
              {
                if(pDoc)
                {
                  IHTMLElementCollection *col = 0;
                  pDoc->get_all(&col);
                  if(col)
                  {
                    IDispatch *el_disp = 0;
                    col->item(TVariant(L"pole_1"), TVariant(0), &el_disp);
 
                    if(el_disp)
                    {
                      IHTMLElement *el = 0;
                      el_disp->QueryInterface(&el);
                      if(el)
                      {
                        el->setAttribute(L"value", TVariant("2"), 0);
                        el->Release();
                        el = 0;
                      }
                    el_disp->Release();
                    el_disp = 0;
                    }
                  col->Release();
                  col = 0;
                  }
                pDoc->Release();
                pDoc = 0;
                }
              pWindow->Release();
              pWindow = 0;
              }
            }
          }
        }
      pFrames->Release();
      pFrames = 0;
      }
  htm->Release();
  htm = 0;
  }

Данный код проходится по всем фреймам.
Т.е. если в нескольких фреймах будут одинаковие теги, значения будут изменены у всех.

Новые блоги и статьи Все статьи Все блоги /
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