Skip to main content
2 de 2
adicionou 100 caracteres ao conteúdo
Paz
  • 3,2mil
  • 1
  • 15
  • 39

É possível detectar o click deste botão na pagina web (html) e abrir por exemplo um form do delphi?

Sim, como citei nos comentários isso pode ser feito através de uma interação do front-end chamando uma API (através de uma requisição http) do back-end da sua aplicação web (e em questão de performance é recomendado fazer desse jeito), porém como você não postou nenhum código e para evitar uma implementação demorada para você eu vou usar as requisições e recursos do Delphi e do TChromiumnesse exemplo:


Supondo que sua página html seja parecida com essa:

<html>
  <body>
     /...
     <button id="botao" type="button">Botão</button>
     /...
  </body>
</html>

Você deve identificar o elemento que deseja acompanhar com a propriedade id.
Como você pode notar, o botão possui a propriedade id com o valor "botao", ela será usada para identificar esse botão.
Agora faremos um Listener para o evento do do click do botão, farei isso através do evento que detecta quando a página carregou, o OnLoadEnd.
Então quando a pagina for carregada, o evento OnLoadEnd será disparado, eu varrerei o DOM da página em busca do elemento com o id botao e anexarei o Listener para o click do botão.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cefvcl, ceflib;

type
  TForm1 = class(TForm)
    Chromium1: TChromium;
    procedure FormCreate(Sender: TObject);
    procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
      const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chromium1.Load('C:\File.html'); //carregando a página
end;

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  if Assigned(frame) then //Se acabou o carregamento da pagina executamos isso
    frame.VisitDomProc(OnExploreDOM); //chamada de evento OnExploreDOM para acharmos nosso botão
end;

procedure OnExploreDOM(const ADocument: ICefDomDocument);
var
  DOMNode: ICefDomNode;
begin
  // aqui tentaremos achar o elemento que você identificou com o id
  DOMNode := ADocument.GetElementById('botao');
  // e se acharmos o evento que queremos será anexado
  if Assigned(DOMNode) then
    DOMNode.AddEventListenerProc('click', True, BotaoClickEvent);
end;

procedure BotaoClickEvent(const AEvent: ICefDomEvent);
begin
  Form2.FormOpen; //aqui você indica o form que quer abrir e  
                  //como deseja abrir (Show, ShowModal, Open, etc.)
end;

end.

OBS: É válido lembrar que você pode utilizar essas pequenas mudanças no seu HTML para acompanhar qualquer elemento da página e é claro, você pode usar quantos Listeners quiser para acompanhar as interações com diversos elementos da página de uma vez só.

Paz
  • 3,2mil
  • 1
  • 15
  • 39