// ----------------------------------------------------------------------------
// refcnt_ToolBarButton
// ----------------------------------------------------------------------------
void refcnt_ToolBarButton (ebHTHREAD hThread, int iNumArgs, ebARGS lpArgs)
{
BASIC_OP_TRACE_SYS(refcnt_GeoObjects);
switch (iNumArgs) {
case OBJECT_REFNEW:
{
ebSetObject (lpArgs, 0, NULL); // für alle Fälle
try {
WDControlToolBarButton ToolBarBttn(CLSID_TRiASToolBarButton);
WDispatch Disp;
THROW_FAILED_HRESULT(((OLE2AutoExtension *)g_pTE) -> App() -> GetDispatchIF (Disp.ppi()));
THROW_FAILED_HRESULT(ToolBarBttn -> put_Application (Disp));
THROW_FAILED_HRESULT(ToolBarBttn -> put_Parent (Disp));
ebSetObject (lpArgs, 0, (DWORD)ToolBarBttn.detach());
} catch (_com_error&) {
return;
}
}
break;
case OBJECT_REFINC:
((IUnknown *)ebGetObject (lpArgs, 1)) -> AddRef();
break;
case OBJECT_REFDEC:
((IUnknown *)ebGetObject (lpArgs, 1)) -> Release();
break;
}
}
BOOL CTRiASView::EnumConnectionFilters(char *pName, BOOL, void *pData)
{
// Connectfilter besorgen
WDispatch OutCS;
if (FAILED(m_pCTF -> GetOutputCS(OutCS.ppi())))
return TRUE; // weitermachen
CONNECTIONFILTER CF;
INITSTRUCT(CF, CONNECTIONFILTER);
CF.pcName = pName;
CF.pICS = OutCS;
if (FAILED(DEX_GetConnectionFilter(CF))) {
if (NULL != CF.pIGeometry)
CF.pIGeometry -> Release();
return TRUE; // trotzdem weitermachen
}
// ConnectFilter zeichnen
reinterpret_cast<CPaintConnectionFilter *>(pData)->Paint(&CF);
// Geometrie wieder freigeben
if (NULL != CF.pIGeometry)
CF.pIGeometry -> Release();
return TRUE;
}
HRESULT CTRiASOGCObjects::EnsureObjectsLoaded()
{
if (HasType (m_rgInitState, INITSTATE_ObjectsInitialized))
return S_OK; // wurden bereits geladen
#pragma TODO("Sämtliche Objekte dieser Objektklasse instantiieren und zum aggregierten Objekt hinzufügen.")
COM_TRY {
WTRiASObjects BaseObjs;
THROW_FAILED_HRESULT(m_BaseUnk -> QueryInterface (BaseObjs.ppi()));
// BEGIN_SAMPLEDATA
using namespace sample_data;
LONG lCursor (GetPropertyFrom (BaseObjs, g_cbObjectsCursor, -1L));
_ASSERTE(0 < lCursor);
// alle Objekte durchgehen und instantiieren
const OBJECTCLASS *pClass = g_ObjectClasses[lCursor-1];
WDispatch App;
THROW_FAILED_HRESULT(BaseObjs -> get_Application (App.ppi()));
for (int i = 0; i < pClass -> m_iObjectCount; i++) {
int iObject = pClass -> m_pObjects[i];
_ASSERTE(0 <= iObject && iObject < g_iObjectCount);
const OBJECT *pObject = g_Objects[iObject];
WTRiASObject Obj (CLSID_TRiASOGCObject);
// fertig initialisieren
THROW_FAILED_HRESULT(WPersistStreamInit(Obj) -> InitNew());
THROW_FAILED_HRESULT(Obj -> put_Application(App));
THROW_FAILED_HRESULT(Obj -> put_Parent(BaseObjs));
// Typ etc. setzen
THROW_FAILED_HRESULT(Obj -> put_Type (pObject -> m_rgType));
THROW_FAILED_HRESULT(Obj -> put_Name (CComBSTR(pObject -> m_pcoleGuid)));
// an dem erzeugten Objekt unsere Nummer (cursor) speichern
THROW_FAILED_HRESULT(SetPropertyBy (Obj, g_cbObjectCursor, CComVariant(iObject+1), true));
// das neu instantiierte Objekt zu dieser Objektklasse hinzufügen
THROW_FAILED_HRESULT(BaseObjs -> _Add (Obj, VARIANT_TRUE));
}
// END_SAMPLE_DATA
// Objekte sind jetzt initialisiert
SetType (m_rgInitState, INITSTATE_ObjectsInitialized);
// Features initialisieren
THROW_FAILED_HRESULT(SetupFeatures (SETUPFEATURESMODE_Force));
} COM_CATCH;
return S_OK;
}
// eine neue Objekteigenschaft soll erzeugt werden
STDMETHODIMP CFastdbFeatures::OnCreate (VARIANT Name, BSTR Type, FEATURETYPE rgType, ITRiASFeature **ppIFeat)
{
CHECKOUTPOINTER(ppIFeat);
USES_CONVERSION;
COM_TRY {
// jetzt wirklich erzeugen
CIID ClsId (Type, CIID::INITCIID_InitFromProgId);
if (!ClsId) ClsId = CLSID_FastdbFeature; // default ClsId
WTRiASFeatures BaseFeats;
WDispatch Parent;
THROW_FAILED_HRESULT(m_BaseUnk -> QueryInterface (BaseFeats.ppi()));
THROW_FAILED_HRESULT(BaseFeats -> get_Parent (Parent.ppi()));
// Parent muß hier Objektklasse sein
WTRiASObjects Objs;
THROW_FAILED_HRESULT(Parent -> QueryInterface (Objs.ppi()));
// neuen Satz erzeugen und zu der Objektklasse hinzufügen
LONG lCursor (GetPropertyFrom (Objs, g_cbObjectsCursor, 0L));
_ASSERTE(0 != lCursor);
dbDatabase *pdb = GetRelatedDatabase(GetUnknown());
dbCursor<CDBClass> cursor (pdb);
CDBClass *pClass = cursor.at (dbReference<CDBClass>(oid_t(lCursor)));
if (NULL == pClass || cursor.isEmpty())
THROW_FAILED_HRESULT(FASTDB_E_OBJECTS_BADREFERENCE);
CComVariant vVal;
CDBFeatureDesc FDesc;
THROW_FAILED_HRESULT(vVal.ChangeType (VT_BSTR, &Name));
FDesc.m_pName = OLE2A(V_BSTR(&vVal));
FDesc.m_rgType = rgType;
FDesc.objclass = cursor.currentId();
dbCursor<CDBFeatureDesc> featuredesc (GetRelatedDatabase(GetUnknown()));
featuredesc.at (pdb -> insert (FDesc));
THROW_FAILED_HRESULT(SetupFeature (ClsId, BaseFeats, featuredesc, Parent, ppIFeat));
} COM_CATCH;
return S_OK;
}
///////////////////////////////////////////////////////////////////////////////
// hier geht's los
HRESULT CToolBarButton::FinalConstruct (void)
{
try {
WGetTRiASApplication GetApp (CLSID_OleAutoExtension);
WDispatch App;
THROW_FAILED_HRESULT(GetApp -> GetApplication (IID_IDispatch, App.ppv()));
THROW_FAILED_HRESULT(put_Application (App));
THROW_FAILED_HRESULT(put_Parent (App));
} catch (_com_error& hr) {
return _COM_ERROR(hr);
}
memset (&m_tb, 0, sizeof(TBBUTTON));
m_tb.idCommand = (int)LOWORD(this);
m_tb.fsStyle = TBSTYLE_BUTTON;
m_iCnt = 0;
m_iOffset = -1;
m_lMutex = -1;
CBitmap Bmp;
if (Bmp.LoadMappedBitmap(ID_MACROBUTTON)) {
m_iCnt = 16;
HRESULT hr = CreatePicture ((HBITMAP)Bmp.Detach(), NULL, true, m_PictDisp.ppi());
if (FAILED(hr)) return hr;
}
try {
m_strName = TEXT("ToolBarButton");
m_strDesc = TEXT("ToolBarButton\nToolBarButton");
} catch (...) {
return E_OUTOFMEMORY;
}
return ((CFakeMFCExtension *)g_pTE) -> m_pXtnSite -> GetXtension (CLSID_MacroScriptExtension, IID_IExtendBScript, m_EvtSink.ppv());
}
HRESULT CTRiASMIObjectsCollection::CreateObject (
VARIANT NameOrHandle, DWORD dwType, const CLSID *pClsId, ITRiASObjects **ppIObjs)
{
_ASSERTE(NULL != pClsId);
if (NULL == pClsId)
return E_POINTER;
// diverse Vorbereitungen treffen
WDispatch App;
WDispatch Parent;
WTRiASObjectsCollection BaseObjs;
RETURN_FAILED_HRESULT(m_BaseUnk -> QueryInterface (BaseObjs.ppi()));
RETURN_FAILED_HRESULT(BaseObjs -> get_Application (App.ppi())); // für neue Objektklasse
RETURN_FAILED_HRESULT(BaseObjs -> get_Parent(Parent.ppi()));
// ZugriffsHandle/Namen oder OKS aus NameOrHandle bestimmen
LONG lHandle = 0;
CComVariant v;
bool fHasName = false;
bool fHasOKS = false;
CComBSTR bstrApp, bstrOKS;
if (VT_BSTR != V_VT(&NameOrHandle) && SUCCEEDED(v.ChangeType (VT_I4, &NameOrHandle)))
lHandle = V_I4(&v);
else if (SUCCEEDED(v.ChangeType(VT_BSTR, &NameOrHandle))) {
// feststellen, ob es ein OKS ist, evtl. Namen isolieren
if (StringIsOKS(V_BSTR(&v), CLEARED(&bstrOKS), CLEARED(&bstrApp))) {
if (bstrOKS.Length() > 0)
fHasOKS = true;
} else
bstrApp = V_BSTR(&v);
if (bstrApp.Length() > 0)
fHasName = true;
} else
return E_INVALIDARG;
// Objektklasse aus Handle/Name/OKS erzeugen
HRESULT hr = S_OK;
COM_TRY {
WTRiASObjects Objs (*pClsId); // zu liefernde Objektklasse erzeugen
THROW_FAILED_HRESULT(Objs -> put_Parent (Parent));
#pragma TODO("Neue Objektklasse in Datenbank erzeugen.")
if (fHasName) // S_FALSE heißt: Objekt existiert bereits
RETURN_FAILED_HRESULT(Objs -> put_Name (bstrApp));
if (fHasOKS)
RETURN_FAILED_HRESULT(Objs -> put_OKS (bstrOKS));
// wenn Objektklasse bereits zu dieser Menge von Objektklassen gehört, dann liefert _Add den Wert S_FALSE
hr = BaseObjs -> _Add (Objs, VARIANT_TRUE);
if (SUCCEEDED(hr) && NULL != ppIObjs)
*ppIObjs = Objs.detach(); // evtl. neue/gefundene Objektklasse liefern
} COM_CATCH;
return hr;
}