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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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

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