srcfilter.int

Delphi DirectShow lib code to use streaming media. Use these libs to make delphi faster.

unit SrcFilter;
{$D-}

interface
uses
  ActiveX,
  Classes,
  DirectShow9,
  BaseClass,
  DSPack;

type
  TCustomSrcFilter = class(TBCBaseFilter)
  protected
  public
    constructor Create(AStream : TStream; FwdOnly: boolean = false; const StreamSize: Int64 = 0); overload;
    constructor Create(AStream : IStream; FwdOnly: boolean = false; const StreamSize: Int64 = 0); overload;
    destructor Destroy; override;
    function GetPin(n: Integer): TBCBasePin; override;
    function GetPinCount: Integer; override;

    property OutPin : IPin read GetOutPin;
    function NonDelegatingRelease: Integer; override; stdcall;
  end;

implementation