Buscar

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);

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 20/08/10
Por: Lincoln Mendonca Ferreira
Visualizada: 6307 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009