703
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Button1Click(TObject *Sender) // 初始化COM并创建一个对象
{
HRESULT init;
HRESULT hr;
init=CoInitialize(NULL);//初始化 COM库
if(SUCCEEDED(init))
{
ShowMessage("初始化COM对象成功");
}
//-----------------------------------------------------------------
IRenishawDX10 *pDX10 =NULL; //创建一个对象
hr=CoCreateInstance(Dx10sdkadaptorlib_tlb::CLSID_DX10Adaptor,NULL,CLSCTX_INPROC_SERVER,Dx10sdkadaptorlib_tlb::IID_IRenishawDX10,(void**)&pDX10);
if(SUCCEEDED(hr))
{
BSTR bstrSerNum=0;
VARIANT_BOOL bOK;
pDX10->AddRef();
Edit1->Text="创建COM对象成功" ;
pDX10->Connect(&bstrSerNum,&bOK); //连接
pDX10->Release();
}
//-----------------------------------------------------------------
CoUninitialize(); //终止COM库
}