Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Пример заполнения полей открытой формы в WebBrowser приведен ниже:


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;

 

Добавить комментарий


Защитный код
Обновить