Форум 3DNews
Вернуться   Форум 3DNews > Программирование > Программирование

Ответ Создать новую тему
Опции темы Опции просмотра
Непрочитано 14.09.2008, 23:15   [включить плавающее окно]   #1
AK3000
Мужской Общительный
Автор темы
 
Аватар для AK3000
 
Регистрация: 24.05.2006
Адрес: Ростов-на-Дону
Работа с компонентом TWebBrowser в Delphi

Кто-нибудь умеет через этот компонент нажимать на checkbox в загруженной странице?
Пробовал вот таким кодом, но не получилось:
procedure TForm1.ToolButton7Click(Sender: TObject);
var
ovElements : OleVariant;
i, j : Integer;
FormItem : Variant;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
ShowMessage(IntToStr(WebBrowser1.OleObject.Document.forms.item.Length));
{ShowMessage(IntToStr(ovElements.Length - 1));
for i := 0 to (ovElements.Length - 1) do
if //(ovElements.item(i).tagName = 'INPUT') and
(ovElements.item(i).type = 'Checkbox') then
ovElements.item(i).Click;}
For I := 0 to WebBrowser1.OleObject.Document.forms.item.Length - 1 do
Begin
FormItem := WebBrowser1.OleObject.Document.forms.Item(i);
For j := 0 to FormItem.Length - 1 do
Begin
Try
If FormItem.Item(j).type = 'Checkbox' then
FormItem.Item(j).Click;
Except
Exit;
End;
End;
End;
end;
__________________
Жизнь слишком коротка - наслаждайся пока есть время!
AK3000 вне форума  
Конфигурация ПК
Ответить с цитированием
Непрочитано 30.09.2008, 14:01   [включить плавающее окно]   #2
Phodopus
Мужской Продвинутый
 
Регистрация: 05.10.2005
Адрес: Санкт-Петербург
Он вообще чекбоксы находит?
Phodopus вне форума  
Ответить с цитированием
Непрочитано 14.10.2008, 19:40   [включить плавающее окно]   #3
AK3000
Мужской Общительный
Автор темы
 
Аватар для AK3000
 
Регистрация: 24.05.2006
Адрес: Ростов-на-Дону
По-мойму да... хотя не уверен. По-мойму находит но не кликает.
__________________
Жизнь слишком коротка - наслаждайся пока есть время!
AK3000 вне форума  
Конфигурация ПК
Ответить с цитированием
Ответ Создать новую тему

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 13:01. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot
Copyright © 2000-2017 3DNews. All Rights Reserved.
Администрация 3DNews требует соблюдения на форуме правил и законов РФ
Серверы размещены в Hostkey