COM

'My capacity for happiness', he added, 'you could fit into a matchbox without taking out the matches first'.

- Marvin, the robot.

Amit Dey

sonork: 100:18407
msn: visualcdev

#include "stdafx.h"
#include "windows.h"
#import "testObj.dll"
/*
// testObj.idl : IDL source for testObj.dll

import "oaidl.idl";
import "ocidl.idl";
	[
		object,
		uuid(C795331D-0C56-11D6-A0FD-00B0D0C3D9BD),
		dual,
		helpstring("Itest Interface"),
		pointer_default(unique)
	]
	interface Itest : IDispatch
	{
		[id(1), helpstring("method f")] HRESULT f();
		[id(2), helpstring("method In")] HRESULT In([in] BSTR wsIn);
	};

[
	uuid(C7953311-0C56-11D6-A0FD-00B0D0C3D9BD),
	version(1.0),
	helpstring("testObj 1.0 Type Library")
]
library TESTOBJLib
{
	importlib("stdole32.tlb");
	importlib("stdole2.tlb");

	[
		uuid(C795331E-0C56-11D6-A0FD-00B0D0C3D9BD),
		helpstring("test Class")
	]
	coclass test
	{
		[default] interface Itest;
		interface Itest2;
	};
};

*/

#include "comdef.h"
class MyNew: public ::TESTOBJLib::ItestPtr
{
public:
	MyNew()
	{
		::CoInitialize(0);
		::TESTOBJLib::ItestPtr p;
		(*((::TESTOBJLib::ItestPtr*)this)).CreateInstance(L"TestObj.test");

	}
	~MyNew()
	{
		this->Release();
		::CoUninitialize();
	}

	HRESULT In( _bstr_t wsIn )
	{//call default function
		(*((::TESTOBJLib::ItestPtr*)this))->In(wsIn);
		return S_OK;
	};

	HRESULT f()
	{//overwritten function
		::OutputDebugString("this my function.");
		return S_OK;
	}
};

int main(int argc, char* argv[])
{
	MyNew p;

	p.f();
	p.In("test");
	
	return 0;
}