Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2014, 10:06   #1
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию DirectShow подключение незарегистрированного фильтра

Здравствуйте.
Нужно подключить к графу фильтр, который незарегистрирован в системе.
Например, C:\ffdshow\ffdshow.ax
Нарыл следующие два кода:
Код:
type  TDllGetClassObject = function(const CLSID, IID: TGUID; var Obj): HResult; stdcall;
var
    lib: Cardinal;
    dll: TDllGetClassObject;
    factory: IClassFactory;
begin
    Result := False;
    filter := nil;
    lib :=CoLoadLibrary(ALibrary,True);
    if lib = 0
      then Exit;
    dll := GetProcAddress(lib, 'DllGetClassObject');
    if not Assigned(dll)
      then Exit;

    if dll(AClassID, IClassFactory, factory) <> S_OK
      then Exit;

    Result := factory.CreateInstance(nil, IID_IBaseFilter, filter)=0;
и
Код:
function getfilter(var filter: IBaseFilter; const t: string; guid : TGUID): Boolean;
Var
DllRegisterServer: function : HResult; stdcall;
DllUnregisterServer: function : HResult; stdcall;
LibHandle: HMODULE;
begin
  Result := False;
  filter := nil;
  ChDir(ExtractFilePath(t));

LibHandle:= LoadLibrary(PChar(t));
DllRegisterServer:=GetProcAddress(LibHandle, 'DllRegisterServer');
DllRegisterServer;
Result := CoCreateInstance(guid, nil, CLSCTX_INPROC,  IID_IBaseFilter, filter)=0;
end;
Эти примеры работают только с фильтрами LAV. А как загрузить Haali media splitter и FFDShow?
Точнее, Haali media splitter тоже грузится, но выдаёт ошибку VFW_E_CANNOT_CONNECT.

Последний раз редактировалось BLACK_RAIN; 19.02.2014 в 10:11.
BLACK_RAIN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DirectShow ? wendstor Мультимедиа в Delphi 1 04.06.2012 21:21
подключение двух компьютеров к интернет через одно подключение Chudo4258 Помощь студентам 3 30.03.2010 16:07
DirectShow @lexender Мультимедиа в Delphi 0 14.04.2009 18:06
DirectShow Windows Мультимедиа в Delphi 4 22.10.2008 18:30