Как получить снимок с веб-камеры через пин STILL

[Daemvil]

Доброго времени суток! Подскажите, пожалуйста, как через PIN_CATEGORY_STILL (через PIN_CATEGORY_PREVIEW работает, но надо STILL) кадр c веб-камеры снять через DirectShow?
Изучал MSDN, сделал все по инструкции, но не помогло. На всякий случай выложу код. Может, будут какие-нить мысли у кого? Строка Result := FSampleGrabber.GetCurrentBuffer(bSi ze, NIL); в процедуре получения кадра выдает Result=VFW_E_WRONG_STATE

function CaptureBitMap: HResult; // Процедура получения кадра с камеры
var
  bSize: integer;
  pVideoHeader: TVideoInfoHeader;
  MediaType: TAMMediaType;
  BitmapInfo: TBitmapInfo;
  Buffer: Pointer;
  tmp: array of byte;
  Bitmap: TBitmap;
  JpegIm: TJpegImage;
begin
  Result := E_FAIL;
  if FSampleGrabber = NIL then EXIT;
 
    Result := FSampleGrabber.GetCurrentBuffer(bSize, NIL); // тут result=VFW_E_WRONG_STATE
    if (bSize <= 0) or FAILED(Result) then EXIT;
  Bitmap := TBitmap.Create;
   ...
    except
      Result := E_FAIL;
    end;
  finally
    SetLength(tmp, 0);
    Bitmap.Free;
    JpegIm.Free;
  end;
end;
 
function CreateGraph(const mode: byte; CB, CBPreviewSize, CBStillSize:TCombobox; Panel1:TPanel): HResult;
///////////////////////////////////////////////// Создание графа
var
  pConfigMux: IConfigAviMux;
begin
  FVideoCaptureFilter  := NIL;
  FVideoWindow         := NIL;
  FMediaControl        := NIL;
  FSampleGrabber       := NIL;
  FBaseFilter          := NIL;
  FCaptureGraphBuilder := NIL;
  FGraphBuilder        := NIL;
 
// объект для графа фильтров
  Result:=CoCreateInstance(CLSID_FilterGraph, NIL, CLSCTX_INPROC_SERVER,
                           IID_IGraphBuilder, FGraphBuilder);
// объект для граббинга
  Result:=CoCreateInstance(CLSID_SampleGrabber, NIL, CLSCTX_INPROC_SERVER,
                               IID_IBaseFilter, FBaseFilter);
// объект для графа захвата
  Result:=CoCreateInstance(CLSID_CaptureGraphBuilder2, NIL, CLSCTX_INPROC_SERVER,
                           IID_ICaptureGraphBuilder2, FCaptureGraphBuilder);
// добавляем фильтр в граф
  Result:=FGraphBuilder.AddFilter(FBaseFilter, 'GRABBER');
// Получаем интерфейс фильтра перехвата
  Result:=FBaseFilter.QueryInterface(IID_ISampleGrabber, FSampleGrabber);
 // Result:=FBaseFilter.QueryInterface(IID_IDCM800, FDCM800);
 
  if FSampleGrabber <> NIL then
  begin
    //обнуляем память
    ZeroMemory(@MediaType, sizeof(AM_MEDIA_TYPE));
    // Устанавливаем формат данных для фильтра перехвата
 
    FSampleGrabber.GetConnectedMediaType(mediatype);
    with MediaType do
    begin
      majortype  := MEDIATYPE_Video;
      subtype    := MEDIASUBTYPE_RGB24;
      formattype := FORMAT_VideoInfo;
      bfixedSizeSamples:=true;
      bTemporalCompression:=False;
    end;
 
    FSampleGrabber.SetMediaType(MediaType);
    FSampleGrabber.SetBufferSamples(TRUE);
    FSampleGrabber.SetOneShot(FALSE);
  end;
Result:=FCaptureGraphBuilder.SetFiltergraph(FGraphBuilder);
if FAILED(Result) then EXIT;
 
if CB.ItemIndex>=0 then
           begin
              result:=MonikerArray[CB.ItemIndex].BindToObject(NIL, NIL, IID_IBaseFilter, FVideoCaptureFilter);
              //добавляем устройство в граф фильтров
              FGraphBuilder.AddFilter(FVideoCaptureFilter, 'VideoCaptureFilter');               
Result:=FVideoCaptureFilter.QueryInterface(IID_IDCM800, FDCM800);// Получаем интерфейс камеры
              //применяем свойства
                Result:=FDCM800.put_PreviewSize(eDCM800Size(CBPreviewSize.itemindex));
                Result:=FDCM800.put_StillSize(eDCM800Size(CBStillSize.itemindex));
           end;
//Задаем, что откуда будем получать и куда оно должно выводиться
Result:=FCaptureGraphBuilder.RenderStream(@PIN_CATEGORY_STILL, @MEDIATYPE_Video, FVideoCaptureFilter ,FBaseFilter  ,nil); 
// так сказано делать в MSDN
 
Result:=FGraphBuilder.QueryInterface(IID_IVideoWindow, FVideoWindow);
FVideoWindow.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
FVideoWindow.put_Owner(Panel1.Handle);
FVideoRect:=Panel1.ClientRect;
FVideoWindow.SetWindowPosition(FVideoRect.Left,FVideoRect.Top, FVideoRect.Right - FVideoRect.Left,FVideoRect.Bottom - FVideoRect.Top);
FVideoWindow.put_Visible(TRUE);
 
Result:=FGraphBuilder.QueryInterface(IID_IMediaControl, FMediaControl);
if FAILED(Result) then Exit;
FMediaControl.Run();
end;

[Daemvil]

И снова здравствуйте! Похоже, никак не получится этого сделать? это глюк DirectShow?...

[Stilet]

Я бы помог, но никогда с ним не работал.

[NIKOLAYY2]

Daemvil
Установи компоненты DSPach и через них делай, чем они тебя не устраивают?

[Daemvil]

Сообщение от NIKOLAYY2

Установи компоненты DSPach и через них делай, чем они тебя не устраивают?

DSPach? не опечатка? не слышал такого, подскажите где взять.
а если имели ввиду все-таки DSPack - подскажите, пожалуйста, как в нем составить граф для получения кадра не с пина PREVIEW, а с пина STILL?