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

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

Автоматическое заполнение HTML форм [D6, WinXP]


TTWW_Ant ©   (2004-12-15 00:48:00) 

На форме есть WebBrowser в нём надо заполнить HTML форму автоматически

Собственно всё...
З.Ы. За пример просто расцелую


TTWW_Ant   (2004-12-19 14:55:00) [1]

Всё работает извиняюсь!!!
Сам глючу!!!


Gero   (2004-12-17 00:10:00) [2]

[6] не работает?


TTWW_Ant   (2004-12-17 00:05:00) [3]

Всмысле не работает (((


Gero   (2004-12-17 00:03:00) [4]

TextInput := Form.item('Some input name', 0) as IHTMLInputElement;


TTWW_Ant   (2004-12-17 00:00:00) [5]

Ругается на
TextInput := Form.item('Some input name', 0);
[Error] Main.pas(224): Incompatible types: 'IDispatch' and 'IHTMLInputElement'

Попробывал по смыслу:
TextInput.onselect := Form.item('Some input name', 0);

Ну работает (((

ЗЫ Где то я ламерю (((


TTWW_Ant   (2004-12-15 23:11:00) [6]

To Gero спасибо!!!
Как и обящал :*


Gero   (2004-12-15 07:19:00) [7]

uses MSHTML;

var
 Form: IHTMLFormElement;
 TextInput: IHTMLInputElement;
begin
 // Получаем ссылку на форму
 Form := (WebBrowser.DefaultInterface.Document as IHTMLDocument2).forms.item('Some form name', 0) as IHTMLFormElement;
 // А теперь обращаемся к любому ее элементу
 TextInput := Form.item('Some input name', 0);
 // И меням его свойства
 TextInput.value := 'Some text';
end;


TTWW_Ant   (2004-12-15 01:40:00) [8]

Ну например: вводился логин
При обращении к этой процедуре.


Gero   (2004-12-15 00:53:00) [9]

Что значит "автоматически"?


Наверх

Титульная страница Поиск, карта сайта Написать письмо