import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto para comunicação entre o SmartClient e o Componente TWebEngine através do protocolo WebSocket.
#include "TOTVS.CH" User Function TWebChannel() DEFINE DIALOG oDlg TITLE "Exemplo TWebSocket" FROM 180,180 TO 550,700 PIXEL // Prepara o conector WebSocket PRIVATE oWebChannel := TWebChannel():New() nPort := oWebChannel::connect() // Cria componente PRIVATE oWebEngine := TWebEngine():New(test:Content, 0, 0, 100, 100,, nPort) oWebEngine:bLoadFinished := {|self,url| conout("Termino da carga do pagina: " + url) } oWebEngine:navigate("http://totvs.com.br") oWebEngine:Align := CONTROL_ALIGN_ALLCLIENT ACTIVATE DIALOG oDlg CENTERED Return |
Protheus 11 , TOTVS Application Server