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;

 https://www.cnblogs.com/ShaYeBlog/p/4811297.html