Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как программно выбрать страну на веб страничке? 
:(
    Опции темы
eViperEA
Дата 29.4.2008, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Всем привет.
На страничке компонент похожий на TComboBox в делфи.. Вот его код
Код

 Your Country:
<select name="country" class="form">
<option value="none">--- Select Country ---</option>
<option value=1>United States</option>
<option value=2>Albania</option>
...
<option value=140>Romania</option>
<option value=141>Russia</option>
<option value=142>Rwanda</option>
</select><br /><br />

Я открываю страничку через TWebBrowser затем выполняю вот такой код..
Код

var 
  ovElements: OleVariant;
  i: Integer;
begin
ovElements := WebBrowser2.OleObject.Document.Forms.Item( 0 ).Elements;
   for i := 0 to ( ovElements.Length-1 ) do
   begin
      if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'option' ) then
      ovElements.Item( i ).Value := '141';
   end;

Но он не помогает в чем может быть проблема?
P/S 141 пробовал писать в '' и без них.. 
PM MAIL   Вверх
aktuba
Дата 29.4.2008, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38
Это часть формы, т.е. выбранные данные должны быть отправлены на сервер.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Letov
Дата 29.4.2008, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
eViperEA, aktuba прав. Выложи весь код формы. Скорее всего там есть кнопка отправки данных на сервер. И только после ее нажатия изменения вступят в силу. 


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
eViperEA
Дата 29.4.2008, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Весь код очень большой попробую выложитьего ключевые моменты..
Вот начало формы...
Код

<form action="Enter.php" name="Enter" method="post">

Ник, пароль...
Код

Login
<input type="text" name="username" size="25" maxlength="15" class="form" autocomplete="off" value="">
Pass
<input type="password" name="pass" size="25" class="form" autocomplete="off" value="">

Дальше идет тот самый <select name="country" class="form">
.. 
Кнопка..
Код

<input type=submit value="Enter"  name="Enter" class="form">

и окончание формы </form>
PM MAIL   Вверх
Letov
Дата 29.4.2008, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 4
Тогда пробуй выставлять значение языка и нажимать на кнопку отправки формы.


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
eViperEA
Дата 29.4.2008, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Если я нажимаю на кнопку то все сбрасывается и пешет ошибки на против незаполненных полей..
PM MAIL   Вверх
eViperEA
Дата 30.4.2008, 05:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Попробовал сохранить результат... (когда я выбираю страну..) вот что получил.. 
вместо
<option value=141>Russia</option>
получается 
<option value=141 selected>Russia</option>
попробовал написать код.. 
Код

try
      if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'option' )then
      if ( ovElements.item( i ).Value = '141' ) then
      ovElements.Item( i ).Value :='141 selected';
   except
   end;

Но он не работает(
Помогите пожалуйсто smile

Добавлено через 6 минут и 16 секунд
Может можно просто заменить этот тэг в TWebBrowser'e на мой.? Но как? smile 

Это сообщение отредактировал(а) eViperEA - 30.4.2008, 05:17
PM MAIL   Вверх
elementos
Дата 15.5.2008, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
eViperEA, адрес дай
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0812 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.