K210.ORG

Как "подсунуть" значения в поля уже открытой в 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