Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

MSDN -> Delphi   Найти похожие ветки 

← →
Аноним   (2004-03-23 11:03) [0]

Есть такой листинг взятый с MSDN

[ccode]
ICreateDevEnum *pDevEnum = NULL;
IEnumMoniker *pEnum = NULL;

// Create the System Device Enumerator.
HRESULT hr = CoCreateInstance(CLSID_SystemDeviceEnum, NULL,
   CLSCTX_INPROC_SERVER, IID_ICreateDevEnum,
   reinterpret_cast<void**>(&pDevEnum));
if (SUCCEEDED(hr))
{
   // Create an enumerator for the video capture category.
   hr = pDevEnum->CreateClassEnumerator(
       CLSID_VideoInputDeviceCategory,
       &pEnum, 0);
}
[/ccode]

Как перевести это на Delphi? Помогите...

---

← →
Аноним   (2004-03-23 11:03) [0]

Есть такой листинг взятый с MSDN

[ccode]
ICreateDevEnum *pDevEnum = NULL;
IEnumMoniker *pEnum = NULL;

// Create the System Device Enumerator.
HRESULT hr = CoCreateInstance(CLSID_SystemDeviceEnum, NULL,
   CLSCTX_INPROC_SERVER, IID_ICreateDevEnum,
   reinterpret_cast<void**>(&pDevEnum));
if (SUCCEEDED(hr))
{
   // Create an enumerator for the video capture category.
   hr = pDevEnum->CreateClassEnumerator(
       CLSID_VideoInputDeviceCategory,
       &pEnum, 0);
}
[/ccode]

Как перевести это на Delphi? Помогите...

---

← →
Asdor ©   (2004-03-23 12:03) [1]


Uses ActiveX, ComObj, и TLB, где объявлены ICreateDevEnum и  IEnumMoniker;

var pDevEnum:ICreateDevEnum;
   PEnum:IEnumMoniker;
   hr:HResult;
begin
 hr:=CoCreateInstance(CLSID_SystemDeviceEnum, nil,
  CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, pDevEnum);
 if Succeeded(hr) then
 begin
   hr:=pDevEnum.CreateClassEnumerator(CLSID_VideoInputDeviceCategory, pEnum, 0);
 end;
end;

И что же здесь сложного?

---

← →
Asdor ©   (2004-03-23 12:03) [1]


Uses ActiveX, ComObj, и TLB, где объявлены ICreateDevEnum и  IEnumMoniker;

var pDevEnum:ICreateDevEnum;
   PEnum:IEnumMoniker;
   hr:HResult;
begin
 hr:=CoCreateInstance(CLSID_SystemDeviceEnum, nil,
  CLSCTX_INPROC_SERVER, IID_ICreateDevEnum, pDevEnum);
 if Succeeded(hr) then
 begin
   hr:=pDevEnum.CreateClassEnumerator(CLSID_VideoInputDeviceCategory, pEnum, 0);
 end;
end;

И что же здесь сложного?

---

← →
Аноним   (2004-03-23 12:14) [2]

Я простно не знал чего подключать. Кстати пишет, что нет такого - "TLB".
Как быть?

---

← →
Аноним   (2004-03-23 12:14) [2]

Я простно не знал чего подключать. Кстати пишет, что нет такого - "TLB".
Как быть?

---

← →
Asdor ©   (2004-03-23 12:34) [3]

Знаешь, что такое библиотека типов?
Тебе надо импортировать в проект библиотеку типов DirectShow и прописать ее в uses вместо того, что я написал как TLB. из какой dll"ки ее импортировать, я не знаю, т.к. не занимался этим. Ищи.

---

← →
Asdor ©   (2004-03-23 12:34) [3]

Знаешь, что такое библиотека типов?
Тебе надо импортировать в проект библиотеку типов DirectShow и прописать ее в uses вместо того, что я написал как TLB. из какой dll"ки ее импортировать, я не знаю, т.к. не занимался этим. Ищи.

---

← →
Аноним   (2004-03-23 12:55) [4]

Все нашел, спасибо.

---

← →
Аноним   (2004-03-23 12:55) [4]

Все нашел, спасибо.

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.038 c