srcfilter.int

来自「Delphi DirectShow lib code to use stream」· INT 代码 · 共 27 行

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