Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.02;
Скачать: CL | DM;

Вниз

Автоматическое заполнение HTML форм   Найти похожие ветки 

 
TTWW_Ant ©   (2004-12-15 00:48) [0]

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

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


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

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


 
TTWW_Ant ©   (2004-12-15 01:40) [2]

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


 
Gero ©   (2004-12-15 07:19) [3]

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 23:11) [4]

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


 
TTWW_Ant ©   (2004-12-17 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);

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

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


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

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


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

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


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

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


 
TTWW_Ant ©   (2004-12-19 14:55) [9]

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



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

Текущий архив: 2005.01.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
14-1102541741
Piter
2004-12-09 00:35
2005.01.02
Вопросы по VMWare


1-1103402586
Raider
2004-12-18 23:43
2005.01.02
Текст в RichEdit снизу вверх.


6-1097533579
pepperok
2004-10-12 02:26
2005.01.02
SSH


14-1101890769
Nik8.
2004-12-01 11:46
2005.01.02
Внутреннее устройство Windows 2000


3-1102330209
StarCon
2004-12-06 13:50
2005.01.02
как использовать ParamByName в селекте ...in (:MyParam) ?