Ir para conteúdo
Fórum Script Brasil
  • 0

Receber string de retorno em HTML


geovanepc

Pergunta

Boa noite a todos.

Como faço pra receber uma string de retorno de uma página HTML. Estou usando WebBrowser.

Essa mensagem é enviada pelo formulário Html no momento em que se preenche o edit referente ao email do Gmail.

Quando já se encontra em uso no servidor de email, o Html mostra a mensagem:

"Alguém já escolheu esse nome de usuário. Tente outro."

URL: https://accounts.google.com/SignUp?service=mail&continue=https%3A%2F%2Fmail.google.com%2Fmail%2F<mpl=default

 

*------------------------------------------------------------------------------------------------------------------------------------------*

Neste código Html, encontrei o id da mensagem que pretendo receber (EmailAddressExistsError):

 <DIV id=EmailAddressExistsError style="DISPLAY: none">Este endereço de e-mail já corresponde a uma Conta do Google. <A href="https://accounts.google.com/ServiceLogin?continue=https%3A%2F%2Fmail.google.com%2Fmail%2F&amp;service=mail&amp;dsh=-4282766058618552450">Faça login</A> ou, se você esqueceu sua senha, <A href="https://accounts.google.com/RecoverAccount?continue=https%3A%2F%2FmIail.google.com%2Fmail%2F&amp;service=mail">redefina-a</A>. </DIV>

Agora como faço para repassar essa string (Resultado) do Html para um Label ou Edit no Delphi?

Uso assim para receber valores do Html: 

Label4.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('email').value;
Label5.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('pass').value;

Mas só funciona com os IDs de input.

Testei assim, mas não funcionou:

Label5.Caption:=WebBrowser1.OleObject.document.all.tags('input').item('EmailAddressExistsError').value;

 Gera o erro:

Access violation

*---------------------------------------------------------------------------------------------------------------------------*

Tentei assim:

Label14.Caption := WebBrowser1.OleObject.Document.all.Item('EmailAddressExistsError', 0).Value;

 Gera o erro:

Method 'Value' not supported by automation object.

*---------------------------------------------------------------------------------------------------------------------------*

Segue em anexo a imagem com o resultado do teste de email.

Um forte abraço.

 

Obrigado à todos.

 

Mensagem de Email existente.png

Editado por geovanepc
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...