TBCBasePin

type TBCBasePin = class(TBCUnknown,IPin,IQualityControl)

protected

  FPinName: Unicodestring;

  FConnected: IPin;

  Fdir: TPinDirection;

  FLock: TBCCritSec;

  FRunTimeError: Boolean;

  FCanReconnectWhenActive: Boolean;

  FTryMyTypesFirst: Boolean;

  FFilter: TBCBaseFilter;

  FQSink: IQualityControl;

  FTypeVersion: LongInt;

  Fmt: TAMMediaType;

  FStart: TReferenceTime;

  FStop: TReferenceTime;

  FRate: Double;

  FRef: LongInt;

  function GetCurrentMediaType;

  function GetAMMediaType;

  procedure DisplayPinInfo();

  procedure DisplayTypeInfo();

  function AttemptConnection();

  function TryMediaTypes();

  function AgreeMediaType();

  function DisconnectInternal;

public

  function NonDelegatingAddRef; override;

  function NonDelegatingRelease; override;

  constructor Create();

  destructor Destroy; override;

  function Connect(); virtual;

  function ReceiveConnection(); virtual;

  function Disconnect; virtual;

  function ConnectedTo(); virtual;

  function ConnectionMediaType(); virtual;

  function QueryPinInfo(); virtual;

  function QueryDirection();

  function QueryId(); virtual;

  function QueryAccept(); virtual;

  function EnumMediaTypes(); virtual;

  function QueryInternalConnections(); virtual;

  function EndOfStream; virtual;

  function BeginFlush; virtual; abstract;

  function EndFlush; virtual; abstract;

  function NewSegment(); virtual;

  function Notify(); virtual;

  function SetSink(); virtual;

  function IsConnected;

  property GetConnected: IPin; [r]

  function IsStopped;

  function GetMediaTypeVersion; virtual;

  procedure IncrementTypeVersion;

  function Active; virtual;

  function Inactive; virtual;

  function Run(); virtual;

  function CheckMediaType(); virtual; abstract;

  function SetMediaType(); virtual;

  function CheckConnect(); virtual;

  function BreakConnect; virtual;

  function CompleteConnect(); virtual;

  function GetMediaType(); virtual;

  property CurrentStopTime: TReferenceTime; [r]

  property CurrentStartTime: TReferenceTime; [r]

  property CurrentRate: Double; [r]

  property Name: Unicodestring; [r]

  property CanReconnectWhenActive: Boolean; [rw]

  property CurrentMediaType: TBCMediaType; [r]

  property AMMediaType: PAMMediaType; [r]

end;

TBCBasePin

TBCUnknown,IPin,IQualityControl

TBCBaseObject,IUnknown

TObject