VPF::Заполнение выпадающих полей на форме

morpheyushka

Дата 9.7.2009, 17:58 (ссылка)

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

Загрузка ...

Зеленый человек

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

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

Есть выпадающее поле:

Код


<select name="cityAreaId" size="1" disabled="disabled" style="width:200px;background-color:#DDDDDD;" class="mainfix"><option value="0">--------------------</option>
            <option value="46">Брестская</option>
<option value="5">Винницкая</option>
<option value="23">Волынская</option>
<option value="3">Днепропетровская</option>
<option value="6">Донецкая</option>
<option value="7">Житомирская</option>

<option value="24">Закарпатская</option>
<option value="8">Запорожская</option>
<option value="9">Ивано-Франковская</option>
<option value="1">Киевская</option>
<option value="10">Кировоградская</option>
<option value="11">Крым</option>
<option value="16">Луганская</option>
<option value="2">Львовская</option>
<option value="26">Молдова</option>

<option value="12">Николаевская</option>
<option value="13">Одесская</option>
<option value="14">Полтавская</option>
<option value="15">Ровенская</option>
<option value="17">Сумская</option>
<option value="20">Тернопольская</option>
<option value="4">Харьковская</option>
<option value="21">Херсонская</option>
<option value="22">Хмельницкая</option>

<option value="18">Черкасская</option>
<option value="19">Черниговская</option>
<option value="25">Черновицкая</option></select>

У меня есть значение, например, Винницкая. Как мне по ней получить значение value или установить выбор по тексту?

--------------------

Спасибо делается вот так!!!

Keeper89

Дата 9.7.2009, 19:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Какое отношение это имеет к Delphi?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

morpheyushka

Дата 10.7.2009, 11:04 (ссылка)

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

Загрузка ...

Зеленый человек

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

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

Цитата(Keeper89 @ 9.7.2009, 19:35

)

Какое отношение это имеет к Delphi?

Прямое

есть такая процедурка:

Код


function FillForm(aWebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //no form on document
  if aWebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
  //count forms on document
  for I := 0 to aWebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := aWebBrowser.OleObject.Document.forms.Item(I);
      for j := 0 to FormItem.Length - 1 do
        begin
          try
          //when the fieldname is found, try to fill out
          if FormItem.Item(j).Name = FieldName then
            begin
              FormItem.Item(j).Value := Value;
              Result := True;
            end;
          except
            Exit;
          end;
        end;
    end;
end;

Так вот она отлично все заполняет...если знать поле value. А его не знаю - я знаю только текст между тегами <option>. Вот и решил спросить тут - как можно определить значение value в теге, зная текст в этих тегах средствами компонента WebBrouser

Теперь понятно?

--------------------

Спасибо делается вот так!!!

Chonga

Дата 13.7.2009, 02:08 (ссылка)

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

Загрузка ...

Новичок

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

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

.innerTEXT, если ничего не путаю, как раз и есть текст промеж тэгов.

morpheyushka

Дата 13.7.2009, 09:52 (ссылка)

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

Загрузка ...

Зеленый человек

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

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

Цитата(Chonga @ 13.7.2009, 02:08

)

.innerTEXT, если ничего не путаю, как раз и есть текст промеж тэгов.

именно

Код


WebBrowser.OleObject.Document.All.Item(n).InnerText

--------------------

Спасибо делается вот так!!!

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