在下面的程式中， HRESULT hr =CoCreateInstance( ..... ); 而傳回的 hr 值為 -2147221008 ，這表示CoCreateInstance( ..... )失敗，所以在 if (SUCCEEDED(hr)) 這一行時判斷值為" 假 "，那接下來的程式便無法正常執行了，請問各位高手這到底是什麼原因?    //------------------------------------      IGraphBuilder *pGraph;   ICaptureGraphBuilder2 *pBuild;      // Create the Capture Graph Builder.   HRESULT hr = CoCreateInstance(CLSID_CaptureGraphBuilder2, NULL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, (void**)&pBuild);   if (SUCCEEDED(hr))   {     // Create the Filter Graph Manager.     Form1->Edit1->Text="Create Capture Graph Builder Seccess";     hr = CoCreateInstance(CLSID_FilterGraph, 0, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, (void**)&pGraph);     if (SUCCEEDED(hr))     {       Form1->Edit1->Text="Create Filter Graph Manager Success";       // Initialize the Capture Graph Builder.       pBuild->SetFiltergraph(pGraph);     }     else     {       Form1->Edit1->Text="Create Filter Graph Manager Failed";       pBuild->Release();     }     ICreateDevEnum *pDevEnum = NULL;     IEnumMoniker *pEnum = NULL;        // Create the System Device Enumerator.     hr = CoCreateInstance(CLSID_SystemDeviceEnum, NULL, CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, reinterpret_cast(&pDevEnum)); if (SUCCEEDED(hr)) { Form1->Edit1->Text="Create System Device Enumerator Success"; // Create an enumerator for the video capture category. hr = pDevEnum->CreateClassEnumerator(CLSID_VideoInputDeviceCategory, &pEnum, 0); IMoniker *pMoniker; while (pEnum->Next(1, &pMoniker, NULL) == S_OK) { IPropertyBag *pPropBag; hr = pMoniker->BindToStorage(0, 0, IID_IPropertyBag, (void**)(&pPropBag)); if (FAILED(hr)) { pMoniker->Release(); continue; // Skip this one, maybe the next one will work. } // Find the description or friendly name. VARIANT varName; VariantInit(&varName); hr = pPropBag->Read(L"Description", &varName, 0); if (FAILED(hr)) { hr = pPropBag->Read(L"FriendlyName", &varName, 0); } if (SUCCEEDED(hr)) { } pPropBag->Release(); pMoniker->Release(); } } else { Form1->Edit1->Text="Create System Device Enumerator Failed"; } } else { Form1->Edit1->Text="Create Capture Graph Builder Failed"; Form1->Edit2->Text=AnsiString(hr); }

jvory2k您好: PO程式碼請參考版規說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43591 謝謝您的配合 順心

引言: jvory2k您好: PO程式碼請參考版規說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=43591 謝謝您的配合 順心 < face="Verdana, Arial, Helvetica"> 謝謝，下次知道了。

引言: 在下面的程式中， HRESULT hr =CoCreateInstance( ..... ); 而傳回的 hr 值為 -2147221008 ，這表示CoCreateInstance( ..... )失敗，所以在 if (SUCCEEDED(hr)) 這一行時判斷值為" 假 "，那接下來的程式便無法正常執行了，請問各位高手這到底是什麼原因?

jvory2k 你好: 這段程式碼的目的應該是呼叫某個 ActiveX，先試試看在前後加上這些程式碼， 看看可不可以呼叫 (不過你要先確定作業系統裡面有你要呼叫的 ActiveX) < class="code"> HRESULT hr=S_FALSE; hr=CoInitialize(0); if(SUCCEEDED(hr)) { //...Do something... //...CoCreateInstance... } CoUninitialize(); -- Enjoy Researching & Developing --

引言:

引言: 在下面的程式中， HRESULT hr =CoCreateInstance( ..... ); 而傳回的 hr 值為 -2147221008 ，這表示CoCreateInstance( ..... )失敗，所以在 if (SUCCEEDED(hr)) 這一行時判斷值為" 假 "，那接下來的程式便無法正常執行了，請問各位高手這到底是什麼原因?

jvory2k 你好: 這段程式碼的目的應該是呼叫某個 ActiveX，先試試看在前後加上這些程式碼， 看看可不可以呼叫 (不過你要先確定作業系統裡面有你要呼叫的 ActiveX) < class="code"> HRESULT hr=S_FALSE; hr=CoInitialize(0); if(SUCCEEDED(hr)) { //...Do something... //...CoCreateInstance... } CoUninitialize(); -- Enjoy Researching & Developing --

謝謝，可以用了