Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > DirectShow Internet Streaming

Автор: Vaskevych 14.10.2011, 10:27

Всем привет помогите с созданием кода для просмотра потокового видео. Вот мой код с которого я начал:  Код   CoInitialize(nil);   CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER,     IID_IGraphBuilder, MyGraphBuilder);   MyGraphBuilder.AddFilter(FASFReader, 'WMASFReader');   MyGraphBuilder.RenderFile(StringToPWide('http://', iSize), nil);   MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);   MyGraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow1);   VideoWindow1.PUt_Owner(Self.Pan.Handle);   VideoWindow1.PUt_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);   VideoWindow1.SetWindowPosition(0, 0, Pan.ClientRect.Right,     Pan.ClientRect.Bottom);   MyMediaControl.Run; Он грузит некоторые потоки но не идеально, я б сказал даже плохо. Как реализовать загрузку и воспроизведение через протоколы rtsp; mms; http;   P.S. DSPack в некой мере не подходит !!!! И любые Activex тоже !!!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)