delphi 调用com组件 new Com

CreateOleObject

 System.Win.ComObj.pas

System.Win.ComObj.hpp

#include <objbase.h>

 

 

Winapi.ActiveX.pas

 

CoInitialize(NULL);

 

Variant vapp;

vapp = Unassigned;

GUID guid = Comobj::StringToGUID("{F6295C21-BA09-418A-A98B-BAA87B50983E}");

vapp = (IUnknown*) CreateComObject(guid);

vapp.OleFunction("fun1",p1,p2);

v = Unassigned;

CoUninitialize

 

 CreateOleObject

 

Unassigned 在单元文件里 varaints

 

Variant obj = CreateOleObject("mycom.myView");

obj = Unassigned;

 

CoCreateInstance

http://blog.csdn.net/winglet/article/details/2872342

 

 

readydcard

   in_str: string;

  ou_str: string;

 

var   imcom: Variant;

    imcom := CreateOleObject('wwaa.windows.sdk.api');

    

    ou_str := imcom.fun(in_str);

  obj = Unassigned;

 

c#调用com

Type oleType = Type.GetTypeFromProgID("MCtestinterface.1.0");
            object oleObject = System.Activator.CreateInstance(oleType);
            oleType.InvokeMember("printreport", BindingFlags.InvokeMethod, null, oleObject, new object[] { hisrequest });
            return 0;