Заполнение полей на сайте

@maest · Регистрация: 11.11.2010

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

Делаю по следующему примеру:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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));
      }
    }
  }
}

Компилятор выдает ошибки. Что нужно подключить?

@Kabak · 01.10.2014, 15:38

Я и так пробовал - pElementColl->Release(); - в конце if который проверяет pElementColl на валидность. Не работает.

Работает только если делать без циклов по нажатию кнопки,- при выходе из события нажатия кнопки само всё освобождается и не важно пользовался Release() или нет. А как только пытаешься в цикле по элементам пробежаться не даёт присваивать &pDisp новое значение, даже если не делать pElementColl->Release();

Как корректно в цикле перебрать всё возвращённые элементы из коллекции ?

Добавлено через 23 минуты
В цикле что ли плодить :

C++
1
2
    TComInterface<IHTMLElement> pElement;
    TComInterface<IDispatch> pDisp;

А по завершению события формы само удалится.

Добавлено через 19 минут
Understanding C++Builder xxx_TLB.h files

Судя по ссылке выше, интерфейсы нужно объявлять по мере их необходимости и они сами чистятся автоматически.
Если я не прав, поправьте меня, пожалуйста.

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
  if( CppWebBrowser1->Document )
    {
    TComInterface<IHTMLDocument3> pDocument;
      CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,
                                        (LPVOID*)&pDocument);
  if( pDocument )
    {
    TComInterface<IHTMLElementCollection> pElementColl;
    pDocument->getElementsByTagName(L"",&pElementColl);
        if (pElementColl)
        {
         long j;
         pElementColl->get_length(&j);
            for (long i = 0; i < j; ++i) {
 
            TComInterface<IDispatch> pDisp;
            pElementColl->item(TVariant(i),TVariant(0),&pDisp);
              if ( pDisp ) {
                 TComInterface<IHTMLElement> pElement;
                 pDisp->QueryInterface(IID_IHTMLElement,(LPVOID*)&pElement);
                    if( pElement )
                    {
                        pElement->click();
                    }
              }
           }
        }
    }
   }

Добавлено через 4 часа 42 минуты
Неужели никто элементы формы не перебирал в цикле ?

@volvo · 01.10.2014, 15:41

Да перебирали, перебирали, когда другими способами нельзя было добраться. Ну ты попробовал свой код? Работает? Ошибки не выдает? Вот и прекрасно. А теперь замени

C++
1
2
3
      CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,
                                        (LPVOID*)&pDocument);
  if( pDocument )

на

C++
1
2
      if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3,
                                        (LPVOID*)&pDocument)))

(и во втором случае вызова QueryInterface - по аналогии), будет еще лучше...

@Kabak · 01.10.2014, 16:06

В том-то и дело, что утечки памяти непредсказуемые идут

А разница в чём с заменой на if(SUCCEEDED(... ?

Можно пример кода,пожалуйста ? -Как именно освобождали память, или как правильно пользоваться интерфейсом , если коллекцию элементов в цикле шерстить ?

@volvo · 01.10.2014, 16:37

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

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@Kabak 159 / 145 / 14 Регистрация: 03.02.2012 Сообщений: 788 Записей в блоге: 1
	01.10.2014, 16:06
	В том-то и дело, что утечки памяти непредсказуемые идут А разница в чём с заменой на if(SUCCEEDED(... ? Можно пример кода,пожалуйста ? -Как именно освобождали память, или как правильно пользоваться интерфейсом , если коллекцию элементов в цикле шерстить ? 0

@volvo Супер-модератор 33479 / 21577 / 8250 Регистрация: 22.10.2011 Сообщений: 37,040 Записей в блоге: 12
	01.10.2014, 16:37
	Пример я приводил выше, если ты не заметил... Утечек не было. 1

Опции темы