F�rum pegando campo com webbrowser #553511

08/05/2016

Boa tarde companheiros, estou a uns dias tentando pegar um campo de uma p�gina web pra ser preenchido por um edit, mas estou enfrentando algumas dificuldades, tentei pegar o campo com esse c�digo

webbrowser6.OleObject.Document.All.tags('input').item('user').value:='edit2.text';
  webbrowser6.OleObject.Document.All.tags('input').item('pass').value:= '

mas s� que da acess violation, at� porque o id do campo est� em uma div e n�o em um input, e outra na mesma linha onde tem o id tamb�m tem classes, eu gostaria que alguem me ajudasse a pegar esse campo, vale lembrar tamb�m que tenho uma fun��o pra pegar e clicar em um bot�o de uma p�gina que s� tenha classe, tentei pegar o campo com essa fun��o e tamb�m n�o consegui, a fun��o � essa

 unction  TForm1.GetElementById(const Doc: IDispatch; const Id: string): IDispatch;
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Body: IHTMLElement2; // document body element
Tags: IHTMLElementCollection; // all tags in document body
Tag: IHTMLElement; // a tag in document body
I: Integer; // loops thru tags in document body
begin
Result := nil; // Check for valid document: require IHTMLDocument2 interface to it
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document'); // Check for valid body element: require IHTMLElement2 interface to it
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('Can''t find <body> element'); // Get all tags in body element ('*' => any tag name)
Tags := Body.getElementsByTagName('*'); // Scan through all tags in body
for I := 0 to Pred(Tags.length) do
begin // Get reference to a tag
Tag := Tags.item(I, EmptyParam) as IHTMLElement; // Check tag's id and return it if id matches
if AnsiSameText(Tag.ClassName, Id) then
begin
Result := Tag;
Break;
end;
end;
end;

var
Elem: IHTMLElement;
begin
Elem := GetElementById(WebBrowser1.Document, 'sendButton') as IHTMLElement;
  if Assigned(Elem) then
  Elem.Click;
end;

Se algu�m poder me ajudar agrade�o desde j�, obrigado.

Alex

Curtir t�pico

+ 0

Responder