VPF::WebBrowser получить даные тега <label>

leonid4244

Дата 18.2.2010, 02:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Здравствуйте

Есть html код тега:

<label style="vertical-align:middle;" for="123">привет</label>

на на странице.

Как мне используя WebBrowser получить полные данные об этом теги : style="vertical-align:middle;" , for="123"

Чтобы не терять времени сразу скажу какие методы я уже использовал

Код


procedure TForm1.Button1Click(Sender: TObject);
var ovElements:OleVariant;
    Document: IHtmlDocument2;
    i:integer;
begin

Document := WebBrowser1.Document as IHtmlDocument2;  //label

ovElements:= WebBrowser1.OleObject.document.All.tags('label');

for i := 0 to  ovElements.Length-1 do
     begin
     
    //Неработает выбевает ошибку
    Memo1.Lines.Add(IntToStr(i)+'-'+ ovElements.item(i).for );
     
   //Неработает выбевает ошибку
    Memo2.Lines.Add(IntToStr(i)+'-'+ ovElements.item(i).style );
     
    //Единственое что работает получаю текст "привет" 
    Memo2.Lines.Add(IntToStr(i)+'-'+ ovElements.item(i).InnerText );
    end;                                                         
end;

Подскажите пожалуйста как наиболее простым способом можна получить данные style="vertical-align:middle;" , for="123"

С учетам того что в страница должна загружаться в WebBrowser1 обязательно а оператор Get или Post использовать не хочется больно страница большая. Может можно получить Html код отдельного тега.

leonid4244

Дата 18.2.2010, 04:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 16.6.2008

Репутация: нет
Всего: нет

Все нашел

сделал так :

Код


procedure TForm1.Button2Click(Sender: TObject);
var ovElements:OleVariant;
    Document: IHtmlDocument2;
    i:integer;
begin
Document := WebBrowser1.Document as IHtmlDocument2;  
ovElements:= WebBrowser1.OleObject.document.All.tags('label');
for i := 0 to  ovElements.Length-1 do
     begin
     Memo1.Lines.Add(IntToStr(i)+'-'+ ovElements.item(i).OuterHtml );
     end;                                                         
end;

Если есть другие предложения пишите smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »