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

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

Как заполнить поля открытой формы WB [D7, WinXP]

hexen ©   (2005-03-25 16:07:00) 

Как "подсунуть" значения в поля уже открытой в WebBrowser HTML-формы?
Вариант с IdHTTP.Post не проходит - сервер хочет получить данные именно от WebBrowser и ругается на несовпадение имен браузеров.

---

lakris   (2005-03-30 02:06:00) [1]

вообще подсунуть можно что угодно и как угодно

заполнение полей - уже показали

а какой броузер - в хеадере поста ставиться.

---

easy   (2005-03-25 22:39:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
const
 body_text = '<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr>'+
   '<td><input type="text" name="textfield"></td>'+
   '<td><textarea name="textarea"></textarea></td>'+
   '</tr><tr><td><textarea name="textarea2"></textarea></td>'+
   '<td><input type="text" name="textfield2"></td></tr><tr>'+
   '<td><input type="text" name="textfield3"></td>'+
   '<td><textarea name="textarea3"></textarea></td></tr></table>'+
   '<input name="button" type="button" value="Button">';
begin
 WebBrowser1.Navigate('about:'+body_text);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
var
 input_text,textareas:OleVariant;
 i:integer;
begin
 input_text:=WebBrowser1.OleObject.document.all.tags('INPUT');
 textareas:= WebBrowser1.OleObject.document.all.tags('TEXTAREA');
 for i:=0 to input_text.length-1 do
   if input_text.item(i).type='text' then
     input_text.item(i).value:=input_text.item(i).name;
 for i:=0 to textareas.length-1 do
   textareas.item(i).value:=textareas.item(i).name;
end;

---

Наверх