AVICAP32, перечисление устройств, почему не определяется видеокамера?

[Пепел Феникса]

камера Eye 110, в принципе так же должен определяться тюнер.
делал по примеру:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

function capGetDriverDescriptionW(wDriverIndex:WORD;
  lpszName:PChar;
  cbName:Integer;
  lpszVer:PChar;
  cbVer:Integer):BOOL;
  stdcall external 'AVICAP32.DLL';

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
    n,v:string;
begin
  hWndC := 0;
  for i := 0 to 9 do
    begin
     SetLength(n,255);
     SetLength(v,255);
     if capGetDriverDescriptionW(i,@n[1],Length(n),@v[1],Length(v))
      then begin
            SetLength(n,lstrlen(@n[1]));
            SetLength(v,lstrlen(@v[1]));
            Listbox1.Items.Add(n+':'+v);
           end
      else ListBox1.Items.Add('');
    end;
 Button2.Enabled:=false;
end;

но листбокс пуст, так же банально по индексам прогонялся, все равно ничего не получаю.

[Аватар]

D7

function capGetDriverDescriptionA(wDriverIndex:WORD;
  lpszName:PChar;
  cbName:Integer;
  lpszVer:PChar;
  cbVer:Integer):BOOL;
  stdcall external 'AVICAP32.DLL';

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    Name,Ver: array[0..255] of Char;
begin
  for i := 0 to 9 do
    if capGetDriverDescriptionA(i,@Name[0],256,@Ver[0],256)
      then Listbox1.Items.Add(String(Name)+':'+String(Ver))
      else Listbox1.Items.Add('');
end;

-- Получил (для i=0): Microsoft WDM Image Capture (Win32):Version: 6.1.7601.17514

[Пепел Феникса]

да тут наверно вопрос не по коду, я и в плюсах пробовал(там от СДК хидер) тот жже результат.
да и в Делфи когда проверял, то ветка true не наступает вообще...

в чем дело то может быть?

[Аватар]

А драйвер установлен? Функция не для определения устройства, а для определения имени и версии драйвера

[Пепел Феникса]

а что надо установить то?
на камеру стоят дрова, на тюнер тоже(но он сложное устройство(три видеовхода) и может в этом дело).

или какой еще есть метод для работы с камерой?(мне банально кадр получить, но перечисление желательно так же)

[Аватар]

Скорее всего, если по всем индексам False, то отсутствуют драйвера устройств, которые могут захватывать видео.

add

Гугл "захват видео с вебкамеры" полно примеров

[Пепел Феникса]

скорее уж драйвера совместимые с AVICAP32.

ну тогда как иначе получить картинку с камеры?(именно картинку, видео сейчас не очень то нужно)

[Человек_Борща]

Думаю при помощи этого:
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx
и
http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

Ну или взглянуть на то, как это делают другие:
http://sourceforge.net/projects/videocat/
http://sourceforge.net/projects/videomonitor/

[Аватар]

DSPack не пробовали?

[Пепел Феникса]

Человек_Борща, первое это и есть та самая AVICAP32, она старая как я выяснил, потому со многими устройствами уже не работает.

насчет DSPack, гляну.

так-с, на XE не удается поставить, требует уже скомпиленный DSUtil(или DSXUtil)...
как то нелогично..