[wxWidgets.git] / wxPython / contrib / activex / wxie / wxActiveXFrame.cpp

/*
                wxActiveX Library Licence, Version 3
                ====================================

  Copyright (C) 2003 Lindsay Mathieson [, ...]

  Everyone is permitted to copy and distribute verbatim copies
  of this licence document, but changing it is not allowed.

                       wxActiveX LIBRARY LICENCE
     TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
  
  This library is free software; you can redistribute it and/or modify it
  under the terms of the GNU Library General Public Licence as published by
  the Free Software Foundation; either version 2 of the Licence, or (at
  your option) any later version.
  
  This library is distributed in the hope that it will be useful, but
  WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library
  General Public Licence for more details.

  You should have received a copy of the GNU Library General Public Licence
  along with this software, usually in a file named COPYING.LIB.  If not,
  write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  Boston, MA 02111-1307 USA.

  EXCEPTION NOTICE

  1. As a special exception, the copyright holders of this library give
  permission for additional uses of the text contained in this release of
  the library as licenced under the wxActiveX Library Licence, applying
  either version 3 of the Licence, or (at your option) any later version of
  the Licence as published by the copyright holders of version 3 of the
  Licence document.

  2. The exception is that you may use, copy, link, modify and distribute
  under the user's own terms, binary object code versions of works based
  on the Library.

  3. If you copy code from files distributed under the terms of the GNU
  General Public Licence or the GNU Library General Public Licence into a
  copy of this library, as this licence permits, the exception does not
  apply to the code that you add in this way.  To avoid misleading anyone as
  to the status of such modified files, you must delete this exception
  notice from such code and/or adjust the licensing conditions notice
  accordingly.

  4. If you write modifications of your own for this library, it is your
  choice whether to permit this exception to apply to your modifications. 
  If you do not wish that, you must delete the exception notice from such
  code and/or adjust the licensing conditions notice accordingly.
*/

// ----------------------------------------------------------------------------
// headers
// ----------------------------------------------------------------------------
// For compilers that support precompilation, includes "wx/wx.h".
#if defined(__WXGTK__) || defined(__WXMOTIF__)
        #include "wx/wx.h"
#endif
#include "wx/wxprec.h"
#include "wx/filedlg.h"
#include "wx/textdlg.h"
#include "wxActiveXFrame.h"
#include <sstream>
using namespace std;
#include "wx/splitter.h"
#include "wx/textctrl.h"
#include "wx/clipbrd.h"
#include <wx/msgdlg.h>

enum
{
    // menu items
    MENU_GETTYPEINFO = 700,
	MENU_INVOKEMETHOD,
	MENU_TEST
};

BEGIN_EVENT_TABLE(wxActiveXFrame, wxFrame)
    EVT_MENU(MENU_GETTYPEINFO, wxActiveXFrame::OnGetTypeInfo)
	EVT_MENU(MENU_INVOKEMETHOD, wxActiveXFrame::OnInvokeMethod)
	EVT_MENU(MENU_TEST, wxActiveXFrame::OnTest)
END_EVENT_TABLE()


wxActiveXFrame::wxActiveXFrame(wxWindow *parent, wxString title) :
    wxFrame(parent, -1, title) 
{
    // create a menu bar
    wxMenu *xMenu = new wxMenu("", wxMENU_TEAROFF);

	xMenu->Append(MENU_GETTYPEINFO, "Get Type Info", "");
	xMenu->Append(MENU_INVOKEMETHOD, "Invoke Method (no params)", "");
	xMenu->Append(MENU_TEST, "Test", "For debugging purposes");

    // now append the freshly created menu to the menu bar...
    wxMenuBar *menuBar = new wxMenuBar();
    menuBar->Append(xMenu, "&ActiveX");

    // ... and attach this menu bar to the frame
    SetMenuBar(menuBar);

    wxSplitterWindow *sp = new wxSplitterWindow(this);
    X = new wxActiveX(sp, title, 101);

    textLog = new wxTextCtrl(sp, -1, "", wxPoint(0,0),  wxDefaultSize, wxTE_MULTILINE | wxTE_READONLY);

    sp->SplitHorizontally(X, textLog, 0);

    // conenct all events
    for (int i = 0; i < X->GetEventCount(); i++)
    {
        const wxActiveX::FuncX& func = X->GetEventDesc(i);
        const wxEventType& ev = RegisterActiveXEvent((DISPID) func.memid);
        Connect(101, ev, (wxObjectEventFunction) OnActiveXEvent);
    };
}

wxString VarTypeAsString(VARTYPE vt)
{
#define VT(vtype, desc) case vtype : return desc

    if (vt & VT_BYREF)
        vt -= VT_BYREF;

    if (vt & VT_ARRAY)
        vt -= VT_ARRAY;

    switch (vt)
    {
    VT(VT_SAFEARRAY, "SafeArray");
    VT(VT_EMPTY, "empty");
    VT(VT_NULL, "null");
    VT(VT_UI1, "byte");
    VT(VT_I1, "char");
    VT(VT_I2, "short");
    VT(VT_I4, "long");
    VT(VT_UI2, "unsigned short");
    VT(VT_UI4, "unsigned long");
    VT(VT_INT, "int");
    VT(VT_UINT, "unsigned int");
    VT(VT_R4, "real(4)");
    VT(VT_R8, "real(8)");
    VT(VT_CY, "Currency");
    VT(VT_DATE, "wxDate");
    VT(VT_BSTR, "wxString");
    VT(VT_DISPATCH, "IDispatch");
    VT(VT_ERROR, "SCode Error");
    VT(VT_BOOL, "bool");
    VT(VT_VARIANT, "wxVariant");
    VT(VT_UNKNOWN, "IUknown");
    VT(VT_VOID, "void");
    VT(VT_PTR, "void *");
    VT(VT_USERDEFINED, "*user defined*");

    default:
        {
            wxString s;
            s << "Unknown(" << vt << ")";
            return s;
        };
    };

#undef VT
};

#define ENDL "\r\n"


void OutFunc(wxString& os, const wxActiveX::FuncX& func)
{
    os << VarTypeAsString(func.retType.vt) << " " << func.name << "(";
    for (unsigned int p = 0; p < func.params.size(); p++)
    {
        const wxActiveX::ParamX& param = func.params[p];
        if (param.IsIn() && param.IsOut())
            os << "[IN OUT] ";
        else if (param.IsIn())
            os << "[IN] ";
        else if (param.IsIn())
            os << "[OUT] ";
        os << VarTypeAsString(param.vt) << " " << (param.isPtr ? "*" : "") << param.name;
        if (p < func.params.size() - 1)
            os << ", ";
    };
    os << ")" << ENDL;
};

void wxActiveXFrame::OnGetTypeInfo(wxCommandEvent& event)
{
    wxString os;

	int i =0;
    os << 
        "Props" << ENDL <<
        "=====" << ENDL;
    for (i = 0; i < X->GetPropCount(); i++)
    {
        wxActiveX::PropX prop = X->GetPropDesc(i);
        os << VarTypeAsString(prop.type.vt) << " " << prop.name << "(";
        if (prop.CanSet())
        {
            os << VarTypeAsString(prop.arg.vt);
        };
        os << ")" << ENDL;

    };
	os << ENDL;

    os << 
        "Events" << ENDL <<
        "======" << ENDL;
    for (i = 0; i < X->GetEventCount(); i++)
		OutFunc(os, X->GetEventDesc(i));
	os << ENDL;

    os << 
        "Methods" << ENDL <<
        "=======" << ENDL;
    for (i = 0; i < X->GetMethodCount(); i++)
		OutFunc(os, X->GetMethodDesc(i));
	os << ENDL;


	if (wxTheClipboard->Open())
	{
		wxDataObjectSimple *wo = new wxTextDataObject(os);
		wxTheClipboard->SetData(wo);
        wxTheClipboard->Flush();
		wxTheClipboard->Close();
	};

    wxMessageBox(os, "Type Info", wxOK, this);
};

void wxActiveXFrame::OnInvokeMethod(wxCommandEvent& event)
{
	//wxTextEntryDialog dlg(this, "Method");
	//if (dlg.ShowModal() == wxID_OK)
	//	X->CallMethod(dlg.GetValue());
};

void wxActiveXFrame::OnTest(wxCommandEvent& event)
{
	// flash testing
    wxVariant args[] = {0L, "http://www.macromedia.com/support/flash/ts/documents/java_script_comm/flash_to_javascript.swf"};
    X->CallMethod("LoadMovie", args);   
	//X->Prop("Movie") = "http://www.macromedia.com/support/flash/ts/documents/java_script_comm/flash_to_javascript.swf";

	// mc cal testing
    //X->Prop("year") = 1964L;
    //X->Prop("Value") = wxDateTime::Now();

	// pdf testing
	//wxVariant file = "C:\\WINNT\\wx2\\docs\\pdf\\dialoged.pdf";
	//X->CallMethod("LoadFile", &file);
};

void wxActiveXFrame::OnActiveXEvent(wxActiveXEvent& event)
{
#ifdef UNICODE
    wostringstream os;
#else
    ostringstream os;
#endif

    os << (const wxChar *) event.EventName() << wxT("(");

    for (int p = 0; p < event.ParamCount(); p++)
    {
        os << 
            (const wxChar *) event.ParamType(p) << wxT(" ") << 
            (const wxChar *) event.ParamName(p) << wxT(" = ") <<
            (const wxChar *) (wxString) event[p];
        if (p < event.ParamCount() - 1)
            os << wxT(", ");
    };
    os << wxT(")") << endl;
    wxString data = os.str().c_str();
    textLog->AppendText(data);
};
Commit	Line	Data
b7c75283 RD	1	/*
	2	wxActiveX Library Licence, Version 3
	3	====================================
	4
	5	Copyright (C) 2003 Lindsay Mathieson [, ...]
	6
	7	Everyone is permitted to copy and distribute verbatim copies
	8	of this licence document, but changing it is not allowed.
	9
	10	wxActiveX LIBRARY LICENCE
	11	TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
	12
	13	This library is free software; you can redistribute it and/or modify it
	14	under the terms of the GNU Library General Public Licence as published by
	15	the Free Software Foundation; either version 2 of the Licence, or (at
	16	your option) any later version.
	17
	18	This library is distributed in the hope that it will be useful, but
	19	WITHOUT ANY WARRANTY; without even the implied warranty of
	20	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library
	21	General Public Licence for more details.
	22
	23	You should have received a copy of the GNU Library General Public Licence
	24	along with this software, usually in a file named COPYING.LIB. If not,
	25	write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
	26	Boston, MA 02111-1307 USA.
	27
	28	EXCEPTION NOTICE
	29
	30	1. As a special exception, the copyright holders of this library give
	31	permission for additional uses of the text contained in this release of
	32	the library as licenced under the wxActiveX Library Licence, applying
	33	either version 3 of the Licence, or (at your option) any later version of
	34	the Licence as published by the copyright holders of version 3 of the
	35	Licence document.
	36
	37	2. The exception is that you may use, copy, link, modify and distribute
	38	under the user's own terms, binary object code versions of works based
	39	on the Library.
	40
	41	3. If you copy code from files distributed under the terms of the GNU
	42	General Public Licence or the GNU Library General Public Licence into a
	43	copy of this library, as this licence permits, the exception does not
	44	apply to the code that you add in this way. To avoid misleading anyone as
	45	to the status of such modified files, you must delete this exception
	46	notice from such code and/or adjust the licensing conditions notice
	47	accordingly.
	48
	49	4. If you write modifications of your own for this library, it is your
	50	choice whether to permit this exception to apply to your modifications.
	51	If you do not wish that, you must delete the exception notice from such
	52	code and/or adjust the licensing conditions notice accordingly.
	53	*/
	54
	55	// ----------------------------------------------------------------------------
	56	// headers
	57	// ----------------------------------------------------------------------------
	58	// For compilers that support precompilation, includes "wx/wx.h".
	59	#if defined(__WXGTK__) \|\| defined(__WXMOTIF__)
	60	#include "wx/wx.h"
	61	#endif
	62	#include "wx/wxprec.h"
	63	#include "wx/filedlg.h"
	64	#include "wx/textdlg.h"
65	#include "wxActiveXFrame.h"
66	#include <sstream>
67	using namespace std;
68	#include "wx/splitter.h"
69	#include "wx/textctrl.h"
70	#include "wx/clipbrd.h"
71	#include <wx/msgdlg.h>
72
73	enum
74	{
75	// menu items
76	MENU_GETTYPEINFO = 700,
77	MENU_INVOKEMETHOD,
78	MENU_TEST
79	};
80
81	BEGIN_EVENT_TABLE(wxActiveXFrame, wxFrame)
82	EVT_MENU(MENU_GETTYPEINFO, wxActiveXFrame::OnGetTypeInfo)
83	EVT_MENU(MENU_INVOKEMETHOD, wxActiveXFrame::OnInvokeMethod)
84	EVT_MENU(MENU_TEST, wxActiveXFrame::OnTest)
85	END_EVENT_TABLE()
86
87
88	wxActiveXFrame::wxActiveXFrame(wxWindow *parent, wxString title) :
89	wxFrame(parent, -1, title)
90	{
91	// create a menu bar
92	wxMenu *xMenu = new wxMenu("", wxMENU_TEAROFF);
93
94	xMenu->Append(MENU_GETTYPEINFO, "Get Type Info", "");
95	xMenu->Append(MENU_INVOKEMETHOD, "Invoke Method (no params)", "");
96	xMenu->Append(MENU_TEST, "Test", "For debugging purposes");
97
98	// now append the freshly created menu to the menu bar...
99	wxMenuBar *menuBar = new wxMenuBar();
100	menuBar->Append(xMenu, "&ActiveX");
101
102	// ... and attach this menu bar to the frame
103	SetMenuBar(menuBar);
104
105	wxSplitterWindow *sp = new wxSplitterWindow(this);
106	X = new wxActiveX(sp, title, 101);
107
108	textLog = new wxTextCtrl(sp, -1, "", wxPoint(0,0), wxDefaultSize, wxTE_MULTILINE \| wxTE_READONLY);
109
110	sp->SplitHorizontally(X, textLog, 0);
111
112	// conenct all events
113	for (int i = 0; i < X->GetEventCount(); i++)
114	{
115	const wxActiveX::FuncX& func = X->GetEventDesc(i);
116	const wxEventType& ev = RegisterActiveXEvent((DISPID) func.memid);
117	Connect(101, ev, (wxObjectEventFunction) OnActiveXEvent);
118	};
119	}
120
121	wxString VarTypeAsString(VARTYPE vt)
122	{
123	#define VT(vtype, desc) case vtype : return desc
124
125	if (vt & VT_BYREF)
126	vt -= VT_BYREF;
127
128	if (vt & VT_ARRAY)
129	vt -= VT_ARRAY;
130
131	switch (vt)
132	{
133	VT(VT_SAFEARRAY, "SafeArray");
134	VT(VT_EMPTY, "empty");
135	VT(VT_NULL, "null");
136	VT(VT_UI1, "byte");
137	VT(VT_I1, "char");
138	VT(VT_I2, "short");
139	VT(VT_I4, "long");
140	VT(VT_UI2, "unsigned short");
141	VT(VT_UI4, "unsigned long");
142	VT(VT_INT, "int");
143	VT(VT_UINT, "unsigned int");
144	VT(VT_R4, "real(4)");
145	VT(VT_R8, "real(8)");
146	VT(VT_CY, "Currency");
147	VT(VT_DATE, "wxDate");
148	VT(VT_BSTR, "wxString");
149	VT(VT_DISPATCH, "IDispatch");
150	VT(VT_ERROR, "SCode Error");
151	VT(VT_BOOL, "bool");
152	VT(VT_VARIANT, "wxVariant");
153	VT(VT_UNKNOWN, "IUknown");
154	VT(VT_VOID, "void");
155	VT(VT_PTR, "void *");
156	VT(VT_USERDEFINED, "user defined");
157
158	default:
159	{
160	wxString s;
161	s << "Unknown(" << vt << ")";
162	return s;
163	};
164	};
165
166	#undef VT
167	};
168
169	#define ENDL "\r\n"
170
171
172	void OutFunc(wxString& os, const wxActiveX::FuncX& func)
173	{
174	os << VarTypeAsString(func.retType.vt) << " " << func.name << "(";
175	for (unsigned int p = 0; p < func.params.size(); p++)
176	{
177	const wxActiveX::ParamX& param = func.params[p];
178	if (param.IsIn() && param.IsOut())
179	os << "[IN OUT] ";
180	else if (param.IsIn())
181	os << "[IN] ";
182	else if (param.IsIn())
183	os << "[OUT] ";
184	os << VarTypeAsString(param.vt) << " " << (param.isPtr ? "*" : "") << param.name;
185	if (p < func.params.size() - 1)
186	os << ", ";
187	};
188	os << ")" << ENDL;
189	};
190
191	void wxActiveXFrame::OnGetTypeInfo(wxCommandEvent& event)
192	{
193	wxString os;
194
195	int i =0;
196	os <<
197	"Props" << ENDL <<
198	"=====" << ENDL;
199	for (i = 0; i < X->GetPropCount(); i++)
200	{
201	wxActiveX::PropX prop = X->GetPropDesc(i);
202	os << VarTypeAsString(prop.type.vt) << " " << prop.name << "(";
203	if (prop.CanSet())
204	{
205	os << VarTypeAsString(prop.arg.vt);
206	};
207	os << ")" << ENDL;
208
209	};
210	os << ENDL;
211
212	os <<
213	"Events" << ENDL <<
214	"======" << ENDL;
215	for (i = 0; i < X->GetEventCount(); i++)
216	OutFunc(os, X->GetEventDesc(i));
217	os << ENDL;
218
219	os <<
220	"Methods" << ENDL <<
221	"=======" << ENDL;
222	for (i = 0; i < X->GetMethodCount(); i++)
223	OutFunc(os, X->GetMethodDesc(i));
224	os << ENDL;
225
226
227	if (wxTheClipboard->Open())
228	{
229	wxDataObjectSimple *wo = new wxTextDataObject(os);
230	wxTheClipboard->SetData(wo);
231	wxTheClipboard->Flush();
232	wxTheClipboard->Close();
233	};
234
235	wxMessageBox(os, "Type Info", wxOK, this);
236	};
237
238	void wxActiveXFrame::OnInvokeMethod(wxCommandEvent& event)
239	{
240	//wxTextEntryDialog dlg(this, "Method");
241	//if (dlg.ShowModal() == wxID_OK)
242	// X->CallMethod(dlg.GetValue());
243	};
244
245	void wxActiveXFrame::OnTest(wxCommandEvent& event)
246	{
247	// flash testing
248	wxVariant args[] = {0L, "http://www.macromedia.com/support/flash/ts/documents/java_script_comm/flash_to_javascript.swf"};
249	X->CallMethod("LoadMovie", args);
250	//X->Prop("Movie") = "http://www.macromedia.com/support/flash/ts/documents/java_script_comm/flash_to_javascript.swf";
251
252	// mc cal testing
253	//X->Prop("year") = 1964L;
254	//X->Prop("Value") = wxDateTime::Now();
255
256	// pdf testing
257	//wxVariant file = "C:\\WINNT\\wx2\\docs\\pdf\\dialoged.pdf";
258	//X->CallMethod("LoadFile", &file);
259	};
260
261	void wxActiveXFrame::OnActiveXEvent(wxActiveXEvent& event)
262	{
263	#ifdef UNICODE
264	wostringstream os;
265	#else
266	ostringstream os;
267	#endif
268
269	os << (const wxChar *) event.EventName() << wxT("(");
270
271	for (int p = 0; p < event.ParamCount(); p++)
272	{
273	os <<
274	(const wxChar *) event.ParamType(p) << wxT(" ") <<
275	(const wxChar *) event.ParamName(p) << wxT(" = ") <<
276	(const wxChar *) (wxString) event[p];
277	if (p < event.ParamCount() - 1)
278	os << wxT(", ");
279	};
280	os << wxT(")") << endl;
281	wxString data = os.str().c_str();
282	textLog->AppendText(data);
283	};
284