开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MMMixer.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：89k
源码类别：

Delphi控件源码

开发平台：

Delphi

MMMixer.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Tel.: +0351-8012255                   =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 12.02.98 - 06:07:59 $                                        =}
  24. {========================================================================}
  25. unit MMMixer;
  27. {$I COMPILER.INC}
  29. interface
  31. uses
  32. {$IFDEF WIN32}
  33.     Windows,
  34. {$ELSE}
  35.     WinTypes,
  36.     WinProcs,
  37. {$ENDIF}
  38.     Messages,
  39.     Classes,
  40.     SysUtils,
  41.     Forms,
  42.     MMSystem,
  43.     MMObj,
  44.     MMUtils,
  45.     MMObsrv,
  46.     MMDevice;
  48. type
  49.     { D3: This lines rely on current Win32 API}
  51.     { To override Borland's bug directly declare TMixerControl }
  52.     { instead of TMixerControlA                                }
  53.     PMixerControl = ^TMixerControl;
  54.     TMixerControl = record
  55.         cbStruct     : DWORD; { size in bytes of MIXERCONTROL         }
  56.         dwControlID  : DWORD; { unique control id for mixer device    }
  57.         dwControlType: DWORD; { MIXERCONTROL_CONTROLTYPE_xxx          }
  58.         fdwControl   : DWORD; { MIXERCONTROL_CONTROLF_xxx             }
  59.         cMultipleItems: DWORD; { if MIXERCONTROL_CONTROLF_MULTIPLE set }
  60.         szShortName  : array[0..MIXER_SHORT_NAME_CHARS - 1] of AnsiChar;
  61.         szName       : array[0..MIXER_LONG_NAME_CHARS - 1] of AnsiChar;
  62.         Bounds: record
  63.            case Integer of
  64.                0: (lMinimum, lMaximum: Longint);
  65.                { !! HERE IT IS !! }
  66.                1: (dwMinimum, dwMaximum: DWORD);
  67.                2: (dwReserved: array[0..5] of DWORD);
  68.                { !! HERE IT IS !! }
  69.         end;
  70.         Metrics: record
  71.            case Integer of
  72.                0: (cSteps: DWORD);       { # of steps between min & max }
  73.                1: (cbCustomData: DWORD); { size in bytes of custom data }
  74.                2: (dwReserved: array[0..5] of DWORD);
  75.         end;
  76.     end;
  78. const
  79.     badLineId    = -1;
  80.     badControlId = -1;
  81.     NoItem       = -1;
  83. type
  84.     { D3: This lines rely on current Win32 API}
  85.     {$IFDEF WIN32}
  86.     TMMLineId           = type integer;
  87.     TMMControlId        = type integer;
  88.     TMMChannelIndex     = Integer;
  89.     TMMItemIndex        = type Integer;
  90.     TMMLineIndex        = Integer;
  91.     TMMControlIndex     = Integer;
  92.     TMMConnectionIndex  = Integer;
  93.     {$ENDIF}
  94.     TMMComponentType    = (ctDstDigital,ctDstHeadPhones,ctDstLine,
  95.                            ctDstMonitor,ctDstSpeakers,ctDstTelephone,
  96.                            ctDstUndefined,ctDstVoiceIn,ctDstWaveIn,
  97.                            ctSrcAnalog,ctSrcAux,ctSrcCD,ctSrcDigital,
  98.                            ctSrcLine,ctSrcMicrophone,ctSrcPCSpeaker,
  99.                            ctSrcSynthesizer,ctSrcTelephone,ctSrcUndefined,
  100.                            ctSrcWaveOut);
  102.     TMMControlClass     = (ccCustom,ccFader,ccList,ccMeter,ccNumber,
  103.                            ccSlider,ccSwitch,ccTime);
  104.     TMMControlClasses   = set of TMMControlClass;
  106.     TMMControlType      = (ctCustom,ctBass,ctEqualizer,ctFader,ctTreble,
  107.                            ctVolume,ctMixer,ctMultipleSelect,ctMux,
  108.                            ctSingleSelect,ctBooleanMeter,ctPeakMeter,
  109.                            ctSignerMeter,ctUnsignedMeter,ctDecibels,
  110.                            ctPercent,ctSigned,ctUnsigned,ctPan,ctQSoundPan,
  111.                            ctSlider,ctBoolean,ctButton,ctLoudness,ctMono,
  112.                            ctMute,ctOnOff,ctStereoEnh,ctMicroTime,ctMilliTime);
  114.     TMMLineChangeEvent      = procedure(Sender: TObject; LineId: TMMLineId) of object;
  115.     TMMControlChangeEvent   = procedure(Sender: TObject; LineId: TMMLineId; CtlId: TMMControlId) of object;
  117. {$IFNDEF BUILD_ACTIVEX}
  118.     TMMComponent1 = TMMComponent;
  119. {$ELSE}
  120.     TMMComponent1 = TMMNonVisualComponent;
  121. {$ENDIF}
  123.     {-- TMMMixerDevice ------------------------------------------------------}
  124.     TMMMixerDevice = class(TMMCustomAudioDevice)
  125.     private
  126.        FHandle        : HMIXER;
  127.        FCBWnd         : HWND;
  128.        FDevice        : TMMCustomAudioDevice;
  129.        FObserver      : TMMObserver;
  130.        FObservable    : TMMObservable;
  131.        FDummyInd      : TMMLineIndex;
  132.        FOnLineChange  : TMMLineChangeEvent;
  133.        FOnControlChange: TMMControlChangeEvent;
  135.        procedure SetDevice(Value: TMMCustomAudioDevice);
  136.        procedure DeviceNotify(Sender, Data: TObject);
  137.        function  StoreDeviceId: Boolean;
  138.        function  GetDestinations: TMMLineIndex;
  139.        function  GetDestination(Index: TMMLineIndex): TMMLineId;
  140.        function  GetMixerId: TMMDeviceId;
  141.        procedure MixerWndProc(var Msg: TMessage);
  142.     protected
  143.        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  144.        procedure Changed; override;
  145.        procedure UpdateDevice; override;
  146.        procedure Open; override;
  147.        procedure Close; override;
  148.        procedure LineChanged(LineId: TMMLineId); virtual;
  149.        procedure ControlChanged(CtlId: TMMControlId); virtual;
  150.        procedure DoLineChange(LineId: TMMLineId); dynamic;
  151.        procedure DoControlChange(LineId: TMMLineId; CtlId: TMMControlId); dynamic;
  152.        { D3: This lines rely on current Win32 API}
  153.        function  GetLineInfo(var Info: TMixerLine; Flags: DWORD): Boolean;
  154.        procedure GetControlValues(Id: TMMControlId; ItemSize: DWORD; Channels: Integer; Items: TMMItemIndex; Values: Pointer; Flags: DWORD);
  155.        procedure SetControlValues(Id: TMMControlId; ItemSize: DWORD; Channels: Integer; Items: TMMItemIndex; Values: Pointer; Flags: DWORD);
  156.        function  GetControlInfo(var Info: TMixerLineControls; Flags: DWORD): Boolean;
  157.     public
  158.        constructor Create(AOwner: TComponent); override;
  159.        destructor  Destroy; override;
  161.        procedure AddObserver(O: TMMObserver);
  162.        procedure RemoveObserver(O: TMMObserver);
  164.        function  GetLineOfControl(CtlId: TMMControlId): TMMLineId;
  166.        function  GetLineInfoById(LineId: TMMLineId; var Info: TMixerLine): Boolean;
  167.        function  GetLineInfoByCompType(CompType: TMMComponentType; var Info: TMixerLine): Boolean;
  168.        function  GetLineInfoByTarget(Device: TMMCustomAudioDevice; var Info: TMixerLine): Boolean;
  169.        function  GetLineInfoByDestination(Dest: TMMLineIndex; var Info: TMixerLine): Boolean;
  170.        function  GetLineInfoBySource(Dest, Src: TMMLineIndex; var Info: TMixerLine): Boolean;
  172.        function  GetControlInfoById(ControlId: TMMControlId; var Info: TMixerControl): Boolean;
  173.        function  GetControlInfoByType(LineId: TMMLineId; ControlType: TMMControlType; var Info: TMixerControl): Boolean;
  174.        function  GetControlByType(LineId: TMMLineId; ControlType: TMMControlType): TMMControlId;
  176.        procedure GetAllControls(LineId: TMMLineId; Controls: TMMControlIndex; P: PMixerControl);
  178.        procedure GetBooleanControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PBoolean);
  179.        procedure SetBooleanControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PBoolean);
  180.        procedure GetSignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PInteger);
  181.        procedure SetSignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PInteger);
  182.        procedure GetUnsignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PCardinal);
  183.        procedure SetUnsignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PCardinal);
  185.        procedure GetItemsInfo(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Infos: PMixerControlDetailsListText);
  187.        { If mixer is opened then get id of handle and update DeviceId if needed }
  188.        property MixerId: TMMDeviceId read GetMixerId;
  189.        property Destination[Index:TMMLineIndex]: TMMLineId read GetDestination;
  190.     published
  191.        property DeviceId stored StoreDeviceId;
  192.        property Device: TMMCustomAudioDevice read FDevice write SetDevice;
  193.        property Destinations: TMMLineIndex read GetDestinations write FDummyInd stored False;
  194.        property OnLineChange: TMMLineChangeEvent read FOnLineChange write FOnLineChange;
  195.        property OnControlChange: TMMControlChangeEvent read FOnControlChange write FOnControlChange;
  196.     end;
  198.     {-- TMMMixerChange --------------------------------------------------}
  199.     TMMMixerChange = class(TMMObject)
  200.     end;
  202.     {-- TMMLineChange ---------------------------------------------------}
  203.     TMMLineChange = class(TMMMixerChange)
  204.     public
  205.        LineId: TMMLineId;
  206.     end;
  208.     {-- TMMControlChange ------------------------------------------------}
  209.     TMMControlChange = class(TMMMixerChange)
  210.     public
  211.        LineId   : TMMLineId;
  212.        ControlId: TMMControlId;
  213.     end;
  215.     {-- TMMMixerDeviceError ---------------------------------------------}
  216.     EMMMixerDeviceError = class(EMMDeviceError)
  217.     end;
  219.     {-- TMMAudioLine ----------------------------------------------------}
  220.     TMMLineSetup    = (lsLineId,lsCompType,lsTarget);
  222.     { D3: This lines rely on current Win32 API}
  223.     TMMLineFlag     = (cfActive,cfDisconnected,cfSource);
  224.     TMMLineFlags    = set of TMMLineFlag;
  226.     {-- TMMLineInfo -----------------------------------------------------}
  227.     TMMLineInfo     = class(TPersistent)
  228.     private
  229.        FFlags      : TMMLineFlags;
  230.        FChannels   : Integer;
  231.        FConnections: Integer;
  232.        FControls   : Integer;
  233.        FShortName  : string;
  234.        FName       : string;
  236.        FLDummy     : Integer;
  237.        FFDummy     : TMMLineFlags;
  239.        procedure SetDummyStr(const Value: string);
  240.     public
  241.        procedure Clear;
  242.     published
  243.        property  Flags: TMMLineFlags read FFlags write FFDummy stored False;
  244.        property  Channels: TMMChannelIndex read FChannels write FLDummy stored False;
  245.        property  Connections: TMMConnectionIndex read FConnections write FLDummy stored False;
  246.        property  Controls: TMMControlIndex read FControls write FLDummy stored False;
  247.        property  ShortName: string read FShortName write SetDummyStr stored False;
  248.        property  Name: string read FName write SetDummyStr stored False;
  249.     end;
  251.     {-- TMMAudioLine ----------------------------------------------------}
  252.     TMMAudioLine = class(TMMNonVisualComponent)
  253.     private
  254.        FLineId         : TMMLineId;
  255.        FDestinationId  : TMMLineIndex;
  256.        FDestLine       : TMMAudioLine;
  257.        FDestObserver   : TMMObserver;
  258.        FLineInfo       : TMMLineInfo;
  259.        FComponentType  : TMMComponentType;
  260.        FMixer          : TMMMixerDevice;
  261.        FObserver       : TMMObserver;
  262.        FLineSetup      : TMMLineSetup;
  263.        FTarget         : TMMCustomAudioDevice;
  264.        FTargetObserver : TMMObserver;
  265.        FObservable     : TMMObservable;
  266.        FOnChange       : TNotifyEvent;
  267.        FOnControlChange: TMMControlChangeEvent;
  269.        procedure SetMixer(Value: TMMMixerDevice);
  270.        procedure MixerNotify(Sender, Data: TObject);
  271.        procedure TargetNotify(Sender, Data: TObject);
  272.        procedure DestNotify(Sender, Data: TObject);
  273.        procedure SetDestLine(Value: TMMComponent1);
  274.        function  GetDestLine : TMMComponent1;
  275.        procedure SetLineId(Value: TMMLineId);
  276.        procedure SetComponentType(Value: TMMComponentType);
  277.        procedure SetTarget(Value: TMMCustomAudioDevice);
  278.        function  StoreLineId: Boolean;
  279.        function  StoreComponentType: Boolean;
  280.        function  StoreTarget: Boolean;
  281.        procedure SetLineInfo(const Info: TMMLineInfo);
  282.        function  GetConnections: TMMConnectionIndex;
  283.        function  GetConnection(Index: TMMConnectionIndex): TMMLineId;
  284.        function  GetControls: TMMControlIndex;
  285.        function  GetControl(Index: TMMControlIndex): TMMControlId;
  286.     protected
  287.        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  288.        procedure Changed; virtual;
  289.        procedure DoChange; dynamic;
  290.        procedure LineIdChanged; virtual;
  291.        procedure ControlChanged(CtlId: TMMControlId); virtual;
  292.        procedure DoControlChange(CtlId: TMMControlId); dynamic;
  293.        procedure UpdateLine;
  294.        procedure Loaded; override;
  295.     public
  296.        constructor Create(AOwner: TComponent); override;
  297.        destructor  Destroy; override;
  299.        procedure AddObserver(O: TMMObserver);
  300.        procedure RemoveObserver(O: TMMObserver);
  301.        function  GetLineInfoForSource(Source: TMMAudioLine; var Info : TMixerLine): Boolean;
  302.        function  ValidMixer: Boolean;
  304.        property Connections: TMMConnectionIndex read GetConnections;
  305.        property Connection[Index:TMMConnectionIndex]: TMMLineId read GetConnection;
  306.        property Controls: TMMControlIndex read GetControls;
  307.        property Control[Index:TMMControlIndex]: TMMControlId read GetControl;
  308.     published
  309.        property Mixer: TMMMixerDevice read FMixer write SetMixer;
  310.        property LineId: TMMLineId read FLineId write SetLineId stored StoreLineId default badLineId;
  311.        property ComponentType: TMMComponentType read FComponentType write SetComponentType stored StoreComponentType default Low(TMMComponentType);
  312.        property Target: TMMCustomAudioDevice read FTarget write SetTarget stored StoreTarget;
  313.        { TMMComponent because TMMAudioLine caused GPF }
  314.        property DestLine: TMMComponent1 read GetDestLine write SetDestLine;
  315.        property LineInfo: TMMLineInfo read FLineInfo write SetLineInfo stored False;
  316.        property OnChange: TNotifyEvent read FOnChange write FOnChange;
  317.        property OnControlChange: TMMControlChangeEvent read FOnControlChange write FOnControlChange;
  318.     end;
  320.     {-- TMMLineIDChange -------------------------------------------------}
  321.     TMMLineIdChange = class(TMMMixerChange)
  322.     end;
  324.     EMMAudioLineError   = class(Exception)
  325.     end;
  327.     TMMControlSetup = (csControlId, csControlType);
  328.     { D3: This lines rely on current Win32 API}
  329.     TMMControlFlag  = (cfDisabled,cfMultiple,cfUniform);
  330.     TMMControlFlags = set of TMMControlFlag;
  332.     {-- TMMControlInfo --------------------------------------------------}
  333.     TMMControlInfo  = class(TPersistent)
  334. {$IFNDEF BUILD_ACTIVEX}
  335.     private
  336. {$ELSE}
  337.     public
  338. {$ENDIF}
  339.        FFlags         : TMMControlFlags;
  340.        FMultipleItems : TMMItemIndex;
  341.        FShortName     : string;
  342.        FName          : string;
  343.        FMinValue      : Integer;
  344.        FMaxValue      : Integer;
  345.        FSteps         : Integer;
  347.        FLDummy        : Integer;
  348.        FFDummy        : TMMControlFlags;
  349.        FIDummy        : TMMItemIndex;
  351.        procedure SetDummyStr(const Value: string);
  352.     public
  353.        procedure Clear;
  354.     published
  355.        property Flags: TMMControlFlags read FFlags write FFDummy stored False;
  356.        property MultipleItems: TMMItemIndex read FMultipleItems write FIDummy stored False;
  357.        property ShortName: string read FShortName write SetDummyStr stored False;
  358.        property Name: string read FName write SetDummyStr stored False;
  359.        property MinValue: Integer read FMinValue write FLDummy stored False;
  360.        property MaxValue: Integer read FMaxValue write FLDummy stored False;
  361.        property Steps: Integer read FSteps write FLDummy stored False;
  362.     end;
  364.     { D3: This lines rely on current Win32 API}
  365.     TMMItemParam        = DWord;
  367.     TMMItemInfo         = record
  368.         Val1, Val2: TMMItemParam;
  369.         Name      : string;
  370.     end;
  372.     {-- TMMCustomMixerControl -------------------------------------------}
  373.     TMMCustomMixerControl = class(TMMNonVisualComponent)
  374.     private
  375.        FAudioLine    : TMMAudioLine;
  376.        FControlId    : TMMControlId;
  377.        FControlType  : TMMControlType;
  378.        FControlClass : TMMControlClass;
  379.        FControlSetup : TMMControlSetup;
  380.        FObserver     : TMMObserver;
  381.        FObservable   : TMMObservable;
  382.        FControlInfo  : TMMControlInfo;
  383.        FOnChange     : TNotifyEvent;
  384.        FCDummy       : TMMControlClass;
  386.        procedure SetAudioLine(Value: TMMAudioLine);
  387.        procedure SetControlId(Value: TMMControlId);
  388.        procedure SetControlType(Value: TMMControlType);
  389.        procedure LineNotify(Sender, Data: TObject);
  390.        function  GetMixer: TMMMixerDevice;
  391.        function  GetLineId: TMMLineId;
  392.        function  StoreControlId: Boolean;
  393.        procedure SetControlInfo(const Value: TMMControlInfo);
  394.        function  ValueIndex(C: TMMChannel; Item: TMMItemIndex): Integer;
  395.        function  GetItemInfo(Index: TMMItemIndex): TMMItemInfo;
  396.        function  StoreControlType: Boolean;
  397.     protected
  398.        procedure UpdateControl; virtual;
  399.        procedure Loaded; override;
  400.        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  401.        procedure NeedMixer;
  402.        procedure NeedId;
  403.        procedure Changed; virtual;
  404.        procedure DoChange; dynamic;
  405.        procedure ControlIdChanged; virtual;
  406.        function  GetBoolean: Boolean; virtual;
  407.        procedure SetBoolean(Value: Boolean); virtual;
  408.        function  GetUnsigned: Cardinal; virtual;
  409.        procedure SetUnsigned(Value: Cardinal); virtual;
  410.        function  GetSigned: Integer; virtual;
  411.        procedure SetSigned(Value: Integer); virtual;
  412.        function  GetAvailable: Boolean; virtual;
  413.        procedure CalcParams(C: TMMChannel; Item: TMMItemIndex; var Ch: TMMChannelIndex; var It: TMMItemIndex);
  414.        function  ValidControl(const Info: TMixerControl): Boolean; virtual;
  415.        function  GetControlSetup: TMMControlSetup;
  416.        function  GetChannels: TMMChannelIndex; virtual;
  417.        function  GetItems: TMMItemIndex; virtual;
  418.     public
  419.        constructor Create(AOwner: TComponent); override;
  420.        destructor  Destroy; override;
  422.        procedure AddObserver(O: TMMObserver);
  423.        procedure RemoveObserver(O: TMMObserver);
  425.        function  GetChannelSigned(C: TMMChannel; Item: TMMItemIndex): Integer; virtual;
  426.        procedure SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer); virtual;
  427.        function  GetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex): Cardinal; virtual;
  428.        procedure SetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex; Value: Cardinal); virtual;
  429.        function  GetChannelBoolean(C: TMMChannel; Item: TMMItemIndex): Boolean; virtual;
  430.        procedure SetChannelBoolean(C: TMMChannel; Item: TMMItemIndex; Value: Boolean); virtual;
  432.        function ValidMixer: Boolean;
  433.        function CanModify: Boolean;
  434.        function GetItemForLine(Line: TMMAudioLine): TMMItemIndex;
  436.        property Mixer: TMMMixerDevice read GetMixer;
  437.        property LineId: TMMLineId read GetLineId;
  438.        property AsBoolean: Boolean read GetBoolean write SetBoolean;
  439.        property AsUnsigned: Cardinal read GetUnsigned write SetUnsigned;
  440.        property AsSigned: Integer read GetSigned write SetSigned;
  441.        property Available: Boolean read GetAvailable;
  442.        property Channels: TMMChannelIndex read GetChannels;
  443.        property Items: TMMItemIndex read GetItems;
  444.        property ItemInfo[Index:TMMItemIndex]: TMMItemInfo read GetItemInfo;
  445.     published
  446.        property AudioLine: TMMAudioLine read FAudioLine write SetAudioLine;
  447.        property ControlId: TMMControlId read FControlId write SetControlId stored StoreControlId;
  448.        property ControlClass: TMMControlClass read FControlClass write FCDummy stored False;
  449.        property ControlInfo: TMMControlInfo read FControlInfo write SetControlInfo stored False;
  450.        property OnChange: TNotifyEvent read FOnChange write FOnChange;
  451.     protected
  452.        property ControlType: TMMControlType read FControlType write SetControlType stored StoreControlType;
  453.     end;
  455.     TMMControlIdChange = class(TMMMixerChange)
  456.     end;
  458.     EMMMixerControlError = class(Exception)
  459.     end;
  461.     {-- TMMMixerControl -----------------------------------------------------}
  462.     TMMMixerControl = class(TMMCustomMixerControl)
  463.     published
  464.         property    ControlType;
  465.     end;
  467. const
  468.     MaxLeftPan  = -32768;
  469.     MaxRightPan = 32767;
  471. type
  472.     {-- TMMVolumeControl ----------------------------------------------------}
  473.     TMMVolumeControl = class(TMMCustomMixerControl)
  474.     private
  475.         FPanValue: Integer;
  477.         procedure SetPanValue(Value: Integer);
  478.     protected
  479.         function  ValidControl(const Info: TMixerControl): Boolean; override;
  480.         procedure SetUnsigned(Value: Cardinal); override;
  481.         procedure SetSigned(Value: Integer); override;
  483.         function  Pan(C: TMMChannel): Extended;
  484.     public
  485.         constructor Create(AOwner: TComponent); override;
  487.         procedure SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer); override;
  488.         procedure SetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex; Value: Cardinal); override;
  489.     published
  490.         property PanValue: Integer read FPanValue write SetPanValue default 0;
  491.     end;
  493.     {-- TMMPanControl -------------------------------------------------------}
  494.     TMMPanControl = class(TMMCustomMixerControl)
  495.     private
  496.         FVolume    : TMMVolumeControl;
  497.         FObserver  : TMMObserver;
  498.         FSimulate  : Boolean;
  499.         FSimActive : Boolean;
  500.         FValue     : Integer;
  502.         procedure SetControl(Value:TMMVolumeControl);
  503.         procedure SetSimulate(Value:Boolean);
  504.         procedure VolumeNotify(Sender,Data:TObject);
  505.     protected
  506.         function  ValidControl(const Info: TMixerControl): Boolean; override;
  507.         procedure UpdatePan;
  508.         procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  509.         procedure UpdatePanValue;
  510.         procedure UpdateVolumePan;
  511.         procedure SetSigned(Value: Integer); override;
  512.         function  GetSigned: Integer; override;
  513.         function  GetAvailable: Boolean; override;
  514.         procedure UpdateControl; override;
  515.         function  GetChannels: TMMChannelIndex; override;
  516.         function  GetItems: TMMItemIndex; override;
  517.     public
  518.         constructor Create(AOwner: TComponent); override;
  519.         destructor  Destroy; override;
  521.         function  GetChannelSigned(C: TMMChannel; Item: TMMItemIndex): Integer; override;
  522.         procedure SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer); override;
  523.     published
  524.         property  VolumeControl: TMMVolumeControl read FVolume write SetControl;
  525.         property  Simulate: Boolean read FSimulate write SetSimulate default True;
  526.     end;
  528. {-- Mixer service -------------------------------------------------------}
  529. { D3: This lines rely on current Win32 API}
  530. function APIToCompType(dwType: DWORD): TMMComponentType;
  531. function CompTypeToAPI(CompType: TMMComponentType): DWORD;
  532. function DeviceTypeToTarget(DevType: TMMAudioDeviceType): UINT;
  533. function ControlTypeToAPI(ControlType: TMMControlType): DWORD;
  534. function APIToControlType(ControlType: DWORD): TMMControlType;
  535. function APIToControlFlags(fdwControl: DWORD): TMMControlFlags;
  536. function APIToLineFlags(fdwLine: DWORD): TMMLineFlags;
  537. function ControlClassOfType(CT: DWORD): TMMControlClass;
  538. function IsControlTypeSingleSelect(CT: DWORD): Boolean;
  539. function ControlIdToIdent(Id: LongInt; var S: string): Boolean;
  540. function LineIdToIdent(Id: LongInt; var S: string): Boolean;
  541. function ItemIndexToIdent(Id: LongInt; var S: string): Boolean;
  542. function IdentToControlId(const S: string; var Id: LongInt): Boolean;
  543. function IdentToLineId(const S: string; var Id: LongInt): Boolean;
  544. function IdentToItemIndex(const S: string; var Id: LongInt): Boolean;
  546. type
  547.     EMMMixerServiceError = class(Exception)
  548.     end;
  550. {========================================================================}
  551. implementation
  552. {========================================================================}
  554. uses
  555.     MMDesign;
  557. {== Mixer service =======================================================}
  558. const
  559.     CompTypes: array[TMMComponentType] of DWORD =
  560.            (MIXERLINE_COMPONENTTYPE_DST_DIGITAL,
  561.             MIXERLINE_COMPONENTTYPE_DST_HEADPHONES,
  562.             MIXERLINE_COMPONENTTYPE_DST_LINE,
  563.             MIXERLINE_COMPONENTTYPE_DST_MONITOR,
  564.             MIXERLINE_COMPONENTTYPE_DST_SPEAKERS,
  565.             MIXERLINE_COMPONENTTYPE_DST_TELEPHONE,
  566.             MIXERLINE_COMPONENTTYPE_DST_UNDEFINED,
  567.             MIXERLINE_COMPONENTTYPE_DST_VOICEIN,
  568.             MIXERLINE_COMPONENTTYPE_DST_WAVEIN,
  569.             MIXERLINE_COMPONENTTYPE_SRC_ANALOG,
  570.             MIXERLINE_COMPONENTTYPE_SRC_AUXILIARY,
  571.             MIXERLINE_COMPONENTTYPE_SRC_COMPACTDISC,
  572.             MIXERLINE_COMPONENTTYPE_SRC_DIGITAL,
  573.             MIXERLINE_COMPONENTTYPE_SRC_LINE,
  574.             MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE,
  575.             MIXERLINE_COMPONENTTYPE_SRC_PCSPEAKER,
  576.             MIXERLINE_COMPONENTTYPE_SRC_SYNTHESIZER,
  577.             MIXERLINE_COMPONENTTYPE_SRC_TELEPHONE,
  578.             MIXERLINE_COMPONENTTYPE_SRC_UNDEFINED,
  579.             MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT);
  581. {------------------------------------------------------------------------}
  582. function APIToCompType(dwType: DWORD): TMMComponentType;
  583. var
  584.     i: TMMComponentType;
  585. begin
  586.     for i := Low(TMMComponentType) to High(TMMComponentType) do
  587.     if CompTypes[i] = dwType then
  588.     begin
  589.        Result := i;
  590.        Exit;
  591.     end;
  592.     { TODO: Should be resource id }
  593.     raise EMMMixerServiceError.Create('Undefined API component type');
  594. end;
  596. {------------------------------------------------------------------------}
  597. function CompTypeToAPI(CompType: TMMComponentType): DWORD;
  598. begin
  599.    Result := CompTypes[CompType];
  600. end;
  602. {------------------------------------------------------------------------}
  603. function MakeVersion(Maj, Min: Byte): WORD;
  604. begin
  605.    Result := MakeWord(Min, Maj);
  606. end;
  608. {------------------------------------------------------------------------}
  609. const
  610.     Targets: array[TMMAudioDeviceType] of UINT =
  611.            (MIXERLINE_TARGETTYPE_MIDIIN,
  612.             MIXERLINE_TARGETTYPE_MIDIOUT,
  613.             MIXERLINE_TARGETTYPE_WAVEIN,
  614.             MIXERLINE_TARGETTYPE_WAVEOUT,
  615.             MIXERLINE_TARGETTYPE_AUX,
  616.             MIXERLINE_TARGETTYPE_UNDEFINED);
  618. {------------------------------------------------------------------------}
  619. function DeviceTypeToTarget(DevType: TMMAudioDeviceType): UINT;
  620. begin
  621.    Result := Targets[DevType];
  622. end;
  624. {------------------------------------------------------------------------}
  625. const
  626.     Types: array[TMMControlType] of DWORD =
  627.            (MIXERCONTROL_CONTROLTYPE_CUSTOM,
  629.             MIXERCONTROL_CONTROLTYPE_BASS,
  630.             MIXERCONTROL_CONTROLTYPE_EQUALIZER,
  631.             MIXERCONTROL_CONTROLTYPE_FADER,
  632.             MIXERCONTROL_CONTROLTYPE_TREBLE,
  633.             MIXERCONTROL_CONTROLTYPE_VOLUME,
  635.             MIXERCONTROL_CONTROLTYPE_MIXER,
  636.             MIXERCONTROL_CONTROLTYPE_MULTIPLESELECT,
  637.             MIXERCONTROL_CONTROLTYPE_MUX,
  638.             MIXERCONTROL_CONTROLTYPE_SINGLESELECT,
  640.             MIXERCONTROL_CONTROLTYPE_BOOLEANMETER,
  641.             MIXERCONTROL_CONTROLTYPE_PEAKMETER,
  642.             MIXERCONTROL_CONTROLTYPE_SIGNEDMETER,
  643.             MIXERCONTROL_CONTROLTYPE_UNSIGNEDMETER,
  645.             MIXERCONTROL_CONTROLTYPE_DECIBELS,
  646.             MIXERCONTROL_CONTROLTYPE_PERCENT,
  647.             MIXERCONTROL_CONTROLTYPE_SIGNED,
  648.             MIXERCONTROL_CONTROLTYPE_UNSIGNED,
  650.             MIXERCONTROL_CONTROLTYPE_PAN,
  651.             MIXERCONTROL_CONTROLTYPE_QSOUNDPAN,
  652.             MIXERCONTROL_CONTROLTYPE_SLIDER,
  654.             MIXERCONTROL_CONTROLTYPE_BOOLEAN,
  655.             MIXERCONTROL_CONTROLTYPE_BUTTON,
  656.             MIXERCONTROL_CONTROLTYPE_LOUDNESS,
  657.             MIXERCONTROL_CONTROLTYPE_MONO,
  658.             MIXERCONTROL_CONTROLTYPE_MUTE,
  659.             MIXERCONTROL_CONTROLTYPE_ONOFF,
  660.             MIXERCONTROL_CONTROLTYPE_STEREOENH,
  662.             MIXERCONTROL_CONTROLTYPE_MICROTIME,
  663.             MIXERCONTROL_CONTROLTYPE_MILLITIME);
  665. {------------------------------------------------------------------------}
  666. function ControlTypeToAPI(ControlType: TMMControlType): DWORD;
  667. begin
  668.    Result := Types[ControlType];
  669. end;
  671. {------------------------------------------------------------------------}
  672. function APIToControlType(ControlType: DWORD): TMMControlType;
  673. begin
  674.    for Result := Low(TMMControlType) to High(TMMControlType) do
  675.    if Types[Result] = ControlType then
  676.       Exit;
  677.    Result := ctCustom; { Because on my computer there are some undefined device }
  678. end;
  680. {------------------------------------------------------------------------}
  681. const
  682.     Flags: array[TMMControlFlag] of DWORD =
  683.        (MIXERCONTROL_CONTROLF_DISABLED,
  684.         MIXERCONTROL_CONTROLF_MULTIPLE,
  685.         MIXERCONTROL_CONTROLF_UNIFORM);
  687. {------------------------------------------------------------------------}
  688. function APIToControlFlags(fdwControl: DWORD): TMMControlFlags;
  689. var
  690.    i: TMMControlFlag;
  691. begin
  692.    Result:= [];
  693.    for i:= Low(TMMControlFlag) to High(TMMControlFlag) do
  694.    if (fdwControl and Flags[i]) <> 0 then
  695.        Include(Result,i);
  696. end;
  698. {------------------------------------------------------------------------}
  699. const
  700.     LineFlags: array[TMMLineFlag] of DWORD =
  701.        (MIXERLINE_LINEF_ACTIVE,
  702.         MIXERLINE_LINEF_DISCONNECTED,
  703.         MIXERLINE_LINEF_SOURCE);
  705. {------------------------------------------------------------------------}
  706. function APIToLineFlags(fdwLine: DWORD): TMMLineFlags;
  707. var
  708.    i: TMMLineFlag;
  709. begin
  710.    Result:= [];
  711.    for i:= Low(TMMLineFlag) to High(TMMLineFlag) do
  712.    if (fdwLine and LineFlags[i]) <> 0 then
  713.        Include(Result,i);
  714. end;
  716. {------------------------------------------------------------------------}
  717. const
  718.     CClasses: array[TMMControlClass] of DWORD =
  719.            (MIXERCONTROL_CT_CLASS_CUSTOM,
  720.             MIXERCONTROL_CT_CLASS_FADER,
  721.             MIXERCONTROL_CT_CLASS_LIST,
  722.             MIXERCONTROL_CT_CLASS_METER,
  723.             MIXERCONTROL_CT_CLASS_NUMBER,
  724.             MIXERCONTROL_CT_CLASS_SLIDER,
  725.             MIXERCONTROL_CT_CLASS_SWITCH,
  726.             MIXERCONTROL_CT_CLASS_TIME);
  728. {------------------------------------------------------------------------}
  729. function ControlClassOfType(CT: DWORD): TMMControlClass;
  730. begin
  731.    for Result:= Low(TMMControlClass) to High(TMMControlClass) do
  732.    if (CT and MIXERCONTROL_CT_CLASS_MASK) = CClasses[Result] then
  733.        Exit;
  734.    { TODO: Should be resource id }
  735.    raise EMMMixerServiceError.Create('Undefined API control class');
  736. end;
  738. {------------------------------------------------------------------------}
  739. function IsControlTypeSingleSelect(CT: DWORD): Boolean;
  740. begin
  741.     Result := MIXERCONTROL_CT_SC_LIST_SINGLE =
  742.               (MIXERCONTROL_CT_SUBCLASS_MASK and CT);
  743. end;
  745. {== TMMMixerDevice ======================================================}
  746. constructor TMMMixerDevice.Create(AOwner: TComponent);
  747. begin
  748.    inherited Create(AOwner);
  750.    FObserver          := TMMObserver.Create;
  751.    FObserver.OnNotify := DeviceNotify;
  752.    FObservable        := TMMObservable.Create;
  753.    DeviceType         := dtMixer;
  754. end;
  756. {-- TMMMixerDevice ------------------------------------------------------}
  757. destructor TMMMixerDevice.Destroy;
  758. begin
  759.    Device := nil;
  760.    FObserver.Free;
  761.    FObservable.Free;
  763.    inherited Destroy;
  764. end;
  766. {-- TMMMixerDevice ------------------------------------------------------}
  767. procedure TMMMixerDevice.SetDevice(Value: TMMCustomAudioDevice);
  768. var
  769.     WasActive: Boolean;
  770. begin
  771.    if (Value <> nil) then
  772.       if (Value.GetDeviceType = dtMixer) then
  773.          { TODO: Should be resource id }
  774.          raise EMMMixerDeviceError.Create('Mixer can''t reference mixer');
  776.    if (Value <> FDevice) then
  777.    begin
  778.       WasActive:= Active;
  779.       Close;
  780.       if (FDevice <> nil) then
  781.           FDevice.RemoveObserver(FObserver);
  782.       FDevice:= Value;
  783.       if (FDevice <> nil) then
  784.       begin
  785.          FDevice.AddObserver(FObserver);
  786.          FDevice.FreeNotification(Self);
  787.       end;
  788.       UpdateDevice;
  789.       Active:= WasActive;
  790.    end;
  791. end;
  793. {-- TMMMixerDevice ------------------------------------------------------}
  794. procedure TMMMixerDevice.DeviceNotify(Sender, Data: TObject);
  795. begin
  796.    UpdateDevice;
  797. end;
  799. {-- TMMMixerDevice ------------------------------------------------------}
  800. procedure TMMMixerDevice.Notification(AComponent: TComponent; Operation: TOperation);
  801. begin
  802.    inherited Notification(AComponent,Operation);
  804.    if (Operation = opRemove) and (AComponent = FDevice) then
  805.        Device := nil;
  806. end;
  808. {-- TMMMixerDevice ------------------------------------------------------}
  809. procedure TMMMixerDevice.UpdateDevice;
  810. begin
  811.    if (FDevice <> nil) then
  812.        DeviceId:= FDevice.MixerId;
  814.    inherited UpdateDevice;
  815. end;
  817. {-- TMMMixerDevice ------------------------------------------------------}
  818. procedure TMMMixerDevice.Changed;
  819. var
  820.    UpdChange: TMMDeviceChange;
  821. begin
  822.    UpdChange:= TMMDeviceChange.Create;
  823.    try
  824.       FObservable.NotifyObservers(UpdChange);
  825.    finally
  826.       UpdChange.Free;
  827.    end;
  828.    inherited;
  829. end;
  831. {-- TMMMixerDevice ------------------------------------------------------}
  832. function TMMMixerDevice.StoreDeviceId: Boolean;
  833. begin
  834.    if (FDevice <> nil) then
  835.        Result := FDevice.MixerId <> MixerId
  836.    else
  837.        Result := DeviceId <> 0;
  838. end;
  840. {-- TMMMixerDevice ------------------------------------------------------}
  841. function TMMMixerDevice.GetDestinations: TMMLineIndex;
  842. var
  843.    Caps: TMixerCaps;
  844. begin
  845.    if ValidDevice then
  846.    begin
  847.       Check(mixerGetDevCaps(DeviceId, @Caps, SizeOf(Caps)));
  848.       Result:= Caps.cDestinations;
  849.    end
  850.    else Result := 0;
  851. end;
  853. {-- TMMMixerDevice ------------------------------------------------------}
  854. procedure   TMMMixerDevice.Open;
  855. begin
  856.    if ValidDevice then
  857.    begin
  858.       FCBWnd:= AllocateHWnd(MixerWndProc);
  859.       try
  860.          Check(mixerOpen(@FHandle,DeviceId,FCBWnd,0,CALLBACK_WINDOW or MIXER_OBJECTF_MIXER));
  861.          inherited Open;
  863.       except
  864.          DeAllocateHWnd(FCBWnd);
  865.          FCBWnd:= 0;
  866.       end
  867.    end
  868.    else
  869.       { TODO: Should be resource id }
  870.       raise EMMMixerDeviceError.Create('Device not valid');
  871. end;
  873. {-- TMMMixerDevice ------------------------------------------------------}
  874. procedure TMMMixerDevice.Close;
  875. begin
  876.    if FHandle <> 0 then
  877.    begin
  878.       Check(mixerClose(FHandle));
  879.       FHandle:= 0;
  880.    end;
  882.    if FCBWnd <> 0 then
  883.    begin
  884.       DeAllocateHWnd(FCBWnd);
  885.       FCBWnd:= 0;
  886.    end;
  888.    inherited Close;
  889. end;
  891. {-- TMMMixerDevice ------------------------------------------------------}
  892. procedure TMMMixerDevice.MixerWndProc(var Msg: TMessage);
  893. begin
  894.    with Msg do
  895.    begin
  896.       try
  897.          if (Msg = MM_MIXM_LINE_CHANGE) and (wParam = FHandle) then
  898.              LineChanged(lParam)
  899.          else if (Msg = MM_MIXM_CONTROL_CHANGE) and (wParam = FHandle) then
  900.              ControlChanged(lParam)
  901.          else
  902.              Result:= DefWindowProc(FCBWnd, Msg, wParam, lParam);
  903.       except
  904.          Application.HandleException(Self);
  905.       end;
  906.    end;
  907. end;
  909. {-- TMMMixerDevice ------------------------------------------------------}
  910. procedure TMMMixerDevice.LineChanged(LineId: TMMLineId);
  911. var
  912.     Chg: TMMLineChange;
  913. begin
  914.    Chg:= TMMLineChange.Create;
  915.    try
  916.       Chg.LineId := LineId;
  917.       FObservable.NotifyObservers(Chg);
  918.    finally
  919.       Chg.Free;
  920.    end;
  921.    DoLineChange(LineId);
  922. end;
  924. {-- TMMMixerDevice ------------------------------------------------------}
  925. procedure TMMMixerDevice.ControlChanged(CtlId: TMMControlId);
  926. var
  927.     Chg   : TMMControlChange;
  928.     LineId: TMMLineId;
  929. begin
  930.    LineId := GetLineOfControl(CtlId);
  932.    Chg := TMMControlChange.Create;
  933.    try
  934.       Chg.ControlId:= CtlId;
  935.       Chg.LineId   := LineId;
  936.       FObservable.NotifyObservers(Chg);
  937.    finally
  938.       Chg.Free;
  939.    end;
  940.    DoControlChange(LineId,CtlId);
  941. end;
  943. {-- TMMMixerDevice ------------------------------------------------------}
  944. procedure TMMMixerDevice.DoLineChange(LineId: TMMLineId);
  945. begin
  946.    if Assigned(FOnLineChange) then FOnLineChange(Self,LineId);
  947. end;
  949. {-- TMMMixerDevice ------------------------------------------------------}
  950. procedure TMMMixerDevice.DoControlChange(LineId: TMMLineId; CtlId: TMMControlId);
  951. begin
  952.    if Assigned(FOnControlChange) then FOnControlChange(Self,LineId,CtlId);
  953. end;
  955. {-- TMMMixerDevice ------------------------------------------------------}
  956. function TMMMixerDevice.GetMixerId: TMMDeviceId;
  957. var
  958.    Res: UINT;
  960. begin
  961.    if FHandle <> 0 then
  962.    begin
  963.       Check(mixerGetId(FHandle, Res, MIXER_OBJECTF_HMIXER));
  964.       Result := Res;
  965.       { If device id was changed, FHandle will be still correct but }
  966.       { we should check for id }
  967.       if (Result <> DeviceId) then
  968.       begin
  969.          { Just update class member }
  970.          SetDeviceIdDirect(Result);
  971.          { Notify updates }
  972.          Changed;
  973.       end;
  974.    end
  975.    else Result := DeviceId;
  976. end;
  978. {-- TMMMixerDevice ------------------------------------------------------}
  979. procedure TMMMixerDevice.AddObserver(O: TMMObserver);
  980. begin
  981.    FObservable.AddObserver(O);
  982. end;
  984. {-- TMMMixerDevice ------------------------------------------------------}
  985. procedure TMMMixerDevice.RemoveObserver(O: TMMObserver);
  986. begin
  987.    if (FObservable <> nil) then
  988.        FObservable.RemoveObserver(O);
  989. end;
  991. {-- TMMMixerDevice ------------------------------------------------------}
  992. function TMMMixerDevice.GetLineOfControl(CtlId: TMMControlId): TMMLineId;
  993. var
  994.    Ctls: TMixerLineControls;
  995.    Ctl : TMixerControl;
  996. begin
  997.    { We should do this call manually instead of use GetControlInfoById
  998.      because we need to access dwLineId member of TMixerLineControls record }
  999.    Ctls.cbStruct      := SizeOf(Ctls);
  1000.    Ctls.dwControlId   := CtlId;
  1001.    Ctls.cControls     := 1;
  1002.    Ctls.cbmxCtrl      := sizeof(TMixerControl);
  1003.    Ctls.pamxCtrl      := @Ctl;
  1004.    Check(mixerGetLineControls(MixerId, @Ctls, MIXER_GETLINECONTROLSF_ONEBYID or MIXER_OBJECTF_MIXER));
  1005.    Result             := Ctls.dwLineId;
  1006. end;
  1008. {-- TMMMixerDevice ------------------------------------------------------}
  1009. function TMMMixerDevice.GetLineInfoById(LineId: TMMLineId; var Info: TMixerLine): Boolean;
  1010. begin
  1011.    Info.dwLineId := LineId;
  1012.    Result        := GetLineInfo(Info,MIXER_GETLINEINFOF_LINEID);
  1013. end;
  1015. {-- TMMMixerDevice ------------------------------------------------------}
  1016. function TMMMixerDevice.GetLineInfoByCompType(CompType: TMMComponentType; var Info: TMixerLine): Boolean;
  1017. begin
  1018.    Info.dwComponentType:= CompTypeToAPI(CompType);
  1019.    Result              := GetLineInfo(Info,MIXER_GETLINEINFOF_COMPONENTTYPE);
  1020. end;
  1022. {-- TMMMixerDevice ------------------------------------------------------}
  1023. function TMMMixerDevice.GetLineInfoByDestination(Dest: TMMLineIndex; var Info: TMixerLine): Boolean;
  1024. begin
  1025.    Info.dwDestination := Dest;
  1026.    Result             := GetLineInfo(Info,MIXER_GETLINEINFOF_DESTINATION);
  1027. end;
  1029. {-- TMMMixerDevice ------------------------------------------------------}
  1030. function TMMMixerDevice.GetLineInfoBySource(Dest, Src: TMMLineIndex; var Info: TMixerLine): Boolean;
  1031. begin
  1032.    Info.dwDestination := Dest;
  1033.    Info.dwSource      := Src;
  1034.    Result             := GetLineInfo(Info,MIXER_GETLINEINFOF_SOURCE);
  1035. end;
  1037. {-- TMMMixerDevice ------------------------------------------------------}
  1038. function TMMMixerDevice.GetLineInfo(var Info: TMixerLine; Flags: DWORD): Boolean;
  1039. begin
  1040.    Info.cbStruct:= SizeOf(Info);
  1041.    Result:= CheckExcl(mixerGetLineInfo(MixerId, @Info, MIXER_OBJECTF_MIXER or Flags), [MIXERR_INVALLINE,MMSYSERR_NODRIVER,MMSYSERR_INVALPARAM])
  1042.             = MMSYSERR_NOERROR;
  1043. end;
  1045. {-- TMMMixerDevice ------------------------------------------------------}
  1046. function TMMMixerDevice.GetLineInfoByTarget(Device: TMMCustomAudioDevice; var Info: TMixerLine): Boolean;
  1047. begin
  1048.    with Device.DeviceCaps do
  1049.    begin
  1050.       Info.Target.dwType         := DeviceTypeToTarget(Device.GetDeviceType);
  1051.       Info.Target.wMid           := ManufacturerId;
  1052.       Info.Target.wPid           := ProductId;
  1053.       Info.Target.vDriverVersion := MakeVersion(VerMajor,VerMinor);
  1054.       StrPLCopy(Info.Target.szPName, ProductName, MAXPNAMELEN);
  1055.       Result:= GetLineInfo(Info, MIXER_GETLINEINFOF_TARGETTYPE);
  1056.    end;
  1057. end;
  1059. {-- TMMMixerDevice ------------------------------------------------------}
  1060. function TMMMixerDevice.GetControlInfoById(ControlId: TMMControlId; var Info: TMixerControl): Boolean;
  1061. var
  1062.     Ctls: TMixerLineControls;
  1063. begin
  1064.    Ctls.dwControlId:= ControlId;
  1065.    Ctls.cControls  := 1;
  1066.    Ctls.cbmxCtrl   := SizeOf(Info);
  1067.    Ctls.pamxCtrl   := @Info;
  1068.    Result:= GetControlInfo(Ctls, MIXER_GETLINECONTROLSF_ONEBYID);
  1069. end;
  1071. {-- TMMMixerDevice ------------------------------------------------------}
  1072. function TMMMixerDevice.GetControlInfoByType(LineId: TMMLineId; ControlType: TMMControlType; var Info: TMixerControl): Boolean;
  1073. var
  1074.     Ctls: TMixerLineControls;
  1075. begin
  1076.    Ctls.dwLineId      := LineId;
  1077.    Ctls.dwControlType := ControlTypeToAPI(ControlType);
  1078.    Ctls.cControls     := 1;
  1079.    Ctls.cbmxCtrl      := SizeOf(Info);
  1080.    Ctls.pamxCtrl      := @Info;
  1081.    Result:= GetControlInfo(Ctls, MIXER_GETLINECONTROLSF_ONEBYTYPE);
  1082. end;
  1084. {-- TMMMixerDevice ------------------------------------------------------}
  1085. procedure TMMMixerDevice.GetAllControls(LineId: TMMLineId; Controls: TMMControlIndex; P: PMixerControl);
  1086. var
  1087.    Ctls: TMixerLineControls;
  1088. begin
  1089.    Ctls.dwLineId      := LineId;
  1090.    Ctls.cControls     := Controls;
  1091.    Ctls.cbmxCtrl      := SizeOf(P^);
  1092.    Ctls.pamxCtrl      := PMixerControlA(P);
  1094.    if not GetControlInfo(Ctls, MIXER_GETLINECONTROLSF_ALL) then
  1095.       { TODO: Should be resource id }
  1096.       raise EMMMixerDeviceError.Create('Error requesting all controls');
  1097. end;
  1099. {-- TMMMixerDevice ------------------------------------------------------}
  1100. function TMMMixerDevice.GetControlInfo(var Info: TMixerLineControls; Flags: DWORD): Boolean;
  1101. begin
  1102.    Info.cbStruct:= SizeOf(Info);
  1103.    Result:= CheckExcl(mixerGetLineControls(MixerId,@Info,MIXER_OBJECTF_MIXER or Flags), [MIXERR_INVALCONTROL,MIXERR_INVALLINE,MMSYSERR_NODRIVER])
  1104.             = MMSYSERR_NOERROR;
  1105. end;
  1107. {-- TMMMixerDevice ------------------------------------------------------}
  1108. function TMMMixerDevice.GetControlByType(LineId: TMMLineId; ControlType: TMMControlType): TMMControlId;
  1109. var
  1110.    Info: TMixerControl;
  1111. begin
  1112.    if GetControlInfoByType(LineId, ControlType, Info) then
  1113.       Result:= Info.dwControlId
  1114.    else
  1115.       Result:= badControlId;
  1116. end;
  1118. {-- TMMMixerDevice ------------------------------------------------------}
  1119. function TMMMixerDevice.GetDestination(Index: TMMLineIndex): TMMLineId;
  1120. var
  1121.     Info: TMixerLine;
  1122. begin
  1123.    if GetLineInfoByDestination(Index,Info) then
  1124.       Result:= Info.dwLineId
  1125.    else
  1126.       Result:= badLineId;
  1127. end;
  1129. {-- TMMMixerDevice ------------------------------------------------------}
  1130. procedure TMMMixerDevice.SetBooleanControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PBoolean);
  1131. var
  1132.    Buf, P : PMixerControlDetailsBoolean;
  1133.    i      : Integer;
  1134.    N      : Integer;
  1135. begin
  1136.    N  := Max(Channels,1) * Max(Items,1);
  1137.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1138.    try
  1139.       P:= Buf;
  1140.       for i:= 0 to N - 1 do
  1141.       begin
  1142.          P^.fValue:= Ord(Values^);
  1143.          Inc(P);
  1144.          Inc(Values);
  1145.       end;
  1146.       SetControlValues(Id, SizeOf(P^), Channels, Items, Buf, MIXER_SETCONTROLDETAILSF_VALUE);
  1147.    finally
  1148.       GlobalFreeMem(Pointer(Buf));
  1149.    end;
  1150. end;
  1152. {-- TMMMixerDevice ------------------------------------------------------}
  1153. procedure TMMMixerDevice.GetBooleanControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PBoolean);
  1154. var
  1155.    Buf, P : PMixerControlDetailsBoolean;
  1156.    i      : Integer;
  1157.    N      : Integer;
  1158. begin
  1159.    N  := Max(Channels,1) * Max(Items,1);
  1160.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1161.    try
  1162.       P:= Buf;
  1163.       GetControlValues(Id, SizeOf(P^), Channels, Items, P, MIXER_GETCONTROLDETAILSF_VALUE);
  1164.       for i:= 0 to N - 1 do
  1165.       begin
  1166.          Values^:= Boolean(P^.fValue);
  1167.          Inc(P);
  1168.          Inc(Values);
  1169.       end;
  1170.    finally
  1171.       GlobalFreeMem(Pointer(Buf));
  1172.    end;
  1173. end;
  1175. {-- TMMMixerDevice ------------------------------------------------------}
  1176. procedure TMMMixerDevice.SetSignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PInteger);
  1177. var
  1178.    Buf, P : PMixerControlDetailsSigned;
  1179.    i      : Integer;
  1180.    N      : Integer;
  1181. begin
  1182.    N  := Max(Channels,1) * Max(Items,1);
  1183.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1184.    try
  1185.       P:= Buf;
  1186.       for i:= 0 to N - 1 do
  1187.       begin
  1188.          P^.lValue:= Values^;
  1189.          Inc(P);
  1190.          Inc(Values);
  1191.       end;
  1192.       SetControlValues(Id, SizeOf(P^), Channels, Items, Buf, MIXER_SETCONTROLDETAILSF_VALUE);
  1193.    finally
  1194.       GlobalFreeMem(Pointer(Buf));
  1195.    end;
  1196. end;
  1198. {-- TMMMixerDevice ------------------------------------------------------}
  1199. procedure TMMMixerDevice.GetSignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PInteger);
  1200. var
  1201.    Buf, P : PMixerControlDetailsSigned;
  1202.    i      : Integer;
  1203.    N      : Integer;
  1204. begin
  1205.    N  := Max(Channels,1) * Max(Items,1);
  1206.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1207.    try
  1208.       P:= Buf;
  1209.       GetControlValues(Id, SizeOf(P^), Channels, Items, P, MIXER_GETCONTROLDETAILSF_VALUE);
  1210.       for i:= 0 to N - 1 do
  1211.       begin
  1212.          Values^:= P^.lValue;
  1213.          Inc(P);
  1214.          Inc(Values);
  1215.       end;
  1216.    finally
  1217.       GlobalFreeMem(Pointer(Buf));
  1218.    end;
  1219. end;
  1221. {-- TMMMixerDevice ------------------------------------------------------}
  1222. procedure TMMMixerDevice.SetUnsignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PCardinal);
  1223. var
  1224.    Buf, P : PMixerControlDetailsUnsigned;
  1225.    i      : Integer;
  1226.    N      : Integer;
  1227. begin
  1228.    N  := Max(Channels,1) * Max(Items,1);
  1229.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1230.    try
  1231.       P:= Buf;
  1232.       for i:= 0 to N - 1 do
  1233.       begin
  1234.          P^.dwValue:= Values^;
  1235.          Inc(P);
  1236.          Inc(Values);
  1237.       end;
  1238.       SetControlValues(Id, SizeOf(P^), Channels, Items, Buf, MIXER_SETCONTROLDETAILSF_VALUE);
  1239.    finally
  1240.       GlobalFreeMem(Pointer(Buf));
  1241.    end;
  1242. end;
  1244. {-- TMMMixerDevice ------------------------------------------------------}
  1245. procedure TMMMixerDevice.GetUnsignedControl(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: PCardinal);
  1246. var
  1247.    Buf, P : PMixerControlDetailsUnsigned;
  1248.    i      : Integer;
  1249.    N      : Integer;
  1250. begin
  1251.    N  := Max(Channels,1) * Max(Items,1);
  1252.    Buf:= GlobalAllocMem(SizeOf(P^) * N);
  1253.    try
  1254.       P:= Buf;
  1255.       GetControlValues(Id, SizeOf(P^), Channels, Items, P, MIXER_GETCONTROLDETAILSF_VALUE);
  1256.       for i:= 0 to N - 1 do
  1257.       begin
  1258.          Values^:= P^.dwValue;
  1259.          Inc(P);
  1260.          Inc(Values);
  1261.       end;
  1262.    finally
  1263.       GlobalFreeMem(Pointer(Buf));
  1264.    end;
  1265. end;
  1267. {-- TMMMixerDevice ------------------------------------------------------}
  1268. procedure TMMMixerDevice.GetItemsInfo(Id: TMMControlId; Channels: TMMChannelIndex; Items: TMMItemIndex; Infos: PMixerControlDetailsListText);
  1269. var
  1270.    Details: TMixerControlDetails;
  1271. begin
  1272.    FillChar(Details,SizeOf(Details),0);
  1273.    Details.cbStruct       := SizeOf(Details);
  1274.    Details.cbDetails      := SizeOf(Infos^);
  1275.    Details.paDetails      := Infos;
  1276.    Details.dwControlId    := Id;
  1277.    Details.cMultipleItems := Items;
  1278.    Details.cChannels      := Channels;
  1279.    Check(mixerGetControlDetails(MixerId, @Details, MIXER_OBJECTF_MIXER or MIXER_GETCONTROLDETAILSF_LISTTEXT));
  1280. end;
  1282. {-- TMMMixerDevice ------------------------------------------------------}
  1283. procedure TMMMixerDevice.GetControlValues(Id: TMMControlId; ItemSize: DWORD; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: Pointer; Flags: DWORD);
  1284. var
  1285.    Details    : TMixerControlDetails;
  1286. begin
  1287.    FillChar(Details,SizeOf(Details),0);
  1288.    Details.cbStruct       := SizeOf(Details);
  1289.    Details.cbDetails      := ItemSize;
  1290.    Details.paDetails      := Values;
  1291.    Details.dwControlId    := Id;
  1292.    Details.cMultipleItems := Items;
  1293.    Details.cChannels      := Channels;
  1294.    Check(mixerGetControlDetails(MixerId, @Details, MIXER_OBJECTF_MIXER or Flags));
  1295. end;
  1297. {-- TMMMixerDevice ------------------------------------------------------}
  1298. procedure TMMMixerDevice.SetControlValues(Id: TMMControlId; ItemSize: DWORD; Channels: TMMChannelIndex; Items: TMMItemIndex; Values: Pointer; Flags: DWORD);
  1299. var
  1300.    Details    : TMixerControlDetails;
  1301. begin
  1302.    FillChar(Details,SizeOf(Details),0);
  1303.    Details.cbStruct       := SizeOf(Details);
  1304.    Details.cbDetails      := ItemSize;
  1305.    Details.paDetails      := Values;
  1306.    Details.dwControlId    := Id;
  1307.    Details.cMultipleItems := Items;
  1308.    Details.cChannels      := Channels;
  1309.    Check(mixerSetControlDetails(MixerId, @Details, MIXER_OBJECTF_MIXER or Flags));
  1310. end;
  1312. {== TMMLineInfo =========================================================}
  1313. procedure TMMLineInfo.SetDummyStr(const Value: string);
  1314. begin
  1315.   ;
  1316. end;
  1318. {-- TMMLineInfo ---------------------------------------------------------}
  1319. procedure TMMLineInfo.Clear;
  1320. begin
  1321.    FFlags       := [];
  1322.    FChannels    := 0;
  1323.    FConnections := 0;
  1324.    FControls    := 0;
  1325.    FShortName   := '';
  1326.    FName        := '';
  1327. end;
  1329. {== TMMAudioLine ========================================================}
  1330. constructor TMMAudioLine.Create(AOwner: TComponent);
  1331. begin
  1332.    inherited Create(AOwner);
  1334.    FLineInfo               := TMMLineInfo.Create;
  1335.    FObserver               := TMMObserver.Create;
  1336.    FObserver.OnNotify      := MixerNotify;
  1337.    FTargetObserver         := TMMObserver.Create;
  1338.    FTargetObserver.OnNotify:= TargetNotify;
  1339.    FDestObserver           := TMMObserver.Create;
  1340.    FDestObserver.OnNotify  := DestNotify;
  1341.    FLineId                 := badLineId;
  1342.    FObservable             := TMMObservable.Create;
  1343. end;
  1345. {-- TMMAudioLine --------------------------------------------------------}
  1346. destructor TMMAudioLine.Destroy;
  1347. begin
  1348.    FObserver.Free;
  1349.    FTargetObserver.Free;
  1350.    FDestObserver.Free;
  1351.    FObservable.Free;
  1352.    FObservable:= nil;
  1353.    FLineInfo.Free;
  1355.    inherited Destroy;
  1356. end;
  1358. {-- TMMAudioLine --------------------------------------------------------}
  1359. procedure TMMAudioLine.Notification(AComponent: TComponent; Operation: TOperation);
  1360. begin
  1361.    inherited Notification(AComponent,Operation);
  1363.    if (Operation = opRemove) then
  1364.    begin
  1365.       if (AComponent = FMixer) then
  1366.          Mixer:= nil
  1367.       else if (AComponent = FTarget) then
  1368.          Target:= nil
  1369.       else if (AComponent = FDestLine) then
  1370.          DestLine := nil
  1371.    end;
  1372. end;
  1374. {-- TMMAudioLine --------------------------------------------------------}
  1375. procedure TMMAudioLine.SetMixer(Value: TMMMixerDevice);
  1376. begin
  1377.    if (Value <> FMixer) then
  1378.    begin
  1379.       if (FMixer <> nil) then
  1380.          FMixer.RemoveObserver(FObserver);
  1381.       FMixer:= Value;
  1382.       if (FMixer <> nil) then
  1383.       begin
  1384.          FMixer.AddObserver(FObserver);
  1385.          FMixer.FreeNotification(Self);
  1386.       end;
  1387.       UpdateLine;
  1388.    end;
  1389. end;
  1391. {-- TMMAudioLine --------------------------------------------------------}
  1392. procedure TMMAudioLine.SetLineId(Value: TMMLineId);
  1393. begin
  1394.    if (Value <> FLineId) then
  1395.    begin
  1396.       FLineId    := Value;
  1397.       FLineSetup := lsLineId;
  1398.       UpdateLine;
  1399.    end;
  1400. end;
  1402. {-- TMMAudioLine --------------------------------------------------------}
  1403. procedure TMMAudioLine.SetComponentType(Value: TMMComponentType);
  1404. begin
  1405.    if (Value <> FComponentType) then
  1406.    begin
  1407.       FComponentType := Value;
  1408.       FLineSetup     := lsCompType;
  1409.       UpdateLine;
  1410.    end;
  1411. end;
  1413. {-- TMMAudioLine --------------------------------------------------------}
  1414. procedure TMMAudioLine.SetTarget(Value: TMMCustomAudioDevice);
  1415. begin
  1416.    if (Value <> nil) and (Value.GetDeviceType = dtMixer) then
  1417.        { TODO: Should be resource id }
  1418.        raise EMMMixerDeviceError.Create('Can''t target to mixer');
  1420.    if Value <> FTarget then
  1421.    begin
  1422.       if FTarget <> nil then
  1423.          FTarget.RemoveObserver(FTargetObserver);
  1425.       FTarget:= Value;
  1427.       if FTarget <> nil then
  1428.       begin
  1429.          FTarget.AddObserver(FTargetObserver);
  1430.          FTarget.FreeNotification(Self);
  1431.       end;
  1432.       FLineSetup := lsTarget;
  1433.       UpdateLine;
  1434.    end;
  1435. end;
  1437. {-- TMMAudioLine --------------------------------------------------------}
  1438. function TMMAudioLine.StoreLineId: Boolean;
  1439. begin
  1440.    Result:= (FLineSetup = lsLineId) and (FLineId <> badLineId);
  1441. end;
  1443. {-- TMMAudioLine --------------------------------------------------------}
  1444. function TMMAudioLine.StoreComponentType: Boolean;
  1445. begin
  1446.    Result := (FLineSetup = lsCompType) and (FComponentType <> Low(TMMComponentType));
  1447. end;
  1449. {-- TMMAudioLine --------------------------------------------------------}
  1450. function TMMAudioLine.StoreTarget: Boolean;
  1451. begin
  1452.    Result := (FLineSetup = lsTarget) and (FTarget <> nil);
  1453. end;
  1455. {-- TMMAudioLine --------------------------------------------------------}
  1456. procedure TMMAudioLine.SetLineInfo(const Info: TMMLineInfo);
  1457. begin
  1458.   ;
  1459. end;
  1461. {-- TMMAudioLine --------------------------------------------------------}
  1462. function TMMAudioLine.GetConnections: TMMConnectionIndex;
  1463. begin
  1464.    Result := LineInfo.Connections;
  1465. end;
  1467. {-- TMMAudioLine --------------------------------------------------------}
  1468. function TMMAudioLine.GetConnection(Index: TMMConnectionIndex): TMMLineId;
  1469. var
  1470.     Info: TMixerLine;
  1471. begin
  1472.    if not InRange(Index, 0, Connections - 1) then
  1473.       { TODO: Should be resource id }
  1474.       raise EMMAudioLineError.Create('Connection index out of range');
  1476.    if ValidMixer then
  1477.    begin
  1478.       if Mixer.GetLineInfoBySource(FDestinationId, Index, Info) then
  1479.       begin
  1480.          Result:= Info.dwLineId;
  1481.          Exit;
  1482.       end;
  1483.    end;
  1484.    Result:= badLineId;
  1485. end;
  1487. {-- TMMAudioLine --------------------------------------------------------}
  1488. function TMMAudioLine.GetControls: TMMControlIndex;
  1489. begin
  1490.    Result := LineInfo.Controls;
  1491. end;
  1493. {-- TMMAudioLine --------------------------------------------------------}
  1494. function TMMAudioLine.GetControl(Index: TMMControlIndex): TMMControlId;
  1495. var
  1496.     P, R: PMixerControl;
  1497.     Size: Integer;
  1498. begin
  1499.    if not InRange(Index, 0, Controls - 1) then
  1500.       { TODO: Should be resource id }
  1501.       raise EMMAudioLineError.Create('Control index out of range');
  1503.    if not ValidMixer then
  1504.    begin
  1505.       Result:= badControlId;
  1506.       Exit;
  1507.    end;
  1508.    Size:= SizeOf(P^)*Controls;
  1509.    GetMem(P,Size);
  1510.    try
  1511.       Mixer.GetAllControls(LineId,Controls,P);
  1512.       R:= P;
  1513.       Inc(R,Index);
  1514.       Result:= R^.dwControlId;
  1515.    finally
  1516.       FreeMem(P,Size);
  1517.    end;
  1518. end;
  1520. {-- TMMAudioLine --------------------------------------------------------}
  1521. function TMMAudioLine.ValidMixer: Boolean;
  1522. begin
  1523.    Result:= (FMixer <> nil) and FMixer.ValidDevice;
  1524. end;
  1526. {-- TMMAudioLine --------------------------------------------------------}
  1527. procedure TMMAudioLine.UpdateLine;
  1528. var
  1529.     LineInfo: TMixerLine;
  1530.     Ok: Boolean;
  1531. begin
  1532.    if csLoading in ComponentState then
  1533.       Exit;
  1535.    FDestinationId:= badLineId;
  1536.    Ok := False;
  1537.    if ValidMixer then
  1538.    begin
  1539.       if FDestLine <> nil then
  1540.         if FDestLine.Mixer = Mixer then
  1541.             Ok := FDestLine.GetLineInfoForSource(Self,LineInfo)
  1542.         else
  1543.             Ok := False
  1544.       else
  1545.       case FLineSetup of
  1546.         lsLineId   : Ok:= (FLineId <> badLineId) and Mixer.GetLineInfoById(FLineId, LineInfo);
  1547.         lsCompType : Ok:= Mixer.GetLineInfoByCompType(FComponentType, LineInfo);
  1548.         lsTarget   : Ok:= Mixer.GetLineInfoByTarget(FTarget, LineInfo);
  1549.       end;
  1551.       if Ok then
  1552.       begin
  1553.          FLineId        := LineInfo.dwLineId;
  1554.          FComponentType := APIToCompType(LineInfo.dwComponentType);
  1555.          with FLineInfo do
  1556.          begin
  1557.             FFlags         := APIToLineFlags(LineInfo.fdwLine);
  1558.             FChannels      := LineInfo.cChannels;
  1559.             FConnections   := LineInfo.cConnections;
  1560.             FControls      := LineInfo.cControls;
  1561.             if not (cfSource in FFlags) then
  1562.                FDestinationId := LineInfo.dwDestination
  1563.             else
  1564.                FDestinationId := badLineId;
  1566.             FShortName     := LineInfo.szShortName;
  1567.             FName          := LineInfo.szName;
  1568.          end;
  1569.       end
  1570.       else
  1571.       begin
  1572.          FLineId := badLineId;
  1573.          FLineInfo.Clear;
  1574.       end;
  1575.    end;
  1576.    LineIdChanged;
  1577. end;
  1579. {-- TMMAudioLine --------------------------------------------------------}
  1580. procedure TMMAudioLine.Loaded;
  1581. begin
  1582.    inherited Loaded;
  1584.    UpdateLine;
  1585. end;
  1587. {-- TMMAudioLine --------------------------------------------------------}
  1588. procedure TMMAudioLine.MixerNotify(Sender, Data: TObject);
  1589. begin
  1590.    if Data is TMMLineChange then
  1591.    begin
  1592.       if (Data as TMMLineChange).LineId = FLineId then
  1593.           Changed;
  1594.    end
  1595.    else if Data is TMMControlChange then
  1596.    begin
  1597.       if (Data as TMMControlChange).LineId = FLineId then
  1598.           ControlChanged((Data as TMMControlChange).ControlId)
  1599.    end
  1600.    else if Data is TMMDeviceChange then
  1601.    begin
  1602.       UpdateLine;
  1603.    end;
  1604. end;
  1606. {-- TMMAudioLine --------------------------------------------------------}
  1607. procedure TMMAudioLine.TargetNotify(Sender, Data: TObject);
  1608. begin
  1609.    UpdateLine;
  1610. end;
  1612. {-- TMMAudioLine --------------------------------------------------------}
  1613. procedure TMMAudioLine.DestNotify(Sender, Data: TObject);
  1614. begin
  1615.     if (Data <> nil) and (Data is TMMLineIdChange) then
  1616.         UpdateLine;
  1617. end;
  1619. {-- TMMAudioLine --------------------------------------------------------}
  1620. procedure TMMAudioLine.SetDestLine(Value: TMMComponent1);
  1621. begin
  1622.     if (Value <> nil) and not (Value is TMMAudioLine) then
  1623.         { TODO: Should be resource id }
  1624.         raise EMMMixerDeviceError.Create('DestLine should be TMMAudioLine');
  1626.     if FDestLine <> Value then
  1627.     begin
  1628.         if FDestLine <> nil then
  1629.             FDestLine.RemoveObserver(FDestObserver);
  1631.         FDestLine := Value as TMMAudioLine;
  1633.         if FDestLine <> nil then
  1634.         begin
  1635.             FDestLine.AddObserver(FTargetObserver);
  1636.             FDestLine.FreeNotification(Self);
  1637.         end;
  1638.         UpdateLine;
  1639.     end;
  1640. end;
  1642. {-- TMMAudioLine --------------------------------------------------------}
  1643. function  TMMAudioLine.GetDestLine: TMMComponent1;
  1644. begin
  1645.     Result := FDestLine;
  1646. end;
  1648. {-- TMMAudioLine --------------------------------------------------------}
  1649. procedure TMMAudioLine.Changed;
  1650. var
  1651.     Chg: TMMLineChange;
  1652. begin
  1653.    Chg:= TMMLineChange.Create;
  1654.    try
  1655.       Chg.LineId:= LineId;
  1656.       FObservable.NotifyObservers(Chg);
  1657.    finally
  1658.       Chg.Free;
  1659.    end;
  1660.    DoChange;
  1661. end;
  1663. {-- TMMAudioLine --------------------------------------------------------}
  1664. procedure TMMAudioLine.LineIdChanged;
  1665. var
  1666.     Chg: TMMLineIdChange;
  1667. begin
  1668.    Chg:= TMMLineIdChange.Create;
  1669.    try
  1670.       FObservable.NotifyObservers(Chg);
  1671.    finally
  1672.       Chg.Free;
  1673.    end;
  1674. end;
  1676. {-- TMMAudioLine --------------------------------------------------------}
  1677. procedure TMMAudioLine.DoChange;
  1678. begin
  1679.    if Assigned(FOnChange) then FOnChange(Self);
  1680. end;
  1682. {-- TMMAudioLine --------------------------------------------------------}
  1683. procedure TMMAudioLine.ControlChanged(CtlId: TMMControlId);
  1684. var
  1685.     Chg: TMMControlChange;
  1686. begin
  1687.    Chg:= TMMControlChange.Create;
  1688.    try
  1689.       Chg.LineId     := LineId;
  1690.       Chg.ControlId  := CtlId;
  1691.       FObservable.NotifyObservers(Chg);
  1692.    finally
  1693.       Chg.Free;
  1694.    end;
  1695.    DoControlChange(CtlId);
  1696. end;
  1698. {-- TMMAudioLine --------------------------------------------------------}
  1699. procedure TMMAudioLine.DoControlChange(CtlId: TMMControlId);
  1700. begin
  1701.    if Assigned(FOnControlChange) then FOnControlChange(Self, FLineId, CtlId);
  1702. end;
  1704. {-- TMMAudioLine --------------------------------------------------------}
  1705. procedure TMMAudioLine.AddObserver(O: TMMObserver);
  1706. begin
  1707.    FObservable.AddObserver(O);
  1708. end;
  1710. {-- TMMAudioLine --------------------------------------------------------}
  1711. procedure TMMAudioLine.RemoveObserver(O: TMMObserver);
  1712. begin
  1713.    if FObservable <> nil then
  1714.       FObservable.RemoveObserver(O);
  1715. end;
  1717. {-- TMMAudioLine --------------------------------------------------------}
  1718. function  TMMAudioLine.GetLineInfoForSource(Source: TMMAudioLine; var Info : TMixerLine): Boolean;
  1719. var
  1720.    i : Integer;
  1721.    Ok: Boolean;
  1723.    function CompTypeOk: Boolean;
  1724.    begin
  1725.     Result := APIToCompType(Info.dwComponentType) = Source.FComponentType;
  1726.    end;
  1728.    function TargetOk: Boolean;
  1729.    begin
  1730.     if Source.Target <> nil then
  1731.        with Source.Target.DeviceCaps do
  1732.        begin
  1733.           Result := (Info.Target.dwType = DeviceTypeToTarget(Source.Target.GetDeviceType)) and
  1734.                     (Info.Target.wMid = ManufacturerId) and
  1735.                     (Info.Target.wPid = ProductId) and
  1736.                     (Info.Target.vDriverVersion = MakeVersion(VerMajor,VerMinor)) and
  1737.                     (StrComp(Info.Target.szPName, PChar(ProductName)) = 0);
  1738.         end
  1739.     else
  1740.         Result := False;
  1741.    end;
  1742. begin
  1743.    Result := False;
  1744.    Ok     := False;
  1746.    if csLoading in ComponentState then
  1747.       Exit;
  1749.    if ValidMixer and
  1750.       (LineId <> badLineId) and
  1751.       not (cfSource in LineInfo.Flags) then
  1752.    begin
  1753.       case Source.FLineSetup of
  1754.         lsLineId   : Ok:= (Source.FLineId <> badLineId) and Mixer.GetLineInfoById(Source.FLineId, Info);
  1755.         lsCompType : Ok:= Mixer.GetLineInfoByCompType(Source.FComponentType, Info);
  1756.         lsTarget   : Ok:= Mixer.GetLineInfoByTarget(Source.FTarget, Info);
  1757.       end;
  1759.       if not Ok then
  1760.         Exit;
  1762.       if Info.dwDestination = LineId then
  1763.       begin
  1764.         Result := True;
  1765.         Exit;
  1766.       end;
  1768.       if Source.FLineSetup = lsLineId then
  1769.         Exit;
  1771.       for i := 0 to Connections - 1 do
  1772.         if Mixer.GetLineInfoBySource(FDestinationId, i, Info) then
  1773.             if ((Source.FLineSetup = lsCompType) and CompTypeOk) or
  1774.                ((Source.FLineSetup = lsTarget) and TargetOk) then begin
  1775.                 Result := True;
  1776.                 Exit;
  1777.             end;
  1778.    end;
  1779. end;
  1781. {== TMMControlInfo ======================================================}
  1782. procedure TMMControlInfo.SetDummyStr(const Value: string);
  1783. begin
  1784.   ;
  1785. end;
  1787. {-- TMMControlInfo ------------------------------------------------------}
  1788. procedure TMMControlInfo.Clear;
  1789. begin
  1790.    FFlags         := [];
  1791.    FMultipleItems := 0;
  1792.    FShortName     := '';
  1793.    FName          := '';
  1794.    FMinValue      := 0;
  1795.    FMaxValue      := 0;
  1796.    FSteps         := 0;
  1797. end;
  1799. {== TMMCustomMixerControl ===============================================}
  1800. constructor TMMCustomMixerControl.Create(AOwner: TComponent);
  1801. begin
  1802.    inherited Create(AOwner);
  1804.    FControlInfo       := TMMControlInfo.Create;
  1805.    FControlId         := badControlId;
  1806.    FObserver          := TMMObserver.Create;
  1807.    FObserver.OnNotify := LineNotify;
  1808.    FObservable        := TMMObservable.Create;
  1809. end;
  1811. {-- TMMCustomMixerControl -----------------------------------------------}
  1812. destructor TMMCustomMixerControl.Destroy;
  1813. begin
  1814.    FObserver.Free;
  1815.    FControlInfo.Free;
  1816.    FObservable.Free;
  1817.    FObservable:= nil;
  1819.    inherited Destroy;
  1820. end;
  1822. {-- TMMCustomMixerControl -----------------------------------------------}
  1823. procedure TMMCustomMixerControl.AddObserver(O: TMMObserver);
  1824. begin
  1825.    FObservable.AddObserver(O);
  1826. end;
  1828. {-- TMMCustomMixerControl -----------------------------------------------}
  1829. procedure TMMCustomMixerControl.RemoveObserver(O: TMMObserver);
  1830. begin
  1831.    if FObservable <> nil then
  1832.       FObservable.RemoveObserver(O);
  1833. end;
  1835. {-- TMMCustomMixerControl -----------------------------------------------}
  1836. procedure TMMCustomMixerControl.CalcParams(C: TMMChannel; Item: TMMItemIndex; var Ch: TMMChannelIndex; var It: TMMItemIndex);
  1837. begin
  1838.    NeedId;
  1839.    if C = chBoth then
  1840.       Ch:= Min(Channels,1)
  1841.    else
  1842.       Ch:= Channels;
  1844.    if Item = NoItem then
  1845.       It:= 0
  1846.    else if InRange(Item,0,Items-1) then
  1847.       It:= Items
  1848.    else
  1849.       { TODO: Should be resource id }
  1850.       raise EMMMixerControlError.Create('Item index out of range');
  1851. end;
  1853. {-- TMMCustomMixerControl -----------------------------------------------}
  1854. function TMMCustomMixerControl.GetChannelSigned(C: TMMChannel; Item: TMMItemIndex): Integer;
  1855. var
  1856.     P  : PIntArray;
  1857.     Size: Integer;
  1858.     Ch : TMMChannelIndex;
  1859.     It : TMMItemIndex;
  1860. begin
  1861.    CalcParams(C,Item,Ch,It);
  1862.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1863.    GetMem(P,Size);
  1864.    try
  1865.       Mixer.GetSignedControl(ControlId,Ch,It,@P^[0]);
  1866.       Result:= P^[ValueIndex(C,Item)];
  1867.    finally
  1868.       FreeMem(P,Size);
  1869.    end;
  1870. end;
  1872. {-- TMMCustomMixerControl -----------------------------------------------}
  1873. procedure TMMCustomMixerControl.SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer);
  1874. var
  1875.     P  : PIntArray;
  1876.     Size: Integer;
  1877.     Ch : TMMChannelIndex;
  1878.     It : TMMItemIndex;
  1879. begin
  1880.    CalcParams(C,Item,Ch,It);
  1881.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1882.    GetMem(P,Size);
  1883.    try
  1884.       Mixer.GetSignedControl(ControlId,Ch,It,@P^[0]);
  1885.       P^[ValueIndex(C,Item)]:= Value;
  1886.       Mixer.SetSignedControl(ControlId,Ch,It,@P^[0]);
  1887.    finally
  1888.       FreeMem(P,Size);
  1889.    end;
  1890. end;
  1892. {-- TMMCustomMixerControl -----------------------------------------------}
  1893. function TMMCustomMixerControl.GetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex): Cardinal;
  1894. var
  1895.     P  : PCardinalArray;
  1896.     Size: Integer;
  1897.     Ch : TMMChannelIndex;
  1898.     It : TMMItemIndex;
  1899. begin
  1900.    CalcParams(C,Item,Ch,It);
  1901.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1902.    GetMem(P,Size);
  1903.    try
  1904.       Mixer.GetUnsignedControl(ControlId,Ch,It,@P^[0]);
  1905.       Result:= P^[ValueIndex(C,Item)];
  1906.    finally
  1907.       FreeMem(P,Size);
  1908.    end;
  1909. end;
  1911. {-- TMMCustomMixerControl -----------------------------------------------}
  1912. procedure TMMCustomMixerControl.SetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex; Value: Cardinal);
  1913. var
  1914.     P  : PCardinalArray;
  1915.     Size: Integer;
  1916.     Ch : TMMChannelIndex;
  1917.     It : TMMItemIndex;
  1918. begin
  1919.    CalcParams(C,Item,Ch,It);
  1920.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1921.    GetMem(P,Size);
  1922.    try
  1923.       Mixer.GetUnsignedControl(ControlId,Ch,It,@P^[0]);
  1924.       P^[ValueIndex(C,Item)]:= Value;
  1925.       Mixer.SetUnsignedControl(ControlId,Ch,It,@P^[0]);
  1926.    finally
  1927.       FreeMem(P,Size);
  1928.    end;
  1929. end;
  1931. {-- TMMCustomMixerControl -----------------------------------------------}
  1932. function TMMCustomMixerControl.GetChannelBoolean(C: TMMChannel; Item: TMMItemIndex): Boolean;
  1933. var
  1934.     P  : PBooleanArray;
  1935.     Size: Integer;
  1936.     Ch : TMMChannelIndex;
  1937.     It : TMMItemIndex;
  1938. begin
  1939.    CalcParams(C,Item,Ch,It);
  1940.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1941.    GetMem(P,Size);
  1942.    try
  1943.       Mixer.GetBooleanControl(ControlId,Ch,It,@P^[0]);
  1944.       Result:= P^[ValueIndex(C,Item)];
  1945.    finally
  1946.       FreeMem(P,Size);
  1947.    end;
  1948. end;
  1950. {-- TMMCustomMixerControl -----------------------------------------------}
  1951. procedure TMMCustomMixerControl.SetChannelBoolean(C: TMMChannel; Item: TMMItemIndex; Value: Boolean);
  1952. var
  1953.     P  : PBooleanArray;
  1954.     Size: Integer;
  1955.     Ch : TMMChannelIndex;
  1956.     It : TMMItemIndex;
  1957.     i  : TMMItemIndex;
  1958. begin
  1959.    CalcParams(C,Item,Ch,It);
  1960.    Size:= SizeOf(P^)*Max(Ch,1)*Max(It,1);
  1961.    GetMem(P,Size);
  1962.    try
  1963.       Mixer.GetBooleanControl(ControlId,Ch,It,@P^[0]);
  1964.       { If controls is single select, then we should clear other items first }
  1965.       if (Items > 0) and IsControlTypeSingleSelect(ControlTypeToAPI(ControlType)) then
  1966.         for i := 0 to Items - 1 do
  1967.             P^[ValueIndex(C,i)] := False;
  1968.       P^[ValueIndex(C,Item)]:= Value;
  1969.       Mixer.SetBooleanControl(ControlId,Ch,It,@P^[0]);
  1970.    finally
  1971.       FreeMem(P,Size);
  1972.    end;
  1973. end;
  1975. {-- TMMCustomMixerControl -----------------------------------------------}
  1976. function    TMMCustomMixerControl.GetItemInfo(Index: TMMItemIndex): TMMItemInfo;
  1977. var
  1978.     P, R   : PMixerControlDetailsListText;
  1979.     Size   : Integer;
  1980. begin
  1981.    NeedId;
  1982.    if not (cfMultiple in ControlInfo.Flags) then
  1983.       { TODO: Should be resource id }
  1984.       raise EMMMixerControlError.Create('Item info requested from non-multiple control');
  1986.    FillChar(Result,SizeOf(Result),0);
  1988.    if not InRange(Index,0,Items-1) then
  1989.       { TODO: Should be resource id }
  1990.       raise EMMMixerControlError.Create('Item index out of range');
  1991.    Size:= SizeOf(P^) * Max(Items,1) * Max(Channels,1);
  1992.    GetMem(P,Size);
  1993.    try
  1994.       Mixer.GetItemsInfo(ControlId,Channels,Items,P);
  1995.       R:= P;
  1996.       Inc(R,Index*Max(Channels,1));
  1997.       with R^ do
  1998.       begin
  1999.          Result.Val1:= dwParam1;
  2000.          Result.Val2:= dwParam2;
  2001.          Result.Name:= szName;
  2002.       end;
  2004.    finally
  2005.       FreeMem(P,Size);
  2006.    end;
  2007. end;
  2009. {-- TMMCustomMixerControl -----------------------------------------------}
  2010. procedure TMMCustomMixerControl.UpdateControl;
  2011. var
  2012.     Info: TMixerControl;
  2013.     Ok  : Boolean;
  2014. begin
  2015.    if csLoading in ComponentState then
  2016.    begin
  2017.       FControlClass:= ControlClassOfType(ControlTypeToAPI(FControlType));
  2018.       Exit;
  2019.    end;
  2021.    Ok:= False;
  2022.    if ValidMixer then
  2023.    begin
  2024.       case FControlSetup of
  2025.         csControlId    : Ok:= Mixer.GetControlInfoById(FControlId, Info);
  2026.         csControlType  : Ok:= Mixer.GetControlInfoByType(LineId, FControlType, Info);
  2027.       end;
  2029.       if Ok and ValidControl(Info) then
  2030.       begin
  2031.          FControlId := Info.dwControlId;
  2032.          FControlType:= APIToControlType(Info.dwControlType);
  2033.          with FControlInfo do
  2034.          begin
  2035.             FFlags         := APIToControlFlags(Info.fdwControl);
  2036.             FMultipleItems := Info.cMultipleItems;
  2037.             FShortName     := Info.szShortName;
  2038.             FName          := Info.szName;
  2039.             FMinValue      := Info.Bounds.lMinimum;
  2040.             FMaxValue      := Info.Bounds.lMaximum;
  2041.             FSteps         := Info.Metrics.cSteps;
  2042.          end;
  2043.       end
  2044.       else
  2045.       begin
  2046.          FControlId := badControlId;
  2047.          FControlInfo.Clear;
  2048.       end;
  2049.     end;
  2050.     FControlClass:= ControlClassOfType(ControlTypeToAPI(FControlType));
  2051.     ControlIdChanged;
  2052. end;
  2054. {-- TMMCustomMixerControl -----------------------------------------------}
  2055. procedure TMMCustomMixerControl.Loaded;
  2056. begin
  2057.    inherited Loaded;
  2059.    UpdateControl;
  2060. end;
  2062. {-- TMMCustomMixerControl -----------------------------------------------}
  2063. procedure TMMCustomMixerControl.LineNotify(Sender, Data: TObject);
  2064. begin
  2065.    if Data is TMMControlChange then
  2066.    begin
  2067.       with (Data as TMMControlChange) do
  2068.       if (LineId = Self.LineId) and (ControlId = Self.ControlId) then
  2069.           Self.Changed;
  2070.    end
  2071.    else if Data is TMMLineIdChange then
  2072.            UpdateControl;
  2073. end;
  2075. {-- TMMCustomMixerControl -----------------------------------------------}
  2076. procedure TMMCustomMixerControl.Notification(AComponent: TComponent; Operation: TOperation);
  2077. begin
  2078.    inherited Notification(AComponent,Operation);
  2080.    if Operation = opRemove then
  2081.    begin
  2082.       if AComponent = AudioLine then
  2083.          AudioLine:= nil;
  2084.    end;
  2085. end;
  2087. {-- TMMCustomMixerControl -----------------------------------------------}
  2088. procedure TMMCustomMixerControl.SetAudioLine(Value: TMMAudioLine);
  2089. begin
  2090.    if Value <> FAudioLine then
  2091.    begin
  2092.       if FAudioLine <> nil then
  2093.          FAudioLine.RemoveObserver(FObserver);
  2095.       FAudioLine:= Value;
  2097.       if FAudioLine <> nil then
  2098.       begin
  2099.          FAudioLine.AddObserver(FObserver);
  2100.          FAudioLine.FreeNotification(Self);
  2101.       end;
  2102.       UpdateControl;
  2103.    end;
  2104. end;
  2106. {-- TMMCustomMixerControl -----------------------------------------------}
  2107. procedure TMMCustomMixerControl.SetControlId(Value: TMMControlId);
  2108. begin
  2109.    if Value <> FControlId then
  2110.    begin
  2111.       FControlId     := Value;
  2112.       FControlSetup  := csControlId;
  2113.       UpdateControl;
  2114.    end;
  2115. end;
  2117. {-- TMMCustomMixerControl -----------------------------------------------}
  2118. procedure TMMCustomMixerControl.SetControlType(Value: TMMControlType);
  2119. begin
  2120.    if Value <> FControlType then
  2121.    begin
  2122.       FControlType   := Value;
  2123.       FControlSetup  := csControlType;
  2124.       UpdateControl;
  2125.    end;
  2126. end;
  2128. {-- TMMCustomMixerControl -----------------------------------------------}
  2129. function TMMCustomMixerControl.GetMixer: TMMMixerDevice;
  2130. begin
  2131.    if (FAudioLine <> nil) and FAudioLine.ValidMixer then
  2132.        Result := FAudioLine.Mixer
  2133.    else
  2134.        Result := nil;
  2135. end;
  2137. {-- TMMCustomMixerControl -----------------------------------------------}
  2138. procedure TMMCustomMixerControl.NeedMixer;
  2139. begin
  2140.    if Mixer = nil then
  2141.       { TODO: Should be resouce id }
  2142.       raise EMMDeviceError.Create('Mixer required for this operation');
  2143. end;
  2145. {-- TMMCustomMixerControl -----------------------------------------------}
  2146. procedure TMMCustomMixerControl.NeedId;
  2147. begin
  2148.    NeedMixer;
  2149.    if FControlId = badControlId then
  2150.       { TODO: Should be resouce id }
  2151.       raise EMMDeviceError.Create('Control not valid');
  2152. end;
  2154. {-- TMMCustomMixerControl -----------------------------------------------}
  2155. function TMMCustomMixerControl.GetLineId: TMMLineId;
  2156. begin
  2157.    NeedMixer;
  2158.    Result := FAudioLine.LineId;
  2159. end;
  2161. {-- TMMCustomMixerControl -----------------------------------------------}
  2162. procedure TMMCustomMixerControl.Changed;
  2163. var
  2164.     CtlChg: TMMControlChange;
  2165. begin
  2166.    CtlChg:= TMMControlChange.Create;
  2167.    try
  2168.       if ValidMixer then
  2169.          CtlChg.LineId      := LineId
  2170.       else
  2171.          CtlChg.LineId      := badLineId;
  2172.       CtlChg.ControlId   := ControlId;
  2173.       FObservable.NotifyObservers(CtlChg);
  2174.    finally
  2175.       CtlChg.Free;
  2176.    end;
  2177.    DoChange;
  2178. end;
  2180. {-- TMMCustomMixerControl -----------------------------------------------}
  2181. procedure TMMCustomMixerControl.ControlIdChanged;
  2182. var
  2183.     CtlChg: TMMControlIdChange;
  2184. begin
  2185.    CtlChg:= TMMControlIdChange.Create;
  2186.    try
  2187.       FObservable.NotifyObservers(CtlChg);
  2188.    finally
  2189.       CtlChg.Free;
  2190.    end;
  2191. end;
  2193. {-- TMMCustomMixerControl -----------------------------------------------}
  2194. procedure TMMCustomMixerControl.DoChange;
  2195. begin
  2196.    if System.Assigned(FOnChange) then
  2197.       FOnChange(Self);
  2198. end;
  2200. {-- TMMCustomMixerControl -----------------------------------------------}
  2201. function TMMCustomMixerControl.StoreControlId: Boolean;
  2202. begin
  2203.    Result:= (FControlSetup = csControlId) and (FControlId <> badLineId);
  2204. end;
  2206. {-- TMMCustomMixerControl -----------------------------------------------}
  2207. procedure TMMCustomMixerControl.SetControlInfo(const Value: TMMControlInfo);
  2208. begin
  2209.   ;
  2210. end;
  2212. {-- TMMCustomMixerControl -----------------------------------------------}
  2213. function TMMCustomMixerControl.GetBoolean: Boolean;
  2214. begin
  2215.    NeedId;
  2216.    Mixer.GetBooleanControl(ControlId, Min(Channels,1), 0, @Result);
  2217. end;
  2219. {-- TMMCustomMixerControl -----------------------------------------------}
  2220. procedure TMMCustomMixerControl.SetBoolean(Value: Boolean);
  2221. begin
  2222.    NeedId;
  2223.    Mixer.SetBooleanControl(ControlId, Min(Channels,1), 0, @Value);
  2224. end;
  2226. {-- TMMCustomMixerControl -----------------------------------------------}
  2227. function TMMCustomMixerControl.GetUnsigned: Cardinal;
  2228. begin
  2229.    NeedId;
  2230.    Mixer.GetUnsignedControl(ControlId, Min(Channels,1), 0, @Result);
  2231. end;
  2233. {-- TMMCustomMixerControl -----------------------------------------------}
  2234. procedure TMMCustomMixerControl.SetUnsigned(Value: Cardinal);
  2235. begin
  2236.    NeedId;
  2237.    Mixer.SetUnsignedControl(ControlId, Min(Channels,1), 0, @Value);
  2238. end;
  2240. {-- TMMCustomMixerControl -----------------------------------------------}
  2241. function TMMCustomMixerControl.GetSigned: Integer;
  2242. begin
  2243.    NeedId;
  2244.    Mixer.GetSignedControl(ControlId, Min(Channels,1), 0, @Result);
  2245. end;
  2247. {-- TMMCustomMixerControl -----------------------------------------------}
  2248. procedure TMMCustomMixerControl.SetSigned(Value: Integer);
  2249. begin
  2250.    NeedId;
  2251.    Mixer.SetSignedControl(ControlId, Min(Channels,1), 0, @Value);
  2252. end;
  2254. {-- TMMCustomMixerControl -----------------------------------------------}
  2255. function TMMCustomMixerControl.GetAvailable: Boolean;
  2256. begin
  2257.    Result:= ValidMixer and (ControlId <> badControlId);
  2258. end;
  2260. {-- TMMCustomMixerControl -----------------------------------------------}
  2261. function TMMCustomMixerControl.GetChannels: Integer;
  2262. begin
  2263.    if Mixer = nil then
  2264.       Result:= 0
  2265.    else if cfUniform in ControlInfo.Flags then
  2266.       Result:= 1
  2267.    else
  2268.       Result:= AudioLine.LineInfo.Channels;
  2269. end;
  2271. {-- TMMCustomMixerControl -----------------------------------------------}
  2272. function TMMCustomMixerControl.GetItems: TMMItemIndex;
  2273. begin
  2274.    if Mixer = nil then
  2275.       Result:= 0
  2276.    else
  2277.       Result:= ControlInfo.MultipleItems;
  2278. end;
  2280. {-- TMMCustomMixerControl -----------------------------------------------}
  2281. function TMMCustomMixerControl.ValueIndex(C: TMMChannel; Item: TMMItemIndex): Integer;
  2282. begin
  2283.    if (Channels < 2) or (C = chBoth) then
  2284.        Result:= Max(Item,0) + 0
  2285.    else if (C = chLeft) then
  2286.        Result:= Max(Channels,1) * Max(Item,0) + 0
  2287.    else
  2288.        Result:= Max(Channels,1) * Max(Item,0) + 1;
  2289. end;
  2291. {-- TMMCustomMixerControl -----------------------------------------------}
  2292. function TMMCustomMixerControl.ValidMixer : Boolean;
  2293. begin
  2294.    Result:= (Mixer <> nil) and (FAudioLine.LineId <> badLineId);
  2295. end;
  2297. {-- TMMCustomMixerControl -----------------------------------------------}
  2298. function TMMCustomMixerControl.CanModify  : Boolean;
  2299. begin
  2300.    Result:= Available and not (cfDisabled in ControlInfo.Flags);
  2301. end;
  2303. {-- TMMCustomMixerControl -----------------------------------------------}
  2304. function TMMCustomMixerControl.GetItemForLine(Line: TMMAudioLine): TMMItemIndex;
  2305. var
  2306.     i : TMMItemIndex;
  2307. begin
  2308.     if (Line <> nil) and (Line.LineId <> badLineId) and
  2309.        Available and (cfMultiple in ControlInfo.Flags) and
  2310.        (ControlType in [ctMixer,ctMux]) then
  2311.         for i := 0 to Items - 1 do
  2312.             if ItemInfo[i].Val1 = Line.LineId then
  2313.             begin
  2314.                 Result := i;
  2315.                 Exit;
  2316.             end;
  2317.     Result := NoItem;
  2318. end;
  2320. {-- TMMCustomMixerControl -----------------------------------------------}
  2321. function TMMCustomMixerControl.ValidControl(const Info: TMixerControl): Boolean;
  2322. begin
  2323.    Result:= True;
  2324. end;
  2326. {-- TMMCustomMixerControl -----------------------------------------------}
  2327. function TMMCustomMixerControl.GetControlSetup: TMMControlSetup;
  2328. begin
  2329.    Result:= FControlSetup;
  2330. end;
  2332. {-- TMMCustomMixerControl -----------------------------------------------}
  2333. function TMMCustomMixerControl.StoreControlType: Boolean;
  2334. begin
  2335.    Result:= (GetControlSetup = csControlType) and (ControlType <> Low(TMMControlType));
  2336. end;
  2338. {== TMMVolumeControl ====================================================}
  2339. constructor TMMVolumeControl.Create(AOwner: TComponent);
  2340. begin
  2341.    inherited Create(AOwner);
  2343.    ControlType:= ctVolume;
  2344. end;
  2346. {-- TMMVolumeControl ----------------------------------------------------}
  2347. procedure TMMVolumeControl.SetUnsigned(Value: Cardinal);
  2348. begin
  2349.    SetChannelUnsigned(chLeft,NoItem,Trunc(Value*Pan(chLeft)));
  2350.    SetChannelUnsigned(chRight,NoItem,Trunc(Value*Pan(chRight)));
  2351. end;
  2353. {-- TMMVolumeControl ----------------------------------------------------}
  2354. procedure TMMVolumeControl.SetSigned(Value: Integer);
  2355. begin
  2356.    SetChannelSigned(chLeft,NoItem,Trunc(Value*Pan(chLeft)));
  2357.    SetChannelSigned(chRight,NoItem,Trunc(Value*Pan(chRight)));
  2358. end;
  2360. {-- TMMVolumeControl ----------------------------------------------------}
  2361. procedure TMMVolumeControl.SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer);
  2362. begin
  2363.    if C = chBoth then
  2364.    begin
  2365.       inherited SetChannelSigned(chLeft,Item,Trunc(Value*Pan(chLeft)));
  2366.       inherited SetChannelSigned(chRight,Item,Trunc(Value*Pan(chRight)));
  2367.    end
  2368.    else inherited SetChannelSigned(C,Item,Value);
  2369. end;
  2371. {-- TMMVolumeControl ----------------------------------------------------}
  2372. procedure TMMVolumeControl.SetChannelUnsigned(C: TMMChannel; Item: TMMItemIndex; Value: Cardinal);
  2373. begin
  2374.    if C = chBoth then
  2375.    begin
  2376.       inherited SetChannelUnsigned(chLeft,Item,Trunc(Value*Pan(chLeft)));
  2377.       inherited SetChannelUnsigned(chRight,Item,Trunc(Value*Pan(chRight)));
  2378.    end
  2379.    else inherited SetChannelUnsigned(C,Item,Value);
  2380. end;
  2382. {-- TMMVolumeControl ----------------------------------------------------}
  2383. function TMMVolumeControl.Pan(C:TMMChannel):Extended;
  2384. begin
  2385.    if ((FPanValue <= 0) and (C = chLeft)) or
  2386.       ((FPanValue >= 0) and (C = chRight)) then
  2387.         Result:= 1
  2388.    else if C = chLeft then
  2389.         Result:= (MaxRightPan - FPanValue) / MaxRightPan
  2390.    else
  2391.         Result:= (MaxLeftPan - FPanValue) / MaxLeftPan;
  2392. end;
  2394. {-- TMMVolumeControl ----------------------------------------------------}
  2395. procedure TMMVolumeControl.SetPanValue(Value: Integer);
  2396. begin
  2397.    if FPanValue <> Value then
  2398.    begin
  2399.       FPanValue:= Value;
  2400.       if Available then
  2401.          AsSigned:= AsSigned;
  2402.    end;
  2403. end;
  2405. {-- TMMVolumeControl ----------------------------------------------------}
  2406. function TMMVolumeControl.ValidControl(const Info: TMixerControl): Boolean;
  2407. begin
  2408.    Result:= Info.dwControlType = MIXERCONTROL_CONTROLTYPE_VOLUME;
  2409. end;
  2411. {== TMMPanControl =======================================================}
  2412. constructor TMMPanControl.Create(AOwner: TComponent);
  2413. begin
  2414.    inherited Create(AOwner);
  2416.    ControlType        := ctPan;
  2417.    FSimulate          := True;
  2418.    FSimActive         := False;
  2419.    FObserver          := TMMObserver.Create;
  2420.    FObserver.OnNotify := VolumeNotify;
  2421. end;
  2423. {-- TMMPanControl -------------------------------------------------------}
  2424. destructor TMMPanControl.Destroy;
  2425. begin
  2426.    FObserver.Free;
  2428.    inherited Destroy;
  2429. end;
  2431. {-- TMMPanControl -------------------------------------------------------}
  2432. procedure TMMPanControl.UpdatePan;
  2433. var
  2434.     WasActive: Boolean;
  2435. begin
  2436.    if csLoading in ComponentState then
  2437.       Exit;
  2439.    WasActive := FSimActive;
  2440.    FSimActive:= not inherited GetAvailable and FSimulate and (FVolume <> nil) and
  2441.                 FVolume.Available and not (cfUniform in FVolume.ControlInfo.Flags) and
  2442.                 (FVolume.Channels > 1);
  2444.    if FSimActive then
  2445.    with ControlInfo do
  2446.    begin
  2447.       FFlags         := [cfUniform];
  2448.       FMultipleItems := 0;
  2449.       FShortName     := 'Pan';
  2450.       FName          := 'Simulated pan';
  2451.       FMinValue      := MaxLeftPan;
  2452.       FMaxValue      := MaxRightPan;
  2453.       FSteps         := 0;
  2454.    end;
  2456.    if FSimActive <> WasActive then
  2457.    begin
  2458.       inherited ControlIdChanged;
  2459.       if not WasActive then
  2460.          UpdatePanValue;
  2461.    end;
  2463.    if FVolume <> nil then
  2464.    begin
  2465.       if FSimActive then
  2466.          FVolume.PanValue:= AsSigned
  2467.       else
  2468.          FVolume.PanValue:= 0;
  2469.    end;
  2470. end;
  2472. {-- TMMPanControl -------------------------------------------------------}
  2473. procedure TMMPanControl.UpdateControl;
  2474. begin
  2475.    UpdatePan;
  2476.    if not FSimActive then
  2477.       inherited UpdateControl;
  2478. end;
  2480. {-- TMMPanControl -------------------------------------------------------}
  2481. procedure TMMPanControl.SetControl(Value:TMMVolumeControl);
  2482. begin
  2483.    if Value <> FVolume then
  2484.    begin
  2485.       if FVolume <> nil then
  2486.       begin
  2487.          FVolume.RemoveObserver(FObserver);
  2488.          FVolume.PanValue:= 0;
  2489.       end;
  2491.       FVolume:= Value;
  2493.       if FVolume <> nil then
  2494.       begin
  2495.          FVolume.AddObserver(FObserver);
  2496.          FVolume.FreeNotification(Self);
  2497.       end;
  2498.       UpdateControl;
  2499.    end;
  2500. end;
  2502. {-- TMMPanControl -------------------------------------------------------}
  2503. procedure TMMPanControl.SetSimulate(Value:Boolean);
  2504. begin
  2505.    if FSimulate <> Value then
  2506.    begin
  2507.       FSimulate:= Value;
  2508.       UpdateControl;
  2509.    end;
  2510. end;
  2512. {-- TMMPanControl -------------------------------------------------------}
  2513. procedure TMMPanControl.VolumeNotify(Sender,Data:TObject);
  2514. begin
  2515.    if Data is TMMControlIdChange then
  2516.       UpdateControl
  2517.    else
  2518.       UpdatePanValue;
  2519. end;
  2521. {-- TMMPanControl -------------------------------------------------------}
  2522. procedure TMMPanControl.Notification(AComponent: TComponent; Operation: TOperation);
  2523. begin
  2524.    inherited Notification(AComponent,Operation);
  2526.    if Operation = opRemove then
  2527.       if AComponent = FVolume then
  2528.          VolumeControl:= nil;
  2529. end;
  2531. {-- TMMPanControl -------------------------------------------------------}
  2532. procedure TMMPanControl.UpdatePanValue;
  2533. var
  2534.     Left, Right: Integer;
  2535. begin
  2536.    if FSimActive then
  2537.    begin
  2538.       Left  := VolumeControl.GetChannelSigned(chLeft,NoItem);
  2539.       Right := VolumeControl.GetChannelSigned(chRight,NoItem);
  2540.       if Left = 0 then
  2541.          if Right = 0 then
  2542.          else
  2543.             FValue:= MaxRightPan
  2544.       else
  2545.          if Right = 0 then
  2546.             FValue:= MaxLeftPan
  2547.          else
  2548.             FValue:= Trunc(MaxRightPan * (Right - Left) / Max(Right,Left));
  2549.       { Set directly because setting to prop causes updates of volume controls }
  2550.       VolumeControl.FPanValue:= FValue;
  2551.       Changed;
  2552.    end;
  2553. end;
  2555. {-- TMMPanControl -------------------------------------------------------}
  2556. procedure TMMPanControl.SetSigned(Value: Integer);
  2557. begin
  2558.    if FSimActive then
  2559.    begin
  2560.       FValue:= Value;
  2561.       UpdateVolumePan;
  2562.    end
  2563.    else inherited SetSigned(Value);
  2564. end;
  2566. {-- TMMPanControl -------------------------------------------------------}
  2567. function TMMPanControl.GetSigned: Integer;
  2568. begin
  2569.    if FSimActive then
  2570.       Result:= FValue
  2571.    else
  2572.       Result:= inherited GetSigned;
  2573. end;
  2575. {-- TMMPanControl -------------------------------------------------------}
  2576. function TMMPanControl.GetChannelSigned(C: TMMChannel; Item: TMMItemIndex): Integer;
  2577. begin
  2578.    if FSimActive then
  2579.       Result:= FValue
  2580.    else
  2581.       Result:= inherited GetChannelSigned(C,Item);
  2582. end;
  2584. {-- TMMPanControl -------------------------------------------------------}
  2585. procedure TMMPanControl.SetChannelSigned(C: TMMChannel; Item: TMMItemIndex; Value: Integer);
  2586. begin
  2587.    if FSimActive then
  2588.    begin
  2589.       FValue:= Value;
  2590.       UpdateVolumePan;
  2591.    end
  2592.    else inherited SetChannelSigned(C,Item,Value);
  2593. end;
  2595. {-- TMMPanControl -------------------------------------------------------}
  2596. procedure TMMPanControl.UpdateVolumePan;
  2597. begin
  2598.    if FSimActive then
  2599.       FVolume.PanValue:= FValue;
  2600. end;
  2602. {-- TMMPanControl -------------------------------------------------------}
  2603. function TMMPanControl.GetAvailable: Boolean;
  2604. begin
  2605.    if FSimActive then
  2606.       Result:= True
  2607.    else
  2608.       Result:= inherited GetAvailable;
  2609. end;
  2611. {-- TMMPanControl -------------------------------------------------------}
  2612. function TMMPanControl.ValidControl(const Info: TMixerControl): Boolean;
  2613. begin
  2614.    Result:= Info.dwControlType = MIXERCONTROL_CONTROLTYPE_PAN;
  2615. end;
  2617. {-- TMMPanControl -------------------------------------------------------}
  2618. function TMMPanControl.GetChannels: Integer;
  2619. begin
  2620.    Result:= 1;
  2621. end;
  2623. {-- TMMPanControl -------------------------------------------------------}
  2624. function TMMPanControl.GetItems: TMMItemIndex;
  2625. begin
  2626.    Result:= 0;
  2627. end;
  2629. {== Property service ====================================================}
  2630. function ControlIdToIdent(Id: LongInt; var S: string) : Boolean;
  2631. begin
  2632.     Result := False;
  2633.     if Id = badControlId then
  2634.     begin
  2635.         S := 'badControlId';
  2636.         Result := True;
  2637.     end;
  2638. end;
  2640. {------------------------------------------------------------------------}
  2641. function IdentToControlId(const S: string; var Id: LongInt) : Boolean;
  2642. begin
  2643.     Result := False;
  2644.     if CompareText(S, 'badControlId') = 0 then
  2645.     begin
  2646.         Result  := True;
  2647.         Id      := badControlId;
  2648.     end;
  2649. end;
  2651. {------------------------------------------------------------------------}
  2652. function LineIdToIdent(Id: LongInt; var S: string) : Boolean;
  2653. begin
  2654.     Result := False;
  2655.     if Id = badLineId then
  2656.     begin
  2657.         S := 'badLineId';
  2658.         Result := True;
  2659.     end;
  2660. end;
  2662. {------------------------------------------------------------------------}
  2663. function IdentToLineId(const S: string; var Id: LongInt) : Boolean;
  2664. begin
  2665.     Result := False;
  2666.     if CompareText(S, 'badLineId') = 0 then
  2667.     begin
  2668.         Result  := True;
  2669.         Id      := badLineId;
  2670.     end;
  2671. end;
  2673. {------------------------------------------------------------------------}
  2674. function ItemIndexToIdent(Id: LongInt; var S: string) : Boolean;
  2675. begin
  2676.     Result := False;
  2677.     if Id = NoItem then
  2678.     begin
  2679.         S := 'NoItem';
  2680.         Result := True;
  2681.     end;
  2682. end;
  2684. {------------------------------------------------------------------------}
  2685. function IdentToItemIndex(const S: string; var Id: LongInt) : Boolean;
  2686. begin
  2687.     Result := False;
  2688.     if CompareText(S, 'NoItem') = 0 then
  2689.     begin
  2690.         Result  := True;
  2691.         Id      := NoItem;
  2692.     end;
  2693. end;
  2695. initialization
  2696.     RegisterIntegerConsts(TypeInfo(TMMControlId),IdentToControlId,ControlIdToIdent);
  2697.     RegisterIntegerConsts(TypeInfo(TMMLineId),IdentToLineId,LineIdToIdent);
  2698.     RegisterIntegerConsts(TypeInfo(TMMItemIndex),IdentToItemIndex,ItemIndexToIdent);
  2699. end.