DirectShow видео из TStream

[Aliens_wolfs]

Добрый день форумчане!

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

Буду благодарен, весы под рукой.

[p51x]

Посмотрел в интернете примеры но нужного не нашел

https://msdn.microsoft.com/en-us/lib...sktop/dd317573

The application reads the file into memory at the specified rate and plays the file.

[Aliens_wolfs]

Спасибо конечно, но это описание я видел, не могу сообразить что и куда, хотелось бы примерчик создания ресурса видеопотока

пробовал так создать ресурс но не создается pSource = nil

 Result := coCreateInstance(CLSID_FileSource, nil,
                               CLSCTX_INPROC_SERVER,
                               IID_IFileSourceFilter, pSource);

пробовал так

    
var
 pMStream: IAMMultiMediaStream;
PrimaryVidStream: IMediaStream;
...............................................

if FAILED(CoCreateInstance(CLSID_AMMultiMediaStream, nil, CLSCTX_INPROC_SERVER,
    IID_IAMMultiMediaStream, pMStream)) then
    exit;
   if FAILED(pMStream.Initialize(STREAMTYPE_READ, AMMSF_NOGRAPHTHREAD, nil)) then
    exit;

   if FAILED(pMStream.AddMediaStream(nil, @MSPID_PrimaryVideo, 0, PrimaryVidStream)) then
    exit;

    pMStream.SetState(STREAMSTATE_RUN);

но ссылается на работу через файл pMStream.OpenFile(filename, 0);

Я не могу понять как создать ресурс который из буфера полученного по сети видео будет извлекать данные для воспроизведения и опять же скажу что мне нужно без файла все это делать.
Через файл работает но хотелось бы потоком

а потом буду воспроизводить так

pCaptureGraphBuilder.RenderStream(nil, @MEDIATYPE_Stream, pSource, nil, nil);

Сейчас пробую вот это, ошибки пока нет

 if FAILED(coCreateInstance(CLSID_AsyncReader, nil,  CLSCTX_INPROC_SERVER,  IID_IFileSourceFilter, pSourceRender)) then
exit

[BLACK_RAIN]

натыкался недавно на это: http://basicsprog.ucoz.ru/publ/6-1-0-39
Там в комментариях написано как сделать это для TFileStream. Думаю, TFileStream можно заменить на TStream.
Сам не пробовал.

[Aliens_wolfs]

Спасибо! Буду разбираться дальше, в этой ссылке кое что есть.
Жму на весы одобрения!)