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

Вниз

Как заполнить поля открытой формы WB   Найти похожие ветки 

← →
hexen   (2005-03-25 16:07) [0]

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

---

← →
easy ©   (2005-03-25 22:39) [1]

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;

---

← →
lakris   (2005-03-30 02:06) [2]

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

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

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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.048 c