видео

[BAZA]

Я запускаю видео а оно у меня слишком быстро перематывается что надо сделать что было нормально?может в другой формат?

[KORN]

если ты юзаешь медиаплеер, то такое бывает из за кодека...

[BAZA]

а как можно воспроизвести видео что оно нормально шло?

[KORN]

либо кодек другой, либо ищи другой компонент для работы с видео

[BOBAH13]

Не компонент, а смотрим в сторону DirectShow, потом IGraphBuilder.RenderFile потом убиваем пин стандартного рендеринга и ставим свой перехват и выводим через SampleBuffer, если конечно надо отлавливать каждый кадр и не нужно окно вывода, потом ставим фильтр NullRenderer и вперед на IMediaControl.Run

[BAZA]

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

Не компонент, а смотрим в сторону DirectShow, потом IGraphBuilder.RenderFile потом убиваем пин стандартного рендеринга и ставим свой перехват и выводим через SampleBuffer, если конечно надо отлавливать каждый кадр и не нужно окно вывода, потом ставим фильтр NullRenderer и вперед на IMediaControl.Run

извеняюсь но я мало что понял я токо начинающий програмист можно обьяснить по подробней пожалуйсто!

[BAZA]

и большая просьба обьяснять где что находится!!!

[BOBAH13]

DirectShow - система предоставляет этот набор инструментов-интерфейсов для работы со всеми форматами, для которых существуют кодеки на машине, где приложение ваше запускается. Отрываю от сердца куски кода, реализовал это в галерее-стеке в моей программы XWindows Dock. Извените но объяснять комментами лень, все в сети можно прочитать, но то как выводить видео куда вы захотите НИГДЕ нет. Но я с помощью одного человека с сайта "DirectShow по русски" сделал это.
Понадобится DirectShow9

На счет SampleGrabber - будут вопросы, отвечу.

GraphBuilder: IGraphBuilder;
    FilterSampleGrabber: IBaseFilter;
    SampleGrabber: ISampleGrabber;
    MediaControl: IMediaControl;
    MediaPosition: IMediaPosition;
    NullRenderer: IBaseFilter;

...

procedure TfrmImageGallery.Play;
var
  MediaType: TAMMediaType;
  Result: HRESULT;
begin
  GraphBuilder := NIL;
  FilterSampleGrabber := NIL;
  SampleGrabber := NIL;
  MediaControl := NIL;
  MediaPosition := NIL;
  NullRenderer := NIL;
  
  CoCreateInstance(CLSID_FilterGraph, NIL, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphBuilder);

  Result := GraphBuilder.RenderFile(PWCHAR(WideString('test.avi')), NIL);
  if Failed(Result) then
    Exit;

  CoCreateInstance(CLSID_SampleGrabber, NIL, CLSCTX_INPROC_SERVER, IID_IBaseFilter, FilterSampleGrabber);
  FilterSampleGrabber.QueryInterface(IID_ISampleGrabber, SampleGrabber);

  FillChar(MediaType, SizeOf(MediaType), 0);
  MediaType.majortype := MEDIATYPE_Video;
  MediaType.subtype := MEDIASUBTYPE_RGB24;
  SampleGrabber.SetMediaType(MediaType);
  SampleGrabber.SetBufferSamples(True);
  SampleGrabber.SetOneShot(False);
  SampleGrabber.SetCallback(Self, 0);
  GraphBuilder.AddFilter(FilterSampleGrabber, 'Sample Grabber');

  // как раз с параллельной темы, именно этот фильтр делает задержки для каждого кадра видео
  CoCreateInstance(CLSID_NullRenderer, NIL, CLSCTX_INPROC_SERVER, IID_IBaseFilter, NullRenderer);
  GraphBuilder.AddFilter(NullRenderer, 'Null Renderer');

  // если нужно, то именно тут происходить перенаправление видео вывода
  RemoveDefault(GraphBuilder, NullRenderer, FilterSampleGrabber);
  
  GraphBuilder.QueryInterface(IID_IMediaControl, MediaControl);
  GraphBuilder.QueryInterface(IID_IMediaPosition, MediaPosition);
  
  MediaControl.Run;
end;

...

function GetPin(pFilter: IBaseFilter; PintDir: TPinDirection): IPin;
var
  bFound: Boolean;
  pEnum: IEnumPins;
  pPin: IPin;
  hr: HRESULT;
  PinDirThis: TPinDirection;
begin
  Result := NIL;
  bFound := False;

  hr := pFilter.EnumPins(pEnum);
  if Failed(hr) then
    Exit;

  while (pEnum.Next(1, pPin, NIL) = S_OK) do
  begin
    pPin.QueryDirection(PinDirThis);
    bFound := (PintDir = PinDirThis);
    if bFound then
      Break;
    pPin := NIL;
  end;

  pEnum := NIL;
  if bFound then
    Result := pPin;
end;

procedure RemoveDefault(pGraph: IGraphBuilder; pNULLRenderer, pGrabberBase: IBaseFilter);
var
  pVidRenderer, pColorConverter: IBaseFilter;
  Pin, oPin: IPin;
begin
  pGraph.FindFilterByName('Video Renderer', pVidRenderer);
  if (pVidRenderer <> NIL) then
  begin
    Pin := GetPin(pVidRenderer, PINDIR_INPUT);
    oPin := NIL;
    Pin.ConnectedTo(oPin);
    Pin.Disconnect;
    oPin.Disconnect;
    Pin := NIL;

    pGraph.RemoveFilter(pVidRenderer);
    pVidRenderer := NIL;

    pGraph.FindFilterByName('Color Space Converter', pColorConverter);
    if (pColorConverter <> NIL) then
    begin
      oPin := NIL;
      Pin := GetPin(pColorConverter, PINDIR_INPUT);
      Pin.ConnectedTo(oPin);
      Pin.Disconnect;
      oPin.Disconnect;
      Pin := NIL;

      pGraph.RemoveFilter(pColorConverter);
      pColorConverter := NIL;
    end;

    Pin := GetPin(pGrabberBase, PINDIR_INPUT);
    pGraph.Connect(oPin, Pin);
    Pin := NIL;
    oPin := NIL;

    oPin := GetPin(pGrabberBase, PINDIR_OUTPUT);
    Pin := GetPin(pNULLRenderer, PINDIR_INPUT);

    pGraph.Connect(oPin, Pin);
    Pin := NIL;
    oPin := NIL;
  end;
end;

[BAZA]

извени но я мало что понял

[BAZA]

я понял почему видео шло в ускореном темпе єто из-за формата avi с форматом gpeg всё нормально1!!!