Merge pull request #41 from mlipok/PDVViewerExample

Pdv viewer example

Author: ioa747

examples/4-FileViewerDemo.au3

@@ -1,8 +1,30 @@
 #AutoIt3Wrapper_UseX64=y
 #include <GUIConstantsEx.au3>
+#include <SendMessage.au3>
+#include <StaticConstants.au3>
+#include <WinAPIGdi.au3>
+#include <WinAPISysWin.au3>
 #include <WindowsConstants.au3>
-
-#include "..\NetWebView2Lib.au3"
+#include <WinAPIGdi.au3>
+#include <WinAPIGdiDC.au3>
+#include <WinAPIHObj.au3>
+
+#SciTE4AutoIt3_Dynamic_Include_Path=;..\NetWebView2Lib.au3
+#SciTE4AutoIt3_Dynamic_Include=y                               ;dynamic.include=y/n
+#SciTE4AutoIt3_Dynamic_Include_whiletyping=y                   ;dynamic.include.whiletyping=y/n
+#SciTE4AutoIt3_Dynamic_Include_recursive_check=y               ;dynamic.include.recursive.check=n/y
+#SciTE4AutoIt3_Dynamic_Include_use_local_cache=y               ;dynamic.include.use.local.cache=n/y
+#SciTE4AutoIt3_Dynamic_Include_version=prod                    ;dynamic.include.version=prod/beta
+#SciTE4AutoIt3_Dynamic_Include_verboselevel=0                  ;dynamic.include.verbose.level=0/1/2 ;  0=disabled; 1=Timing per Function; 2=1+Total timing
+#SciTE4AutoIt3_Dynamic_Include_Always_Update_Local_File=n      ;dynamic.include.always.update.local.file=n/y
+#SciTE4AutoIt3_AutoItTools_debug=n                             ;debug.autoIttools=n/y
+#SciTE4AutoIt3_AutoItDynamicIncludes_debug=n                   ;debug.AutoItDynamicIncludes=n/y
+#SciTE4AutoIt3_AutoItAutocomplete_debug=n                      ;debug.autoitautocomplet=n/y
+#SciTE4AutoIt3_AutoItGotoDefinition_debug=n                    ;debug.autoitgotodefinition=n/y
+#SciTE4AutoIt3_AutoItIndentFix_debug=n                         ;debug.autoitindentfix=n/y
+
+;~ #include "..\NetWebView2Lib.au3"
+#include "..\NetWebView2Lib-org.au3"
 
 ; ==============================================================================
 ; WebView2 Multi-Channel Presentation Script^
@@ -20,13 +42,13 @@ Func Main()
 	#forceref $oMyError
 
 	; Create the UI
-	Local $iHeight = 400
-	$hGUI = GUICreate("WebView2 .NET Manager - Community Demo", 800, $iHeight, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPCHILDREN))
-	$idLabelStatus = GUICtrlCreateLabel("Status: Initializing Engine...", 10, $iHeight -20 , 880, 20)
+	Local $iHeight = 800
+	$hGUI = GUICreate("WebView2 .NET Manager - Demo: " & @ScriptName, 1100, $iHeight, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPCHILDREN))
+	$idLabelStatus = GUICtrlCreateLabel("Status: Initializing Engine...", 10, $iHeight - 20, 880, 20)
 	GUICtrlSetFont(-1, 9, 400, 0, "Segoe UI")
 
 	; Initialize WebView2 Manager and register events
-	Local $oWebV2M = _NetWebView2_CreateManager()
+	Local $oWebV2M = _NetWebView2_CreateManager("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/144.0.0.0 Safari/537.36 Edg/144.0.0.0", "", "--mute-audio")
 	$_g_oWeb = $oWebV2M
 	If @error Then Return SetError(@error, @extended, $oWebV2M)
 
@@ -37,43 +59,27 @@ Func Main()
 	Local $sProfileDirectory = @TempDir & "\NetWebView2Lib-UserDataFolder"
 	_NetWebView2_Initialize($oWebV2M, $hGUI, $sProfileDirectory, 0, 0, 0, 0, True, True, True, 1.2, "0x2B2B2B")
 
-	GUISetState(@SW_SHOW)
-	ConsoleWrite("! ===" & @ScriptLineNumber & @CRLF)
-	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 0)
+	GUISetState(@SW_SHOW, $hGUI)
+	WinSetOnTop($hGUI, '', True)
+
 	Local $s_PDF_FileFullPath
 
-	GUISetState(@SW_HIDE)
-	$s_PDF_FileFullPath = "file:///" & @ScriptDir & '/FileViewerDemo_1.pdf'
-	_NetWebView2_Navigate($oWebV2M, $s_PDF_FileFullPath)
-	ConsoleWrite("! ===" & @ScriptLineNumber & @CRLF)
-	Sleep(200)
-	GUISetState(@SW_SHOW)
-	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, $s_PDF_FileFullPath)
+	_WebView2_ShowPD($hGUI, $oWebV2M, "https://www.w3.org/WAI/ER/tests/xhtml/testfiles/resources/pdf/dummy.pdf")
 
-	GUISetState(@SW_HIDE)
-	$s_PDF_FileFullPath = "file:///" & @ScriptDir & '/FileViewerDemo_2.pdf'
-	_NetWebView2_Navigate($oWebV2M, $s_PDF_FileFullPath)
-	ConsoleWrite("! ===" & @ScriptLineNumber & @CRLF)
-	Sleep(200)
-	GUISetState(@SW_SHOW)
-	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, $s_PDF_FileFullPath)
+	_WebView2_ShowPD($hGUI, $oWebV2M, "https://www.w3.org/WAI/ER/tests/xhtml/testfiles/resources/pdf/dummy.pdf")
 
-	ConsoleWrite($oWebV2M.GetBrowserProcessId() & @CRLF)
-	ConsoleWrite($oWebV2M.GetInnerText() & @CRLF)
-	_NetWebView2_Navigate($oWebV2M, 'https://google.com')
-	MsgBox($MB_TOPMOST, @ScriptLineNumber, _NetWebView2_GetSource($oWebV2M))
-	MsgBox($MB_TOPMOST, @ScriptLineNumber, $oWebV2M.GetDocumentTitle())
-;~ 	$oWebV2M.Print()
-	ConsoleWrite($oWebV2M.WebViewSetFocus() & @CRLF)
-	$oWebV2M.LockWebView()
-	$oWebV2M.DisableBrowserFeatures()
+	$s_PDF_FileFullPath = "file:///" & @ScriptDir & '/FileViewerDemo_1.pdf'
+	_WebView2_ShowPD($hGUI, $oWebV2M, $s_PDF_FileFullPath)
+;~ 	MsgBox($MB_TOPMOST, " _WebView2_ShowPD() TEST #" & @ScriptLineNumber, $s_PDF_FileFullPath, 0, $hGUI)
 
-	ConsoleWrite("- " &	$oWebV2M.GetHtmlSource() & @CRLF)
-	ConsoleWrite("- " &	$oWebV2M.GetSelectedText() & @CRLF)
-	$oWebV2M.SetZoom(0.6);
+	$s_PDF_FileFullPath = "file:///" & @ScriptDir & '/FileViewerDemo_2.pdf'
+	_WebView2_ShowPD($hGUI, $oWebV2M, $s_PDF_FileFullPath)
+;~ 	MsgBox($MB_TOPMOST, " _WebView2_ShowPD() TEST #" & @ScriptLineNumber, $s_PDF_FileFullPath, 0, $hGUI)
 
+	$s_PDF_FileFullPath = "file:///" & @ScriptDir & '/FileViewerDemo_3.pdf'
+	_WebView2_ShowPD($hGUI, $oWebV2M, $s_PDF_FileFullPath)
 
-	MsgBox($MB_TOPMOST, "TEST #" & @ScriptLineNumber, 1)
+;~ 	MsgBox($MB_TOPMOST, " _WebView2_ShowPD() TEST #" & @ScriptLineNumber, $s_PDF_FileFullPath, 0, $hGUI)
 
 	; Main Loop
 	While 1
@@ -87,3 +93,62 @@ Func Main()
 
 	_NetWebView2_CleanUp($oWebV2M, $oJSBridge)
 EndFunc   ;==>Main
+
+Func _GetFirstChildWindowHWND($hWnd)
+	Local $aData = _WinAPI_EnumChildWindows($hWnd)
+	ConsoleWrite("! $aData[1][0] = " & $aData[1][0] & @CRLF)
+;~  _ArrayDisplay($aData, '_WinAPI_EnumChildWindows')
+
+	If Not @error And UBound($aData) Then Return $aData[1][0]
+
+	Return SetError(1, @extended, False)
+EndFunc   ;==>_GetFirstChildWindowHWND
+
+
+Func __WebView2_freezer($hMainGUI_Window, $hWebView2_Window)
+	Local $aPos = WinGetPos($hWebView2_Window)
+
+	Local $hPrev = GUISwitch($hMainGUI_Window)
+;~     Local $idPic = GUICtrlCreatePic('', $aPos[0], $aPos[1], $aPos[2], $aPos[3])
+	Local $idPic = GUICtrlCreatePic('', 0, 0, $aPos[2], $aPos[3])
+	Local $hPic = GUICtrlGetHandle($idPic)
+	GUISwitch($hPrev)
+
+	; Create bitmap
+	Local $hDC = _WinAPI_GetDC($hPic)
+	Local $hDestDC = _WinAPI_CreateCompatibleDC($hDC)
+	Local $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $aPos[2], $aPos[3])
+	Local $hDestSv = _WinAPI_SelectObject($hDestDC, $hBitmap)
+	Local $hSrcDC = _WinAPI_CreateCompatibleDC($hDC)
+	Local $hBmp = _WinAPI_CreateCompatibleBitmap($hDC, $aPos[2], $aPos[3])
+	Local $hSrcSv = _WinAPI_SelectObject($hSrcDC, $hBmp)
+	_WinAPI_PrintWindow($hWebView2_Window, $hSrcDC, 2)
+	_WinAPI_BitBlt($hDestDC, 0, 0, $aPos[2], $aPos[3], $hSrcDC, 0, 0, $MERGECOPY)
+
+	_WinAPI_ReleaseDC($hPic, $hDC)
+	_WinAPI_SelectObject($hDestDC, $hDestSv)
+	_WinAPI_SelectObject($hSrcDC, $hSrcSv)
+	_WinAPI_DeleteDC($hDestDC)
+	_WinAPI_DeleteDC($hSrcDC)
+	_WinAPI_DeleteObject($hBmp)
+
+	; Set bitmap to control
+	_SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap)
+	Local $hObj = _SendMessage($hPic, $STM_GETIMAGE)
+	If $hObj <> $hBitmap Then
+		_WinAPI_DeleteObject($hBitmap)
+	EndIf
+	Return $idPic
+EndFunc   ;==>__WebView2_freezer
+
+Func _WebView2_ShowPD($hMainGUI_Window, $oWebV2M, $s_PDF_FileFullPath)
+	Local $hWebView2_Window = _WinAPI_GetWindow($hMainGUI_Window, $GW_CHILD)
+	Local $idPic = __WebView2_freezer($hMainGUI_Window, $hWebView2_Window)
+	_SendMessage($hWebView2_Window, $WM_SETREDRAW, False, 0) ; Disables ; https://www.autoitscript.com/forum/topic/199172-disable-gui-updating-repainting/
+	_NetWebView2_Navigate($oWebV2M, $s_PDF_FileFullPath)
+	Sleep(1000)
+	_SendMessage($hWebView2_Window, $WM_SETREDRAW, True, 0) ; Enables
+	_WinAPI_RedrawWindow($hWebView2_Window, 0, 0, BitOR($RDW_FRAME, $RDW_INVALIDATE, $RDW_ALLCHILDREN))  ; Repaints
+	GUICtrlDelete($idPic)
+EndFunc   ;==>_WebView2_ShowPD
+