Fired when Debugger has started either Chromium or Node.js.
Fired when Debugger has started either Chromium or Node.js.
Visual Basic |
---|
Public Event OnDebuggerStarted( _ ByVal Debugger As WEBKITX_DEBUGGER _ ) |
Value | Description |
---|---|
DEBUGGER_CHROMIUM | Defines use of Chromium Debugger for WebKitX debugger commands and events. |
DEBUGGER_NODEJS | Defines use of node.js Debugger for WebKitX debugger commands and events. |
Private Sub WebKitX_OnCreate(ByVal Settings As WebKitXCEF3Lib.ISettings, CommandLineSwitches As String) On Error Resume Next With Settings .app_path = App.Path .accept_language_list = "es-CL,en-GB" .remote_debugging_port = 9999 .persist_session_cookies = 0 .persist_user_preferences = 0 .nodejs_auto_start = False .nodejs_debug_port = 9998 .nodejs_debugger_protocol = "inspector" .nodejs_executable = App.Path + "\etc\config\server\node.exe" .nodejs_modules_path = App.Path + "\etc\config\server\node_modules" .nodejs_command_line_arguments = " --stack-trace-limit=25 --interactive --report-compact --insecure-http-parser " .nodejs_terminate_on_debug_end = True End With CommandLineSwitches = CommandLineSwitches + " --no-proxy-server --disable-cache --disable-gpu-program-cache --disable-gpu-shader-disk-cache" CommandLineSwitches = CommandLineSwitches + " --disable-background-networking --disable-background-timer-throttling --disable-backgrounding-occluded-windows" CommandLineSwitches = CommandLineSwitches + " --disable-breakpad --disable-client-side-phishing-detection --disable-default-apps --disable-dev-shm-usage " CommandLineSwitches = CommandLineSwitches + " --disable-renderer-backgrounding --disable-sync --metrics-recording-only --no-first-run --no-default-browser-check" End Sub Private Sub WebKitX_OnDebuggerStarted(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER) On Error Resume Next If Debugger = DEBUGGER_CHROMIUM Then ClientDebuggerReady = True End If If Debugger = DEBUGGER_NODEJS Then ServerDebuggerReady = True LoadBreakPoints DEBUGGER_NODEJS End If LoadBreakPoints Debugger UpdateDebuggerStatus End Sub Private Sub WebKitX_OnLoadEnd() On Error Resume Next Caption = WebKitX.Document.Title PageLoaded = True UpdateDebuggerStatus End Sub Private Sub WebKitX_OnDebuggerTerminated(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER) On Error Resume Next If Debugger = DEBUGGER_CHROMIUM Then ClientDebuggerReady = False ElseIf Debugger = DEBUGGER_NODEJS Then ServerDebuggerReady = False End If End Sub Private Sub WebKitX_OnWebSocketError(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER, ByVal ErrorCode As Long, ByVal ErrorDescr As String) On Error Resume Next If Debugger = DEBUGGER_CHROMIUM Then ClientDebuggerReady = False ElseIf Debugger = DEBUGGER_NODEJS Then ServerDebuggerReady = False End If End Sub Private Sub WebKitX_OnDebuggerPaused(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER) On Error Resume Next If Debugger = DEBUGGER_CHROMIUM Then ClientPaused = True ElseIf Debugger = DEBUGGER_NODEJS Then ServerPaused = True End If UpdateDebuggerStatus End Sub Private Sub WebKitX_OnDebuggerResumed(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER) On Error Resume Next If Debugger = DEBUGGER_CHROMIUM Then ClientPaused = False ElseIf Debugger = DEBUGGER_NODEJS Then ServerPaused = False End If UpdateDebuggerStatus End Sub Private Sub WebKitX_OnDebuggerBreakpointHit(ByVal Debugger As WebKitXCEF3Lib.WEBKITX_DEBUGGER, _ ByVal URL As String, ByVal ScriptID As String, ByVal CallFrameID As String, _ ByVal Line As Long, ByVal Col As Long, ByVal Exception As String, _ ByVal JSON As String) On Error Resume Next frm_Designer.Editor.CallByNameAsync "OnDebuggerBreakpointHit", Array(Debugger, URL, ScriptID, CallFrameID, Line, Col, Exception) UpdateDebuggerStatus End Sub Private Sub WebKitX_OnConsoleMessage(ByVal ConsoleMessage As String, ByVal Source As String, ByVal Line As Long) On Error Resume Next frm_Designer.Editor.CallByNameAsync "OnDebuggerConsoleMessage", Array(ConsoleMessage, Source, Line) End Sub Private Sub WebKitX_OnError(ByVal ErrorCode As Long, ByVal ErrorDescr As String) On Error Resume Next frm_Designer.Editor.CallByNameAsync "OnDebuggerError", Array(ErrorDescr, ErrorCode) End Sub