|
26 | 26 | ; Global objects |
27 | 27 | Global $_g_bNetWebView2_DebugInfo = True |
28 | 28 |
|
| 29 | +Global Enum _ |
| 30 | + $NETWEBVIEW2_ERR__INIT_FAILED, _ |
| 31 | + $NETWEBVIEW2_ERR__PROFILE_NOT_READY, _ |
| 32 | + $NETWEBVIEW2_ERR___FAKE_COUNTER |
| 33 | + |
29 | 34 | Global Enum _ ; $NETWEBVIEW2_MESSAGE__* are set by __NetWebView2_Events__OnMessageReceived() |
30 | 35 | $NETWEBVIEW2_MESSAGE__NONE, _ ; UDF setting - not related directly to API REFERENCES |
31 | 36 | $NETWEBVIEW2_MESSAGE__INIT_FAILED, _ |
@@ -155,8 +160,13 @@ Func _NetWebView2_Initialize($oWebV2M, $hGUI, $s_ProfileDirectory, $i_Left = 0, |
155 | 160 | Local $iInit = $oWebV2M.Initialize(($hGUI), $s_ProfileDirectory, $i_Left, $i_Top, $i_Width, $i_Height) |
156 | 161 | If @error Then Return SetError(@error, @extended, $iInit) |
157 | 162 |
|
| 163 | + Local $iMessage |
158 | 164 | Do ; Wait for the engine to be ready before navigating |
159 | 165 | Sleep(50) |
| 166 | + $iMessage = __NetWebView2_LastMessageReceived($oWebV2M) |
| 167 | + If $iMessage = $NETWEBVIEW2_MESSAGE__INIT_FAILED Or $iMessage = $NETWEBVIEW2_MESSAGE__PROFILE_NOT_READY Then |
| 168 | + Return SetError($NETWEBVIEW2_ERR__INIT_FAILED, @extended, '') |
| 169 | + EndIf |
160 | 170 | Until $b_LoadWait And $oWebV2M.IsReady |
161 | 171 |
|
162 | 172 | ; WebView2 Configuration |
@@ -1124,17 +1134,18 @@ Volatile Func __NetWebView2_Events__OnMessageReceived($oWebV2M, $hGUI, $sMsg) |
1124 | 1134 | $hGUI = HWnd("0x" & Hex($hGUI, 16)) |
1125 | 1135 | Local Const $s_Prefix = "[NetWebView2Lib:EVENT: OnMessageReceived]: GUI:" & $hGUI |
1126 | 1136 |
|
1127 | | - Local $iSplitPos = StringInStr($sMsg, "|") |
| 1137 | + #Region ; Message parsing |
| 1138 | + Local $iSplitPos = StringSplit($sMsg, "|") |
1128 | 1139 | Local $sCommand = $iSplitPos ? StringStripWS(StringLeft($sMsg, $iSplitPos - 1), 3) : $sMsg |
1129 | 1140 | Local $sData = $iSplitPos ? StringTrimLeft($sMsg, $iSplitPos) : "" |
1130 | 1141 | Local $aParts |
1131 | 1142 |
|
1132 | 1143 | Local Static $sCommand_static = '' |
1133 | | - |
1134 | | - If Not @Compiled And $sCommand_static <> $sCommand Then |
1135 | | -;~ ConsoleWrite('TEST IFNC: ' & $s_Prefix & ' @SLN=' & @ScriptLineNumber & ' ' & $sCommand & ' Data=' & (StringLen($sData) > 120 ? StringLeft($sData, 120) & "..." : $sData) & @CRLF) ; FOR DEV TESTING ONLY |
| 1144 | + If Not @Compiled And $sCommand_static <> $sCommand Then ; show the log in non compiled - for DEV only |
| 1145 | + ConsoleWrite('TEST IFNC: ' & $s_Prefix & ' @SLN=' & @ScriptLineNumber & ' ' & $sCommand & ' Data=' & (StringLen($sData) > 120 ? StringLeft($sData, 120) & "..." : $sData) & @CRLF) ; FOR DEV TESTING ONLY |
1136 | 1146 | $sCommand_static = $sCommand |
1137 | 1147 | EndIf |
| 1148 | + #EndRegion ; Message parsing |
1138 | 1149 |
|
1139 | 1150 | Switch $sCommand |
1140 | 1151 | Case "WINDOW_RESIZED" |
@@ -1281,7 +1292,7 @@ Volatile Func __NetWebView2_Events__OnMessageReceived($oWebV2M, $hGUI, $sMsg) |
1281 | 1292 | ;~ __NetWebView2_LastMessageReceived($oWebV2M, $NETWEBVIEW2_MESSAGE__*) |
1282 | 1293 |
|
1283 | 1294 | Case Else |
1284 | | - __NetWebView2_Log(@ScriptLineNumber, $s_Prefix & (StringLen($sMsg) > 150 ? StringLeft($sMsg, 150) & "..." : $sMsg), 1) |
| 1295 | + __NetWebView2_Log(@ScriptLineNumber, $s_Prefix & " " & (StringLen($sMsg) > 150 ? StringLeft($sMsg, 150) & "..." : $sMsg), 1) |
1285 | 1296 | EndSwitch |
1286 | 1297 |
|
1287 | 1298 | EndFunc ;==>__NetWebView2_Events__OnMessageReceived |
@@ -1514,3 +1525,7 @@ Volatile Func __NetWebView2_Events__OnAcceleratorKeyPressed($oWebV2M, $hGUI, $oA |
1514 | 1525 | EndFunc ;==>__NetWebView2_Events__OnAcceleratorKeyPressed |
1515 | 1526 | #EndRegion ; NetWebView2Lib UDF - === EVENT HANDLERS === |
1516 | 1527 |
|
| 1528 | + |
| 1529 | + |
| 1530 | + |
| 1531 | + |
0 commit comments