Buscar

TWebBrowser como clicar no botao do HTML

Código

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

procedure TFrmCND.ClicaBotao(var WebBrowserX:TWebBrowser; botao:string);
var FormItem,doc: 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 = botao then
          Doc.forms.item(i).elements.item(j).click;
        end;
     end;
  end;
 except
  MessageDlg('Erro ao clicar no botão: '+botao , mtError, [mbOK],0);
 end;
end;

//Usar

ClicaBotao(WebBrowser,'BotaoIncluir');

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: 5543 vezes

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