--- /dev/null
+/*
+ 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);
+};
+
projects / wxWidgets.git / blobdiff