PowerBASIC Barebone version

[Patrice Terrier]

This is a simplified version of CanaryBay, without bells and whistles.

The purpose of this code is to help you understand what is going on...

The CanaryBay project is a compound application mixing the core WV2B binary EXE (written in C++) within a host application that could be written with any programming language.

Compound application is using interprocess to communicate together via a specific registered message:
gP.WM_BROWSER = RegisterWindowMessage("WM_BROWSER") '// Send/Get messages to/from the Browser

The inital parameters are shared using a config file (szConfig) to setup the WV2B behavior when firing the browser.

Code: [Select]

type SETBIN
    dwExStyle as dword
    dwStyle as dword
    hParent as dword
    x as long
    y as long
    w as long
    h as long
    onTABclose as WSTRING * %MAX_PATH
    defaultURL as WSTRING * %MAX_PATH
end typeThe names of the SETBIN structure are self explanatory, and are used to setup the CreateWindowEx of the main Browser window.

Use of region SetBrowserRegion
creates a hole region within the host window to display WV2B runing like a child process.

The host application can listen WV2B messages from the ProcessBrowserMessage subroutine.
For now WM_NCDESTROY is sent when the last Browser TAB is closing.

Firing the browser is done with buttons using the WM_COMMAND message from the standard Wndproc

Code: [Select]

    case %WM_COMMAND:
         local wP as long
         wP = LOINT(wParam)
         select case long wP
         case %IDC_BTN1
              StartBrowser("https://forum.powerbasic.com/")
              function = 0: exit function
         case %IDC_BTN2
              StartBrowser("http://www.objreader.com/download/video/TobVerF6zgr_576.mp4")
              function = 0: exit function
         case %IDC_EXIT
              if gP.hBrowser then SendMessage(gP.hBrowser, %WM_CLOSE, 0, 0)
              DestroyWindow(hWnd)
              function = 0: exit function
         end selectStartBrowser being the master API to fire WV2B.

The "PowerBASIC" button is firing a standard website.
The "D3D video" button is firing a video, just to show you that WV2B itself being a "Direct 3D" application, is using the latest web technology.
The "Exit" button is meant to shut down the whole compound application.

The main window of the host application is a bare one, using only
%WS_POPUP or %WS_CLIPCHILDREN or %WS_CLIPSIBLINGS.
This means no caption, no border, nothing related to the NonClient_AREA, thus freeing us of the Windows default interactions.
However the standard behavior of a caption bar is emulated to move the window around, and changing the caption color to figure the gain or lost of focus.

About the coding style:
It is using the core SDK syntax API, that is the only way to write portable code, because the core API is the common denominator understood by all Windows languages.

Contribution:
If you appreciate this code, please consider to make a donation to support my work.

Screenshot:


(BTW, this is a custom 3D model running in my ObjReader 3D engine, and available in the "car" collection for free)

If you have questions about this code, feel free to post them here.

[Patrice Terrier]

I did a mistake while cleaning the code, the part shown in red below must be kept

sub StartBrowser(sURL as string)
    '// if the Browser is already running, then shut it down in order to create a brand new page
    if (IsWindow(gP.hBrowser)) then
        SendMessage(gP.hBrowser, %WM_CLOSE, 0, 0)
        gP.hBrowser = 0
    end if

    local fname as string: fname = "WV2B"
    local szConfig as asciiz * %MAX_PATH: szConfig = fTempPath() + fname + ".bin"

    '// Customize the Browser size
    local cfg as SETBIN, x, y, w, h as long
    BrowserLocation(x, y, w, h)

    cfg.dwExStyle = %WS_EX_TOOLWINDOW '// Don't show the Browser icon on the taskbar
    cfg.dwStyle = %WS_POPUP or %WS_VISIBLE
    cfg.hParent = gP.hMain
    cfg.x = x
    cfg.y = y
    cfg.w = w
    cfg.h = h
    cfg.onTABclose = "https://unsplash.it/1962/1080?random"
    cfg.defaultURL = "https://www.google.fr/"
    '// Create the config file
    local fHandle as long
    fHandle = CreateFile(szConfig, %GENERIC_WRITE, 0, byval %NULL, %CREATE_ALWAYS, %FILE_ATTRIBUTE_NORMAL, byval %NULL)
    if (fHandle <> -1) then
        local BytesWritten as long
        WriteFile(fHandle, byval varptr(cfg), sizeof(cfg), BytesWritten, byval %NULL)
        CloseHandle(fHandle)
    end if

    '// Fire the Browser
    local hWnd as dword
    hWnd = CreateBrowserProcess(ExePath() + fname + ".exe", sURL)

    if (hWnd) then ' 03-22/2021 this code was put in REM in Barebone, that is an error it should be kept.
        local hCtrl as dword
        hCtrl = GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER)
        if (IsWindowVisible(hCtrl)) then ShowWindow(hCtrl, %SW_HIDE)
        ResizeWindow(hWnd)
        gP.hBrowser = hWnd
    end if

end sub


I have also added a new ProcessBrowserMessage, to display the name of the URL entered by the user in the navigate field.

'// This is the place to handle the messages sent by the browser (search for gP.WM_BROWSER in WndProc)
sub ProcessBrowserMessage(byval wParam as dword, byval lParam as long)
    if wParam = %WM_NCDESTROY then '// Last Browser TAB is closing
        if gP.hRgn then
            DeleteObject(gP.hRgn): gP.hRgn = 0
            SetWindowRgn(gP.hMain, gP.hRgn, %False)
'            if (IsWindowVisible(GetDlgItem(gP.hMain, %IDC_UNDOCK))) then
'                local r as rect, p as POINT
'                GetWindowRect(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), r)
'                p.x = r.nLeft: p.y = r.nTop: ScreenToClient(gP.hMain, p)
'                MoveWindow(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), p.x, p.y + gP.dock_offset, rWidth(r), rHeight(r) - gP.dock_offset, %TRUE)
'            end if
            ShowWindow(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), %SW_SHOW)
'            ShowWindow(GetDlgItem(gP.hMain, %IDC_UNDOCK), %SW_HIDE)
'            ShowWindow(GetDlgItem(gP.hMain, %IDC_DOCK), %SW_HIDE)

            SetForeGroundWindow(gP.hMain)

            WindowRedraw(gP.hMain)
        end if
    elseif wParam = %WM_SETTEXT then
        local szText AS ASCIIZ * %MAX_PATH
        local Length AS LONG
        Length = GetWindowText(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), szText, SIZEOF(szText))
        if Length then zTrace(szText)
    end if
end sub

[Carlo Pagani]

Thanks Patrice, this is great stuff to experiment with browser app. I am playing around with OAuth2 so I have a question if the browser URL input can be disabled or hidden via a message?

[Patrice Terrier]

Carlo

With the latest WV2B 64-bit.

You can use something like this WinDev code in the ProcessBrowserMessage callback procedure(see the code in red)

sub ProcessBrowserMessage(byval wParam as dword, byval lParam as long)
    if wParam = %WM_NCDESTROY then '// Last Browser TAB is closing
        if gP.hRgn then
            DeleteObject(gP.hRgn): gP.hRgn = 0
            SetWindowRgn(gP.hMain, gP.hRgn, %False)
            if (IsWindowVisible(GetDlgItem(gP.hMain, %IDC_UNDOCK))) then
                local r as rect, p as POINT
                GetWindowRect(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), r)
                p.x = r.nLeft: p.y = r.nTop: ScreenToClient(gP.hMain, p)
                MoveWindow(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), p.x, p.y + gP.dock_offset, rWidth(r), rHeight(r) - gP.dock_offset, %TRUE)
            end if
            ShowWindow(GetDlgItem(gP.hMain, %IDC_BROWER_CONTAINER), %SW_SHOW)
            ShowWindow(GetDlgItem(gP.hMain, %IDC_UNDOCK), %SW_HIDE)
            ShowWindow(GetDlgItem(gP.hMain, %IDC_DOCK), %SW_HIDE)

            SetForeGroundWindow(gP.hMain)

            WindowRedraw(gP.hMain)
        end if
    elseif wParam = %WM_SETTEXT then
        local hMapFile, pBuf as dword
        hMapFile = OpenFileMapping(%FILE_MAP_ALL_ACCESS, %false, "WV2B_MF")
        if (hMapFile) then
            pBuf = MapViewOfFile(hMapFile, %FILE_MAP_ALL_ACCESS, 0, 0, %BUF_SIZE)
            if (pBuf) then
                local sAnsi as string
                local CharCount as dword
                CharCount = LStrlenW(BYVAL pBuf) '// Get dual bytes character count
                sAnsi     = NUL$(CharCount)      '// Initialize string
                WideCharToMultiByte(%CP_ACP, 0, byval pBuf, CharCount, byval strptr(sAnsi), CharCount, byval 0, byval 0)

                zTrace((sAnsi)) '// Display the URL entered by the user

             '// To refuse the entered URL (parental control by example)
             '// use %MG_CANCEL below
             'SendMessageA(gP.hBrowser, gP.WM_BROWSER, %MG_CANCEL, 0)

                UnmapViewOfFile(pBuf)
            end if
            CloseHandle(hMapFile)
        end if
    end if
end sub

[Carlo Pagani]

Thanks Patrice - I will play now with this and see the possibilities. I quite like the way you overlay the browser window into the 32Bit app.

--Edit FYI
There are some issues on my machine (Win 10 x64) in that the icons don't load the page and if I type in a URL, I get a transparent window where the browser was?

[Patrice Terrier]

Carlo

Are you able to reproduce this behavior systematically?

If yes, tell me step by step what you are doing.