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

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

Заполнение WEB-форм [D6, Win95/98]

oleg_SYS ©   (2004-07-25 21:49:00) 

Сделал, как указанно в этом примере:
http://www.swissdelphicenter.ch/en/showcode.php?id=1607
Но после запроса на ввод данных НИЧЕГО не происходит. Может, у меня IE корявый? Стоит 5.5.
Вот мои исходники:
http://classno.nm.ru/htmlform.zip
А это скомпилированный ексешник:
http://classno.nm.ru/htmlform.exe

---

oleg_SYS   (2004-07-28 07:32:00) [1]

easy, спасибо! Работает!

---

easy   (2004-07-27 13:27:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate(' http://easy.nm.ru/form.htm');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
documentall:OleVariant;
begin
documentall:=WebBrowser1.OleObject.document.all;
documentall.textfield1.value:='Текст №1';
documentall.textfield2.value:='Текст №2';
documentall.textfield3.value:='Текст №3';
documentall.menu1.selectedIndex:=1;
documentall.MyButton.click();
end;

---

oleg_SYS   (2004-07-27 01:00:00) [3]

//easy
Пишет "Method 'suchentext' not suported by automation object."

---

easy   (2004-07-26 13:57:00) [4]

procedure TForm1.Button2Click(Sender: TObject);
var
 documentall:OleVariant;
begin
 documentall:=WebBrowser1.OleObject.document.all;
 documentall.suchentext.value:='TWebbrowser';
 documentall.select.selectedIndex:=1;
 documentall.Submit.click();
end;

---

oleg_SYS   (2004-07-26 09:15:00) [5]

//gek
Нет, не помогло :(

---

gek   (2004-07-26 07:37:00) [6]

initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

---

Наверх