PBMiner

• Sources
• Kodigo
• OpenExplorer
• PBNI-Canvas
• Canvas
• main.cpp

//****************************************************************************
#pragma warning(disable : 4786)
 
#include <windows.h>
#include <pbext.h>
#include <richedit.h>
#include <commctrl.h>
#include <math.h>
 
#include <string>
using std::string;
 
HMODULE g_dll_hModule = 0;
 
PBXEXPORT LPCTSTR PBXCALL PBX_GetDescription()
{
    static const TCHAR desc[] = {
        "class u_canvas from userobject\n"
        "event int onpaint(ulong hdc)\n"
        "end class\n" 
    };
 
  return desc;
}
 
class CVisualExt : public IPBX_VisualObject
{
    static TCHAR s_className[];
 
    IPB_Session* d_session;
    pbobject    d_pbobj;
    HWND        d_hwnd;
    string      d_text;
    bool        d_buffer;
 
public:
    static HDC          memdc;
 
    CVisualExt(IPB_Session* session, pbobject pbobj)
        : 
        d_session(session), 
        d_pbobj(pbobj), 
        d_hwnd(NULL),
        d_text("Visual Extension")
    {
 
    }
 
    ~CVisualExt()
    {
    }
 
    LPCTSTR GetWindowClassName();
 
    HWND CreateControl
    (
        DWORD dwExStyle,      // extended window style
        LPCTSTR lpWindowName, // window name
        DWORD dwStyle,        // window style
        int x,                // horizontal position of window
        int y,                // vertical position of window
        int nWidth,           // window width
        int nHeight,          // window height
        HWND hWndParent,      // handle to parent or owner window
        HINSTANCE hInstance   // handle to application instance
    );
 
    PBXRESULT Invoke
        (
        IPB_Session *session, 
        pbobject    obj, 
        pbmethodID  mid,
        PBCallInfo  *ci
        );
 
    void Destroy()
    {
        delete this;
        DestroyWindow(d_hwnd);
    }
 
    HDC GetMemDC()
    {
        return memdc;
    }
 
    void TriggerEvent(LPCTSTR eventName);
 
    static void RegisterClass();
    static void UnregisterClass();
 
    static LRESULT CALLBACK WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam); 
};
 
TCHAR CVisualExt::s_className[] = "PBVisualExt";
HDC CVisualExt::memdc = 0;
 
LPCTSTR CVisualExt::GetWindowClassName()
{
    return s_className;
}
 
HWND CVisualExt::CreateControl
(
    DWORD dwExStyle,      // extended window style
    LPCTSTR lpWindowName, // window name
    DWORD dwStyle,        // window style
    int x,                // horizontal position of window
    int y,                // vertical position of window
    int nWidth,           // window width
    int nHeight,          // window height
    HWND hWndParent,      // handle to parent or owner window
    HINSTANCE hInstance   // handle to application instance
)
{
    d_hwnd = CreateWindowEx(dwExStyle, s_className, lpWindowName, dwStyle,
        x, y, nWidth, nHeight, hWndParent, NULL, hInstance, NULL);
 
    ::SetWindowLong(d_hwnd, GWL_USERDATA, (LONG)this);
 
    return d_hwnd;
}
 
PBXRESULT CVisualExt::Invoke
    (
    IPB_Session *session, 
    pbobject    obj, 
    pbmethodID  mid,
    PBCallInfo  *ci
    )
{
    //switch(mid)
    //{
    //case 1:
    //  return PBX_FAIL;
    //default:
    //  return PBX_FAIL;
    //}
 
    return PBX_OK;
}
 
void CVisualExt::TriggerEvent(LPCTSTR eventName)
{
    pbclass clz = d_session->GetClass(d_pbobj);
    pbmethodID mid = d_session->GetMethodID(clz, eventName, PBRT_EVENT, "");
    pbulong lpb = (pbulong)memdc;
 
    PBCallInfo ci;
    d_session->InitCallInfo(clz, mid, &ci);
 
    pbint cnt = ci.pArgs->GetCount();
 
    ci.pArgs->GetAt(0)->SetUlong(lpb);
 
    d_session->TriggerEvent(d_pbobj, mid, &ci);
    d_session->FreeCallInfo(&ci);
 
    //ci.returnValue->SetInt(0);
}
 
void CVisualExt::RegisterClass()
{
    WNDCLASS wndclass;
 
    wndclass.style           = CS_GLOBALCLASS | CS_DBLCLKS;
    wndclass.lpfnWndProc     = WindowProc;
    wndclass.cbClsExtra      = 0;
    wndclass.cbWndExtra      = 0;
    wndclass.hInstance       = g_dll_hModule;
    wndclass.hIcon           = NULL;
    wndclass.hCursor         = LoadCursor (NULL, IDC_ARROW);
    wndclass.hbrBackground   = (HBRUSH) (COLOR_WINDOW + 1);
    wndclass.lpszMenuName    = NULL;
    wndclass.lpszClassName   = s_className;
 
    ::RegisterClass (&wndclass);
}
 
void CVisualExt::UnregisterClass()
{
    ::UnregisterClass(s_className, g_dll_hModule);
}
 
LRESULT CALLBACK CVisualExt::WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    CVisualExt* ext = (CVisualExt*)::GetWindowLong(hwnd, GWL_USERDATA);
 
    switch(uMsg)
    {
        case WM_CREATE:
            return 0;
 
        case WM_SIZE:
            return 0;
 
        case WM_COMMAND:
            return 0;
 
        case WM_ERASEBKGND:
            return 1;
 
        case WM_PAINT:
            {
                PAINTSTRUCT ps;
                HDC hdc = BeginPaint(hwnd, &ps);
 
                RECT rc;
                GetClientRect(hwnd, &rc);
 
                HDC lmemdc = CreateCompatibleDC(hdc);
                HBITMAP hmembmp = CreateCompatibleBitmap(hdc, rc.right - rc.left, rc.bottom - rc.top);
                HBITMAP oldbmp = (HBITMAP)SelectObject(lmemdc, hmembmp);
 
                memdc = lmemdc;
 
                ext->TriggerEvent("onpaint");
 
                BitBlt(hdc, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, lmemdc, 0, 0, SRCCOPY);
 
                SelectObject(lmemdc, oldbmp);
                DeleteObject(hmembmp);
                DeleteDC(lmemdc);
                EndPaint(hwnd, &ps);
                return 0;
            }
    }
 
    return DefWindowProc(hwnd, uMsg, wParam, lParam);
}
 
PBXEXPORT PBXRESULT PBXCALL PBX_CreateVisualObject
(
    IPB_Session*            pbsession, 
    pbobject                pbobj,
    LPCTSTR                 className,      
    IPBX_VisualObject   **obj
)
{
    PBXRESULT result = PBX_OK;
 
    string cn(className);
    if (cn.compare("u_canvas") == 0)
    {
        *obj = new CVisualExt(pbsession, pbobj);
    }
    else
    {
        *obj = NULL;
        result = PBX_FAIL;
    }
 
    return PBX_OK;
};
 
BOOL APIENTRY DllMain( HANDLE hModule, 
                       DWORD  reasonForCall, 
                       LPVOID lpReserved
                     )
{
    g_dll_hModule = HMODULE(hModule);
 
    switch (reasonForCall)
    {
        case DLL_PROCESS_ATTACH:
            CVisualExt::RegisterClass();
            break;
 
        case DLL_THREAD_ATTACH:
        case DLL_THREAD_DETACH:
            break;
 
        case DLL_PROCESS_DETACH:
            CVisualExt::UnregisterClass();
            break;
    }
    return TRUE;
}