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!
undefined
, tente isso ou onull
do Delphi, acho que éNil
né? (Obs: Não conheço praticamente nada de Delphi. só estou tentando ajudar)assigned
?