Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.13;
Скачать: CL | DM;

Вниз

Настройка разрешения выводимой картинки   Найти похожие ветки 

 
denis24   (2006-02-16 12:28) [0]

Подскажите пожалуста.
Через компоненты DSPack делаю захват изображения .
Перед этим пытаюсь настроить разрешение .

Var
hr                  : HRESULT;
pmt                 : PAMMediaType;
begin
hr := (FilterGraph as ICaptureGraphBuilder2).FindInterface(@PIN_CATEGORY_CAPTURE, @MEDIATYPE_Video, Filter as IBaseFilter, IID_IAMStreamConfig, pVideoStreamConfig);
if (hr <> NOERROR) Then raise Exception.Create("Unable create instance of IAMStreamConfig");

hr := pVideoStreamConfig.GetFormat(pmt);      
if (hr <> NOERROR) Then
Begin
  pVideoStreamConfig := Nil;
  raise Exception.Create("Unable get stream video format");
End;
VIDEOINFOHEADER(pmt.pbFormat^).bmiHeader.biWidth  := 640;
VIDEOINFOHEADER(pmt.pbFormat^).bmiHeader.biHeight := 480;
hr := pVideoStreamConfig.SetFormat(pmt^);

if (hr <> NOERROR) then raise Exception.Create("Unable set stream video format");



Если пытаюсь сделать увеличить разрешение до 800*600 или 1024*768
Ты выходит ошибка "Unable set stream video format"

640*480 это упор?


 
Дмитрий Белькевич ©   (2006-02-18 21:17) [1]

Всё зависит от захвата. Возможно, и не упор, но ты не попадаешь на нужный размер - например, 720х576. Другой режим, кроме как из списка поддерживаемых устройством установить нельзя.


 
denis24   (2006-02-20 12:15) [2]

А как этот список получить?


 
Дмитрий Белькевич ©   (2006-02-20 12:23) [3]

IAMStreamConfig = interface(IUnknown)
   ["{C6E13340-30AC-11d0-A18C-00A0C9118956}"]
   (*** IAMStreamConfig methods ***)
   function SetFormat(const pmt: TAMMediaType): HResult; stdcall;
   function GetFormat(out ppmt: PAMMediaType): HResult; stdcall;
   function GetNumberOfCapabilities(out piCount, piSize: Integer): HResult; stdcall;
   function GetStreamCaps(iIndex: Integer; out ppmt: PAMMediaType;
     out pSCC): HResult; stdcall;
 end;

Последних два смотри. Afaik оно.



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

Текущий архив: 2006.08.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.033 c
2-1153981167
fedpavel
2006-07-27 10:19
2006.08.13
Qreport


3-1145355789
Квэнди
2006-04-18 14:23
2006.08.13
Dbexpress+ mysql5


15-1152911962
Marser
2006-07-15 01:19
2006.08.13
Вынесен вердикт суда по делу четырех суперклубов.


2-1153673419
Debilo
2006-07-23 20:50
2006.08.13
Скриншот экрана


2-1153819926
ViNaSa
2006-07-25 13:32
2006.08.13
Пакетирование в Delphi