Уважаемые програмисты помогите пожалуйста добрым кодом.

Разбираюсь сейчас с TWebBrowser.
Как работать с объектами загруженной страницы я разобрался.
Для этого нужно знать название этого объекта. А вот как получить это название ума не приложу.
Уже ковыряюсь несколько недель. Складывается такое впечатление что никто не умеет.
Помогите пожалуйста получить список тэгов из TWebBrowser, чтобы выбрать подходящий.

Извлекаете из TWebBrowser Document. Из полученного IDispatch извлекаете IHTMLDocument3  (через QueryInterface). Затем смотрите сюда, там вас будут интересовать в первую очередь объекты и их проперти

xvr,  немного не понятно. Насколько я понял чтобы IDispatch получить нужно знать точное имя.
 Или я что-то делаю не так? 

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(WB->Document)
    {
        TComInterface<IHTMLDocument2> pDocument;
        WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);

        if(pDocument)
        {
            TComInterface<IHTMLElementCollection> pColl;
            pDocument->get_all(&pColl);

            if(pColl)
            {
               TComInterface<IDispatch> pDisp;
                pColl->item(TVariant("cat_id[spec]"), TVariant(0), &pDisp);

                if(pDisp)
                {
                    TComInterface<IHTMLElement> pElement;
                    pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);

                    if(pElement)
                    {
                     s="0.50";
                     pElement->put_outerText(s.c_bstr());
                                        }
                                }
                 }
              }
    }
}
//---------------------------------------------------------------------------

Так, за исключением того, что элемент с именем cat_id[spec] врядли существует.
Имена можно извлечь из IHTMLElementCollection (создать энумератор и перебрать всю коллекцию)

Такой элемент на страничке действительно существует. А в сторону IHTMLElementCollection сейчас покопаю. 
Думал что вытянуть текст html будет попроще.

xvr,  в get__newEnum() ничего полезного не нашёл, да и в  IHTMLElementCollection всё стандартно - знаеш имя - получаеш доступ.    

Попробуй через индекс. Имя все же какое то странное   
А на каком из if'ов ломается?

Этот код проходит нормально. Но он имеет смысл только если я перед этим скачаю страничку например стандартными функцыями wininet и найду этот самый cat_id[spec] (вместо spec могут быть другие обозначения а cat_id[ - константа), а я хочу за один проход загрузить страничку, получить html, найти cat_id[ и дальше уже с ним работать.

Тогда нужно перебрать все элементы (вместо имени подавать их номер в IHTMLElementCollection::item первым параметром). Общее количество элементов возвращает IHTMLElementCollection::get_length). У возвращенных элементов читать атрибут name или id

xvr, попробовал вот так.

//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
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;
                                       TComInterface<IHTMLElement> pElement;

             long l;
             pCollection->get_length(&l);

             for(int i = 0; i < l; i++)
               {
                pCollection->item(TVariant(i), TVariant(0), &pDisp);

                if( pDisp )
                {
                    
                    pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);

                    if( pElement )
                    {

                     pElement->get_id(&s);
                     Memo1->Lines->Add(s);

                    }
                }


               }



            }
        }
    }
}
//---------------------------------------------------------------------------

компилируется, запускается, но при следующем витке цикла вылетает:
---------------------------
Project1.exe
---------------------------
Assertion failed: intf==0, file c:\program files\codegear\rad studio\6.0\include\vcl\utilcls.h, line 2327
---------------------------
ОК   
---------------------------

а потом 

---------------------------
Project1.exe
---------------------------
Abnormal program termination
---------------------------
ОК   
---------------------------

и get_name вроде как нет.

xvr, спасибо большое, что столкнули меня с мёртвой точки.

Правиьный вариант вытягивающий HTML код:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(WB->Document )
   {

        TComInterface<IHTMLDocument2> pDocument;
        WB->Document->QueryInterface(IID_IHTMLDocument2, (LPVOID*)&pDocument);

        if( pDocument )
        {
            TComInterface<IHTMLElementCollection> pCollection;
            pDocument->get_all(&pCollection);

            if( pCollection )
            {

             long l;
             pCollection->get_length(&l);

             for(int i = 0; i < l; i++)
               {
                TComInterface<IDispatch> pDisp;
                pCollection->item(TVariant(i),TVariant(0), &pDisp);

                if( pDisp )
                 {
                    TComInterface<IHTMLElement> pElement;
                    pDisp->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement);

                   if( pElement )
                    {

                     pElement->get_innerHTML(&s);
                     Memo1->Lines->Add(s);

                    }
                 }

               }

            }
        }
    }
}

Вроде как работает. 
//--------------------------------------------------------------------------- 

Столкнулся с неожиданной проблемой!

Изменяю содержимое input с помощью pElement->put_InnerText(s.c_bstr());

Текст визуально меняется, но страница его не воспринимает. Я так понимаю нужно что-то ещё сделать чтобы страничка думала что с клавиатуры текст ввели, а что именно не знаю.   

Попробуй put_Value. InnerText это не совсем то для элементов ввода (input)

Нет к сожалению put_Value. Есть только InnerText и InnerHTML, но второй ничего не вводит.

Должен быть. Как выглядит input тэг на HTML странице?