COM

class ATL_NO_VTABLE CCBXShell :
	public CComObjectRootEx<CComSingleThreadModel>,
	public CComCoClass<CCBXShell,&CLSID_CBXShell>,
	public IDispatchImpl<ICBXShell, &IID_ICBXShell, &LIBID_CBXSHELLLib>, 
	public ISupportErrorInfo,
	public IPersistFile,
	public IExtractImage2,
	public IQueryInfo
{
public:
	CCBXShell() {}

	BEGIN_COM_MAP(CCBXShell)
		COM_INTERFACE_ENTRY(ICBXShell)
		COM_INTERFACE_ENTRY(IPersistFile)
		COM_INTERFACE_ENTRY(IQueryInfo)
		COM_INTERFACE_ENTRY(IExtractImage)
		COM_INTERFACE_ENTRY(IExtractImage2)
		COM_INTERFACE_ENTRY(IDispatch)
		COM_INTERFACE_ENTRY(ISupportErrorInfo)
	END_COM_MAP()

	//DECLARE_NOT_AGGREGATABLE(CCBXShell) 
	// Remove the comment from the line above if you don't want your object to 
	// support aggregation. 

	//_ATL_DEBUG_ADDREF_RELEASE_IMPL(CCBXShell)
	DECLARE_REGISTRY_RESOURCEID(IDR_CBXShell)
	DECLARE_PROTECT_FINAL_CONSTRUCT()

	// IPersistFile
	STDMETHOD(Load)(LPCOLESTR wszFile, DWORD dwMode) { return m_cbx.OnLoad(wszFile); }

	STDMETHOD(GetClassID)(LPCLSID clsid){return E_NOTIMPL;}
	STDMETHOD(IsDirty)(VOID){return E_NOTIMPL;}
	STDMETHOD(Save)(LPCOLESTR, BOOL){return E_NOTIMPL;}
	STDMETHOD(SaveCompleted)(LPCOLESTR){return E_NOTIMPL;}
	STDMETHOD(GetCurFile)(LPOLESTR FAR*){return E_NOTIMPL;}

	// IExtractImage/IExtractImage2
	STDMETHOD(GetLocation)(LPWSTR pszPathBuffer, DWORD cchMax,
							DWORD *pdwPriority, const SIZE *prgSize,
							DWORD dwRecClrDepth, DWORD *pdwFlags)
{ return m_cbx.OnGetLocation(prgSize, pdwFlags); }
	STDMETHOD(Extract)(HBITMAP* phBmpThumbnail) { return m_cbx.OnExtract(phBmpThumbnail); }
	// IExtractImage2
	STDMETHOD(GetDateStamp)(FILETIME *pDateStamp) { return m_cbx.OnGetDateStamp(pDateStamp);}

	// IQueryInfo
	STDMETHOD(GetInfoTip)(DWORD dwFlags, LPWSTR* ppwszTip) { return m_cbx.OnGetInfoTip(ppwszTip);}

	STDMETHOD(GetInfoFlags)(LPDWORD pdwFlags) { *pdwFlags = 0; return E_NOTIMPL;}


	// ISupportsErrorInfo
	STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);

	// ICBXShell
	//public:

private:
	__cbx::CCBXArchive m_cbx;//implements methods code
};

HRESULT OnGetLocation(const SIZE *prgSize, DWORD *pdwFlags)
{
    ATLTRACE("IExtractImage2::GetLocation\n");
    m_thumbSize = *prgSize;
    *pdwFlags |= (IEIFLAG_CACHE | IEIFLAG_REFRESH);//cache thumbnails
    if (*pdwFlags & IEIFLAG_ASYNC) return E_PENDING;//???
return NOERROR;
}

Public Class Class1    
    Public Sub callMagicDLL(ByRef input As Integer, ByRef output As Integer)
        Dim myownClass As New CallWithMain()
        myownClass.Main()
    End Sub
End Class

Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices

Public Class CallWithMain

    Dim a As Integer
    Dim b As Integer

    <STAThread()> _
    Sub Main()
        Dim mymagicdll As New magic.magic       'Com object
        Dim a As Integer = 1
        Dim b As Integer = 1
        mymagicdll.magicdll(a, b)
    End Sub

End Class

Option Strict Off
Option Explicit On

Imports com.tibco.matrix.clr
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Xml.Serialization

Namespace www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa

    '''<remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "2.0.50727.1433"), _
     WebServiceInterface(MethodParameters:="InputMsg", PortTypeName:="HelloWorldPT", PortTypeNamespace:="http://www.example.com/com.tibco.amx.sample.helloworld.simple.java.soa/", WSDLLocation:="HelloWorld_HelloWorldPT.wsdl")> _
    Public Interface IHelloWorldPT

        '''<remarks/>    
        <System.Web.Services.WebMethodAttribute()> _
        Function sayHello(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://ns.tibco.com/Hello/")> ByVal HelloRequest As String) As String
    End Interface
End Namespace

Imports com.tibco.matrix.clr

Namespace ActiveMatrixComponent1
    <ServiceImplementation()> Public Class HelloWorld_HelloWorldPTImpl
        Implements www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa.IHelloWorldPT

        Dim log As System.Diagnostics.TraceSource

        Public Sub New()
            log = Funcs.ts
        End Sub

        Public Function sayHello(ByVal HelloRequest As String) As String Implements www.example.com.com.tibco.amx.sample.helloworld.simple.java.soa.IHelloWorldPT.sayHello

            Dim a1 As Integer = 1
            Dim b1 As Integer = 2

            Dim dllWrapper As New CallingMagicDLLWrapper.Class1
            dllWrapper.callMagicDLL(a1, b1)

            Return "dot net : " & Trim(Convert.ToString(b1))

        End Function
    End Class
End Namespace

CallServiceImpl: Unable to cast COM object of type 'magic.magicClass' to interface type 'magic.Dmagic'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{F1556D77-4488-489D-8B1F-53FC0F7AC312}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).; on machine = DHN00807

int a = 5;
int b = 6;            
int sum = 0;
double sumDouble = 0;
sumdll.sumdllClass sdc = new sumdll.sumdllClass();
sumDouble = sdc2.sumdll(ref a, ref b, ref sum);

Unable to cast COM object of type 'sumdll.sumdllClass' to interface type 'sumdll.Dsumdll'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{3DC9FCBA-9E72-49AA-B597-F9B2603D5EEA}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).

sumdll.sumdllClass sdc = new sumdll.   
	Dsumdll  		which is an interface
	Sumdll		which is an interface
	sumdllClas		which is a class

sumDouble = sdc2.sumdll(
			ref int input1, ref int input2, ref @input)

HRESULT hr = CoInitialize(0);		//CoCreateInstance(		SCRIPTOBJLib::IScriptObjPtr sobj;		//sobj->QueryInterface(IId_,void* &vp);		//HRESULT hRes = CComObject<CScriptObj>::CreateInstance(&sobj);		//CreateInstance(NULL,IID_IUnknown,(void*)&vp);		//HRESULT hres = sobj.CreateInstance  ( __uuidof(SCRIPTOBJLib::IScriptObj) );		//HRESULT hres = sobj.CreateInstance("ScriptObj 1.0 Type Library");		//at this point i am getting the error		sobj->SetLanguage((unsigned short *)"VBScript");		CoUninitialize();