Главная » Delphi » Интернет и сети » Как заполнить поля открытой формы WebBrowser?

Как заполнить поля открытой формы WebBrowser?

01:44
Как "подсунуть" значения в поля уже открытой в WebBrowser HTML-формы?

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;


http://www.delphimaster.ru/cgi-bin/forum.pl?id=1111756038&n=4