Существует ли FAQ по DirectShow DELPHI?

[Virus25]

Существует ли FAQ по DirectShow DELPHI обыскал весь инет так и не нашёл, попытался добыть сам всю инфу так на делфи её мало, в основном на VB и C# но я не стараюсь изучить багнутую систему програминга от мелкомягких и предпочитаю творить.

[s-andriano]

Так Вам нужна информация по Delphi или по DirectShow?
Это разные вещи.

[raxp]

...существует:
DirectShow по-русски (пользовался им поначалу, информации более чем)

[Virus25]

Сообщение от s-andriano

Так Вам нужна информация по Delphi или по DirectShow?
Это разные вещи.

Мне нужна инфа о DirectShow в Delphi....


Спасибо Raxp, за помощь просто этот сайт 2 дня лежал вот я и подумал мож другой фак есть а оффлайн версии фака нету?

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

берем телепорт и будет вам оффлайн версия.

[Virus25]

Это конечно поможет но телепортом не учень удобно работать.
raxp, Я вроде помню где то видел твою PDF книгу по онлайн видео с mms адресами а как например udp ТВ обработать и ещё один вопрос если не сложно как показать текст на видео, пробывал разные варианты но после составления графа видео не запускалось вернул к исходному всё гуд но так функция не работает вот как я составляю граф:

  if Assigned(_dsmp.MediaPosition) then _dsmp.MediaPosition := nil;
  if Assigned(_dsmp.BasicAudio) then _dsmp.BasicAudio  := nil;
  if Assigned(_dsmp.VideoWindow) then _dsmp.VideoWindow := nil;
  if Assigned(_dsmp.MediaEventEx) then _dsmp.MediaEventEx := nil;
  if Assigned(_dsmp.MediaControl) then _dsmp.MediaControl := nil;
  if Assigned(_dsmp.GraphBuilder) then _dsmp.GraphBuilder := nil;
  if Assigned(_dsmp.CaptureGraphBuilder2) then _dsmp.CaptureGraphBuilder2   := NIL;
  if Assigned(_dsmp.pBitmap) then  _dsmp.pBitmap:= NIL;

  hr := CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER, IID_IGraphBuilder, _dsmp.GraphBuilder);
  if hr<>0 then begin
    ShowMessage('Не удается создать граф');
    exit;
  end;
  
  hr := CoCreateInstance(CLSID_CaptureGraphBuilder2, NIL, CLSCTX_INPROC_SERVER, IID_ICaptureGraphBuilder2, _dsmp.CaptureGraphBuilder2);
_dsmp.CaptureGraphBuilder2.SetFiltergraph(_dsmp.GraphBuilder);

  hr := CoCreateInstance(CLSID_VideoMixingRenderer, nil, CLSCTX_INPROC, IID_IBaseFilter, _dsmp.pRenderer);
_dsmp.GraphBuilder.AddFilter(_dsmp.pRenderer, 'Video Renderer');
if failed(_dsmp.pRenderer.QueryInterface(IID_IVMRFilterConfig, _dsmp.pConfig)) then exit;
_dsmp.pConfig.SetNumberOfStreams(1);
//получаем интерфейс для смешивания изображения
if failed(_dsmp.pRenderer.QueryInterface(IID_IVMRMixerBitmap,  _dsmp.pBitmap)) then exit;

  hr := _dsmp.GraphBuilder.QueryInterface(IID_IMediaControl, _dsmp.MediaControl);
  if hr<>0 then begin
    ShowMessage('Не удается получить интерфейс IMediaControl');
    exit;
  end;
   hr := _dsmp.GraphBuilder.QueryInterface(IID_IMediaEvent, _dsmp.MediaEventEx);
   if hr<>0 then begin
    ShowMessage('Не удается получить интерфейс событий');
    exit;
  end;
  hr := _dsmp.GraphBuilder.QueryInterface(IID_IVideoWindow, _dsmp.VideoWindow);
  if hr<>0 then begin
    ShowMessage('Не удается получить IVideoWindow');
    exit;
  end;
   hr := _dsmp.GraphBuilder.QueryInterface(IID_IBasicAudio, _dsmp.BasicAudio);
  if hr<>0 then begin
    ShowMessage('Не удается получить аудио интерфейс');
    exit;
  end;
  hr := _dsmp.GraphBuilder.QueryInterface(IID_IMediaPosition, _dsmp.MediaPosition);
   if hr<>0 then begin
    ShowMessage('Не удается получить интерфейс управления позицией');
    exit;
  end;
  hr := _dsmp.GraphBuilder.AddFilter(_dsmp.pRenderer, 'WMV9');
  hr := _dsmp.GraphBuilder.RenderFile(StringToOleStr(PChar(Form22.playfiles)), '');
  if hr<>0 then begin
    ShowMessage('Не удается прорендерить файл');
    exit;
  end;

может что-то нужно поправить?

[raxp]

...это код с плеера Ramedia, исходники выкладывал на прокодере. Вы также можете взять исходники онлайн-ТВ плеера по одноименной статье.

[Virus25]

окей спс всем