Buscar por:

TWebBrowser como preencher campo text do HTML

Código

{LINCOLN MENDONÇA FERREIRA - prudenlex@hotmail.com}

procedure PreencheCampos(var WebBrowserX:TWebBrowser; campo,dados:string);

var doc,FormItem: Variant; Field: Variant; FieldName: String; H,I,J: Integer;

begin

try

for H := 0 to webbrowserX.OleObject.Document.Frames.Length -1 do

 begin

  doc:=WebBrowserX.OleObject.Document.Frames.item(H).document;

  for I := 0 to doc.forms.Length - 1 do

   begin

    FormItem := doc.forms.Item(I);

     for j := 0 to FormItem.Length - 1 do

      begin

       Field := FormItem.Item(j);

       FieldName := Field.Name; 

       if FieldName = campo then

        Field.Value := dados;

      end;

   end;

 end;

 except

  MessageDlg('Erro ao preencher o campo: '+campo+#13+' com os dados '+dados, mtError, [mbOK],0);

 end;

end;

//Usar 

PreencheCampos(WebBrowser,'CGCCEI',CpfCnpj1.Text);