1

Eu tenho o seguinte código:

procedure TMainForm.ValidarAcesso;
var
  doc: variant;
  element: variant;
begin
  doc := coHTMLDocument.Create as IHTMLDocument2;
  doc.write(memHtml.Text);
  try
    element := doc.getElementById('theElementId');
    if VarToStr(element) <> '' then
      ShowMessage(element.innerText)
    else
      ShowMessage('Acesso realizado com sucesso!');
  except
  end;
end;

Crio um COM HTML Document e carrego o fonte Html de uma página nele e então procuro por um elemento html usando getElementById.
Isso Funciona!

Mas, como faço para adicionar um controle para ver se o elemento realmente existe/foi encontrado na página/html?

Quando o elemento não é encontrado, ao passar o mouse por cima da variável element, o Delphi mostra o valor $00000000.

Já testei:

VarToStr(element) <> ''
element <> $00000000
VarType(element) ...
element <> null
element <> nil

Mas nenhum deles funcionou!

3
  • Em javascript(no caso do WebView) uma variável nula é undefined, tente isso ou o null do Delphi, acho que é Nil né? (Obs: Não conheço praticamente nada de Delphi. só estou tentando ajudar) Commented 9/08/2014 às 3:13
  • Ok. É que como se tratava de uma nova tag acreditei que você tinha se enganado, pois eu todas as linguagens que eu conheço, o componente de Web é chamado de WebView. Bom saber que resolveu seu problema. Commented 9/08/2014 às 16:21
  • Já testou o método assigned?
    – Guill
    Commented 4/11/2014 às 13:26

1 Resposta 1

1

Exemplo encontrado na web e que funcionou:

if Assigned(TVarData(element).VPointer) then
  ShowMessage(element.innerText)
else
  ShowMessage('Acesso realizado com sucesso!');

Você deve fazer log-in para responder a esta pergunta.