ScriptPad/ScriptHostApp.h at main · fioresoft/ScriptPad · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
#pragma once
#include <atlstr.h>
#include <MyString.h>
#include "resource.h"
#include "ScriptHost5.h"
#include "_IScriptHostAppEvents_CP.h"
class ATL_NO_VTABLE CScriptHostApp :
	public CComObjectRootEx<CComSingleThreadModel>,
	public CProxy_IScriptHostAppEvents<CScriptHostApp>,
	public ISupportErrorInfo,
	public IConnectionPointContainerImpl<CScriptHostApp>,
	public IProvideClassInfo2Impl<&CLSID_ScriptHostApp, &DIID__IScriptHostAppEvents,&LIBID_ScriptHost,1,1>,
	public IDispatchImpl<IScriptHostApp, &IID_IScriptHostApp>,
	public IDispatchImpl<_IScriptHostAppEvents, &__uuidof(_IScriptHostAppEvents)>
{
	CWindow wndFrame, wndOutput;

	//DECLARE_REGISTRY_RESOURCEID(IDR_NO5IRCOBJ)
	DECLARE_REGISTRY_RESOURCEID(IDR_REGISTRY1);

	DECLARE_NOT_AGGREGATABLE(CScriptHostApp)

	BEGIN_COM_MAP(CScriptHostApp)
		COM_INTERFACE_ENTRY(IScriptHostApp)
		COM_INTERFACE_ENTRY2(IDispatch, IScriptHostApp)
		COM_INTERFACE_ENTRY(ISupportErrorInfo)
		COM_INTERFACE_ENTRY_IMPL(IConnectionPointContainer)
		COM_INTERFACE_ENTRY(IProvideClassInfo)
		COM_INTERFACE_ENTRY(IProvideClassInfo2)
		COM_INTERFACE_ENTRY(_IScriptHostAppEvents)
	END_COM_MAP()

	BEGIN_CONNECTION_POINT_MAP(CScriptHostApp)
		CONNECTION_POINT_ENTRY(__uuidof(_IScriptHostAppEvents))
	END_CONNECTION_POINT_MAP()


	DECLARE_PROTECT_FINAL_CONSTRUCT()

	HRESULT FinalConstruct()
	{
		return S_OK;
	}

	void FinalRelease()
	{
	}

public:
	void Init(HWND hWndMainFrame, HWND hWndOutput) {
		ITypeLib* ptl = NULL;
		HRESULT hr = LoadTypeLib(OLESTR("ScriptHost5.tlb"),&ptl);
		//HRESULT hr = LoadRegTypeLib(LIBID_ScriptHost, 1, 0, LOCALE_ALL, &ptl);
		if (SUCCEEDED(hr)) {
			ptl->Release();
			//hr = UpdateRegistry(FALSE);
		}
		ATLASSERT(SUCCEEDED(hr));
		if (FAILED(hr)) {
			MessageBox(GetDesktopWindow(), NO5TL::GetErrorDesc(hr), _T("Title"), MB_ICONERROR);
		}
		wndFrame = hWndMainFrame;
		wndOutput = hWndOutput;
	}
	// ISupportsErrorInfo
	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid)
	{
		// TODO
		return S_OK;
	}
	STDMETHOD(Output)(BSTR msg)
	{
		HRESULT hr = S_OK;
		CComBSTR bstr = msg;
		CString s = bstr;
		CEdit edit(wndOutput.m_hWnd);
		edit.AppendText(s);
		return hr;
	}
	STDMETHOD(SetTimer)(LONG id, LONG ms, LONG* pRes)
	{
		if (ms == 0) {
			wndFrame.KillTimer(id);
			return S_OK;
		}
		*pRes = wndFrame.SetTimer(id, ms);
		return S_OK;
	}
	STDMETHOD(Beep)(LONG ms, LONG f)
	{
		::Beep(f, ms);
		return S_OK;
	}
	STDMETHOD(Box)(BSTR msg)
	{
		CString s = msg;
		wndFrame.MessageBox(s);
		return S_OK;
	}
};