| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Заполнение html-форм

Tiberius ©   (2006-08-04 23:15:00) 

Подскажите как организовать заполнение форм в WebBrowser

---

Vlad Oshin   (2007-03-06 14:02:00) [1]

> А вот если бы пример, как выбрать пункт меню в выпадающем
> списке на форме. Был бы очень благодарен.

я написал просто
 // выбор семейного статуса
 if (HTMLInputElement(Coll.item(i,varEmpty)).name='FRM_VISA_SINGLE_FORM_N.DEFAULT.MA T_STA.01')
  then begin
     if HusbandName<>'' then begin
  HTMLInputElement(Coll.item(i,varEmpty)). outerHTML:='<SELECT size=1 name=FRM_VISA_SINGLE_FORM_N.DEFAULT.MAT_STA.01>'+
  ' <OPTION value=0 а тут на страничке у них>Select Marital Status<OPTION value=1>SINGLE<OPTION value=2 selected>MARRIED<OPTION value=3>'+
  'DIVORCED<OPTION value=4>WIDOW<OPTION value=5>DECEASED<OPTION value=6>UNSPECIFIC<OPTION value=7>CHILD</OPTION></SELECT>';
                             end
т.е. выбранное.. ээ.. просто переписываем элемент так, чтоб по умолчанию было нужное уже выбрано.

---

chentsov_a   (2007-03-01 07:27:00) [2]

Да верно. Недоразобрался сперва.

---

DiamondShark   (2007-02-19 15:30:00) [3]

> А что если надо заполнить элемент textarea?
> Как быть? Ведь нет у него свойства Value

у него есть свойство value

---

chentsov_a   (2007-02-16 16:38:00) [4]

А что если надо заполнить элемент textarea?
Как быть? Ведь нет у него свойства Value

---

SpellCaster   (2006-12-18 14:43:00) [5]

> [5] integerr   (17.12.06 12:51)

Я первый ;)))

---

integerr   (2006-12-17 12:51:00) [6]

А не легче сразу посылать post-запрос с нужными значениями?
а если потом откриваетса форма где нужно нажать кнопку подтверждения.

---

SpellCaster   (2006-12-15 14:08:00) [7]

А не легче сразу посылать post-запрос с нужными значениями?

---

Tarass   (2006-12-14 21:27:00) [8]

А вот если бы пример, как выбрать пункт меню в выпадающем списке на форме. Был бы очень благодарен.

---

Tiberius   (2006-08-05 23:44:00) [9]

2 easy:
Большое спасибо!

---

easy   (2006-08-05 16:25:00) [10]

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('ya.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 WebForm:OleVariant;
begin
 while WebBrowser1.Busy do begin
   Application.ProcessMessages;
   sleep(100);
 end;
 WebForm:= WebBrowser1.OleObject.document.forms.item('web');
 WebForm.text.value:='TWebbrowser';
 WebForm.submit();
end;

---

Наверх