Форум: "Сети";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

Заполнение WEB-форм   Найти похожие ветки 

← →
oleg_SYS ©   (2004-07-25 21:49) [0]

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

---

← →
gek ©   (2004-07-26 07:37) [1]

initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

---

← →
oleg_SYS ©   (2004-07-26 09:15) [2]

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

---

← →
easy ©   (2004-07-26 13:57) [3]

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-27 01:00) [4]

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

---

← →
easy ©   (2004-07-27 13:27) [5]

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-28 07:32) [6]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c