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

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

Delphi控件源码

开发平台：

Delphi

MMConect.pas：源码内容
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49(0)351-8037944               =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/index.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: 05.10.98 - 17:53:10 $                                        =}
  24. {========================================================================}
  25. unit MMConect;
  27. {$I COMPILER.INC}
  29. {.$DEFINE _MMDEBUG}
  31. {$C FIXED PRELOAD PERMANENT}
  33. interface
  35. uses
  36. {$IFDEF WIN32}
  37.     Windows,
  38. {$ELSE}
  39.     WinTypes,
  40.     WinProcs,
  41. {$ENDIF}
  42.     SysUtils,
  43.     Messages,
  44.     Classes,
  45.     Controls,
  46.     Forms,
  47.     MMSystem,
  48.     MMObj,
  49.     MMDSPObj,
  50.     MMTimer,
  51.     MMUtils,
  52.     MMString,
  53.     MMMulDiv,
  54.     MMRegs,
  55.     MMPCMSup,
  56.     MMWaveIO,
  57.     MMLevel,
  58. {$IFNDEF LEVEL_ONLY}
  59.     MMMeter,
  60.     MMOscope,
  61.     MMSpectr,
  62.     MMSpGram,
  63.     MMLight,
  64. {$ENDIF}
  65.     MMACMSup
  66.     {$IFDEF _MMDEBUG}
  67.     ,MMDebug
  68.     {$ENDIF};
  70. const
  71.    { set this to true if you have problems with hints or flat buttons }
  72.    ENTER_IDLE_MODE : Boolean = False;
  73.    {$IFDEF CBUILDER3} {$EXTERNALSYM MAXSPEED} {$ENDIF}
  74.    MAXSPEED        = 5000;
  76. type
  77.    TMMTriggerMode    = (tmNone, tmUpFlank, tmDownFlank);
  78.    EMMConnectorError = class(Exception);
  80.    {-- TMMConnector ------------------------------------------------------}
  81.    TMMConnector = class(TMMDSPComponent)
  82.    private
  83.     {$IFDEF WIN32}
  84.     FDataSection   : TRtlCriticalSection;
  85.     {$ENDIF}
  86.     FTimerID       : integer;
  87.     FEnabled       : Boolean;
  88.     FRestoreIdle   : Boolean;
  89.     FAutoTrigger   : Boolean;
  90.     FTriggerMode   : TMMTriggerMode;
  91.     FTriggerLevel  : integer;
  92.     FSynchronize   : Boolean;
  93.     FSilence       : integer;
  94.     FStarted       : Boolean;
  95.     FRunning       : Boolean;
  96.     FPaused        : Boolean;
  97.     FConvert       : PACMConvert;
  98.     FDstWaveFormat : PWaveFormatEx;
  99.     FDstBufferSize : Longint;
  100.     FRealBufferSize: Longint;
  101.     FSrcData       : PChar;
  102.     FDstData       : PChar;
  103.     FAutoConvert   : Boolean;
  104.     FIsPCMFormat   : Boolean;
  105.     FCanConvert    : Boolean;
  106.     FSpeed         : integer;
  107.     FRefresh       : Boolean;
  108.     FInHandler     : integer;
  109.     FRealTime      : Boolean;
  111.     FLevel1        : TMMLevel;
  112.     FLevel2        : TMMLevel;
  113.     {$IFNDEF LEVEL_ONLY}
  114.     FMeter1        : TMMMeter;
  115.     FMeter2        : TMMMeter;
  116.     FOscope1       : TMMOscope;
  117.     FOscope2       : TMMOscope;
  118.     FLight1        : TMMLight;
  119.     FLight2        : TMMLight;
  120.     FSpectrum1     : TMMSpectrum;
  121.     FSpectrum2     : TMMSpectrum;
  122.     FSpectrum3     : TMMSpectrum;
  123.     FSpectrum4     : TMMSpectrum;
  124.     FSpectrogram1  : TMMSpectrogram;
  125.     FSpectrogram2  : TMMSpectrogram;
  126.     {$ENDIF}
  128.     FIndexLevel        : Longint;
  129.     {$IFNDEF LEVEL_ONLY}
  130.     FIndexMeter        : Longint;
  131.     FIndexScope        : Longint;
  132.     FIndexLight        : Longint;
  133.     FIndexSpectrum     : Longint;
  134.     FIndexSpectrogram1 : Longint;
  135.     FIndexSpectrogram2 : Longint;
  136.     {$ENDIF}
  138.     FRefreshLevel      : Boolean;
  139.     {$IFNDEF LEVEL_ONLY}
  140.     FRefreshMeter      : Boolean;
  141.     FRefreshScope      : Boolean;
  142.     FRefreshLight      : Boolean;
  143.     FRefreshSpectrum   : Boolean;
  144.     FRefreshSpectrogram: Boolean;
  145.     {$ENDIF}
  147.     FLevelRefresh      : Longint;
  148.     {$IFNDEF LEVEL_ONLY}
  149.     FMeterRefresh      : Longint;
  150.     FOscopeRefresh     : Longint;
  151.     FLightRefresh      : Longint;
  152.     FSpectrumRefresh   : Longint;
  153.     FSpectrogramRefresh: Longint;
  154.     {$ENDIF}
  156.     FBufTime           : Int64;
  157.     FStepTime          : Int64;
  159.     FOnTrigger         : TNotifyEvent;
  161.     procedure SetEnabled(aValue: Boolean);
  162.     procedure SetAutoTrigger(aValue: Boolean);
  163.     procedure SetSpeed(aValue: integer);
  164.     procedure SetTriggerMode(aValue: TMMTriggerMode);
  165.     procedure SetTriggerLevel(aValue: integer);
  166.     procedure SetRealTime(aValue: Boolean);
  167.     procedure SetLevel(index: integer; aValue: TMMLevel);
  168.     {$IFNDEF LEVEL_ONLY}
  169.     procedure SetMeter(index: integer; aValue: TMMMeter);
  170.     procedure SetOscope(index: integer; aValue: TMMOscope);
  171.     procedure SetLight(index: integer; aValue: TMMLight);
  172.     procedure SetSpectrum(index: integer; aValue: TMMSpectrum);
  173.     procedure SetSpectrogram(index: integer; aValue: TMMSpectrogram);
  174.     {$ENDIF}
  175.     procedure SetEnterIdle(aValue: Boolean);
  176.     function  GetEnterIdle: Boolean;
  177.     procedure SetWaveParams;
  178.     procedure ProcessData;
  179.     procedure UpdateTimer(Enabled: Boolean);
  181.   protected
  182.     procedure ChangeDesigning(aValue: Boolean); override;
  183.     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  184.     procedure SetPWaveFormat(aValue: PWaveFormatEx); override;
  186.     procedure Started; override;
  187.     procedure Paused; override;
  188.     procedure Restarted; override;
  189.     procedure Stopped; override;
  190.     procedure Reseting; override;
  191.     procedure BufferReady(lpwh: PWaveHdr); override;
  192.     procedure BufferLoad(lpwh: PWaveHdr; var MoreBuffers: Boolean); override;
  194.   public
  195.     constructor Create(AOwner: TComponent); override;
  196.     destructor  Destroy; override;
  198.     procedure NewBuffer(lpData: PChar; dwLength: DWORD); virtual;
  200.     property  IsPaused: Boolean read FPaused;
  201.     property  IsStarted: Boolean read FStarted;
  202.     
  203.     procedure Trigger; virtual;
  205.     property  RefreshCountLevel: Longint read FLevelRefresh write FLevelRefresh;
  206.     {$IFNDEF LEVEL_ONLY}
  207.     property  RefreshCountMeter: Longint read FMeterRefresh write FMeterRefresh;
  208.     property  RefreshCountOscope: Longint read FOscopeRefresh write FOscopeRefresh;
  209.     property  RefreshCountLight: Longint read FLightRefresh write FLightRefresh;
  210.     property  RefreshCountSpectrum: Longint read FSpectrumRefresh write FSpectrumRefresh;
  211.     property  RefreshCountSpectrogram: Longint read FSpectrogramRefresh write FSpectrogramRefresh;
  212.     {$ENDIF}
  214.     procedure GetPeak(var PeakL, PeakR: Smallint);
  216.   published
  217.     property OnTrigger: TNotifyEvent read FOnTrigger write FOnTrigger;
  219.     property Enabled: Boolean read FEnabled write SetEnabled default True;
  220.     property AutoConvert: Boolean read FAutoConvert write FAutoConvert default True;
  221.     property AutoTrigger: Boolean read FAutoTrigger write SetAutoTrigger default True;
  222.     property Synchronize: Boolean read FSynchronize  write FSynchronize default True;
  223.     property Speed: integer read FSpeed write SetSpeed default MAXSPEED;
  224.     property TriggerMode: TMMTriggerMode read FTriggerMode write SetTriggerMode default tmNone;
  225.     property TriggerLevel: integer read FTriggerLevel write SetTriggerLevel default 0;
  226.     property RefreshOnStop: Boolean read FRefresh write FRefresh default True;
  227.     property RealTime: Boolean read FRealTime write SetRealTime default True;
  228.     property EnterIdle: Boolean read GetEnterIdle write SetEnterIdle;
  230.     property Input;
  231.     property Output;
  232.     property Level1: TMMLevel index 0 read FLevel1 write SetLevel;
  233.     property Level2: TMMLevel index 1 read FLevel2 write SetLevel;
  234.     {$IFNDEF LEVEL_ONLY}
  235.     property Meter1: TMMMeter index 0 read FMeter1 write SetMeter;
  236.     property Meter2: TMMMeter index 1 read FMeter2 write SetMeter;
  237.     property Oscope1: TMMOscope index 0 read FOscope1 write SetOscope;
  238.     property Oscope2: TMMOscope index 1 read FOscope2 write SetOscope;
  239.     property Light1: TMMLight index 0 read FLight1 write SetLight;
  240.     property Light2: TMMLight index 1 read FLight2 write SetLight;
  241.     property Spectrum1: TMMSpectrum index 0 read FSpectrum1 write SetSpectrum;
  242.     property Spectrum2: TMMSpectrum index 1 read FSpectrum2 write SetSpectrum;
  243.     property Spectrum3: TMMSpectrum index 2 read FSpectrum3 write SetSpectrum;
  244.     property Spectrum4: TMMSpectrum index 3 read FSpectrum4 write SetSpectrum;
  245.     property Spectrogram1: TMMSpectrogram index 0 read FSpectrogram1 write SetSpectrogram;
  246.     property Spectrogram2: TMMSpectrogram index 1 read FSpectrogram2 write SetSpectrogram;
  247.     {$ENDIF}
  248.   end;
  250. implementation
  252. uses Consts;
  254. type
  255.   TIdleHandler = class
  256.     procedure Idle(Sender: TObject; var Done: Boolean);
  257.   end;
  259. const
  260.   CM_CON_START         = CM_BASE + 501;
  261.   CM_CON_TRIGGER       = CM_BASE + 502;
  262.   CM_CON_AUTOTRIGGER   = CM_BASE + 503;
  264. const
  265.   ConnectorWindow: HWND    = 0;
  266.   ConnectorCount : Longint = 0;
  267.   ConnectorList  : TList   = nil;
  268.   LoopStarted    : integer = 0;
  269.   LoopSpeed      : integer = 0;
  270.   RestoreIdle    : Boolean = False;
  271.   IdleHandler    : TIdleHandler = nil;
  273. {-------------------------------------------------------------------------}
  274. procedure DebugStr(s: String);
  275. begin
  276. {$IFDEF _MMDEBUG}
  277.    if (s <> ' ') then s := 'Trigger: '+s;
  278.    DB_WriteStrLn(0,s);
  279. {$ENDIF}
  280. end;
  282. {-- TIdleHandler --------------------------------------------------------}
  283. procedure TIdleHandler.Idle(Sender: TObject; var Done: Boolean);
  284. begin
  285.    Done := False;
  286. end;
  288. {------------------------------------------------------------------------}
  289. procedure ProcessConnectors;
  290. var
  291.    i: integer;
  293. begin
  294.    { let windows have some time }
  295.    for i := 0 to MAXSPEED-LoopSpeed do Application.ProcessMessages;
  297.    { now go trough all connectors in the list }
  298.    if (LoopStarted > 0) and (not Application.Terminated) and
  299.       (ConnectorList.Count > 0) then
  300.    begin
  301.       for i := 0 to ConnectorList.Count-1 do
  302.       with TMMConnector(ConnectorList.Items[i]) do
  303.       begin
  304.          if FAutoTrigger and FEnabled and FRunning then ProcessData;
  305.       end;
  306.    end;
  307. end;
  309. {------------------------------------------------------------------------}
  310. function ConnectorWndProc(Window: HWND; Message, wParam: UINT; lParam: Longint): Longint;
  311. export;{$IFDEF WIN32}stdcall;{$ENDIF}
  313. begin
  314.    if (ConnectorList <> nil) then
  315.    try
  316.       case Message of
  317.         CM_CON_START:
  318.         if (lParam <> 0) then
  319.         with TMMConnector(lParam) do
  320.         begin
  321.            if FStarted then
  322.            begin
  323.               FInHandler := 0;
  324.               FRunning := True;
  325.               if FAutoTrigger then
  326.               begin
  327.                  inc(LoopStarted);
  328.                  PostMessage(ConnectorWindow,CM_CON_AUTOTRIGGER,0,0);
  329.               end;
  330.            end;
  331.            exit;
  332.         end;
  333.         CM_CON_TRIGGER:
  334.         if (lParam <> 0) then
  335.         with TMMConnector(lParam) do
  336.         begin
  337.            if FEnabled and FRunning then
  338.            begin
  339.               { process the controls }
  340.               ProcessData;
  341.               {$IFDEF WIN32}
  342.               InterlockedDecrement(FInHandler);
  343.               {$ENDIF}
  344.            end;
  345.            exit;
  346.         end;
  347.         CM_CON_AUTOTRIGGER:
  348.         begin
  349.            { go trough all connectors }
  350.            ProcessConnectors;
  351.            { decide if we need a new loop }
  352.            if (LoopStarted > 0) and (not Application.Terminated) and
  353.               (ConnectorList.Count > 0) then
  354.            begin
  355.               {$IFDEF WIN32}
  356.               Sleep(1);
  357.               {$ENDIF}
  359.               { give the app a chance }
  360.               if ENTER_IDLE_MODE then
  361.                  Application.HandleMessage;
  363.               PostMessage(ConnectorWindow,CM_CON_AUTOTRIGGER,0,0);
  364.            end;
  365.            exit;
  366.         end;
  367.       end;
  369.    except
  370.       Application.HandleException(nil);
  371.    end;
  372.    Result := DefWindowProc(Window, Message, wParam, lParam);
  373. end;
  375. {------------------------------------------------------------------------}
  376. const
  377.   TMMConnectorWindowClass: TWndClass = (
  378.        style: 0;
  379.        lpfnWndProc: @ConnectorWndProc;
  380.        cbClsExtra: 0;
  381.        cbWndExtra: 0;
  382.        hInstance: 0;
  383.        hIcon: 0;
  384.        hCursor: 0;
  385.        hbrBackground: 0;
  386.        lpszMenuName: nil;
  387.        lpszClassName: 'TMMConnectorWindow');
  389. {------------------------------------------------------------------------}
  390. function AllocateConnectorWindow: HWND;
  391. var
  392.    TempClass: TWndClass;
  393.    ClassRegistered: Boolean;
  394. begin
  395.    TMMConnectorWindowClass.hInstance := HInstance;
  396.    ClassRegistered := GetClassInfo(HInstance,
  397.                       TMMConnectorWindowClass.lpszClassName, TempClass);
  398.     if not ClassRegistered or (TempClass.lpfnWndProc <> @ConnectorWndProc) then
  399.     begin
  400.        {$IFDEF WIN32}
  401.        if ClassRegistered then
  402.           Windows.UnregisterClass(TMMConnectorWindowClass.lpszClassName, HInstance);
  403.        Windows.RegisterClass(TMMConnectorWindowClass);
  404.        {$ELSE}
  405.        if ClassRegistered then
  406.           WinProcs.UnregisterClass(TMMConnectorWindowClass.lpszClassName, HInstance);
  407.        WinProcs.RegisterClass(TMMConnectorWindowClass);
  408.        {$ENDIF}
  409.     end;
  410.     Result := CreateWindow(TMMConnectorWindowClass.lpszClassName, '', 0,
  411.                            0, 0, 0, 0, 0, 0, HInstance, nil);
  412. end;
  414. {------------------------------------------------------------------------}
  415. procedure UpdateSpeed(Connector: TMMConnector);
  416. var
  417.    i: integer;
  419. begin
  420.    LoopSpeed := 0;
  421.    if (ConnectorList <> nil) then
  422.    for i := 0 to ConnectorList.Count-1 do
  423.    with TMMConnector(ConnectorList.Items[i]) do
  424.    begin
  425.       if FSpeed > LoopSpeed then LoopSpeed := FSpeed;
  426.    end;
  427. end;
  429. {------------------------------------------------------------------------}
  430. procedure AddConnector(Connector: TMMConnector);
  431. begin
  432.    inc(ConnectorCount);
  433.    if (ConnectorCount = 1) then
  434.    begin
  435.       ConnectorList := TList.Create;
  436.       ConnectorWindow := AllocateConnectorWindow;
  437.    end;
  438.    ConnectorList.Add(Connector);
  439.    UpdateSpeed(Connector);
  440. end;
  442. {------------------------------------------------------------------------}
  443. procedure RemoveConnector(Connector: TMMConnector);
  444. begin
  445.    if (ConnectorList = nil) or (ConnectorList.indexOf(Connector) = -1) then exit;
  447.    ConnectorList.Remove(Connector);
  448.    ConnectorList.Pack;
  449.    dec(ConnectorCount);
  450.    if (ConnectorCount = 0) then
  451.    begin
  452.       ConnectorList.Free;
  453.       ConnectorList := nil;
  454.       DestroyWindow(ConnectorWindow);
  455.       ConnectorWindow := 0;
  456.    end;
  457. end;
  459. {------------------------------------------------------------------------}
  460. procedure TimeCallBack(uTimerID, dwUser: Longint);
  461. begin
  462.   if (dwUser <> 0) then
  463.   with TMMConnector(dwUser) do
  464.   begin
  465.      if FPaused then
  466.      begin
  467.         FBufTime := TimeGetExactTime;
  469.         if assigned(FLevel1) or assigned(FLevel2) then
  470.         begin
  471.            FRefreshLevel := True;
  472.            FIndexLevel     := 0;
  473.         end;
  474.         {$IFNDEF LEVEL_ONLY}
  475.         if assigned(FMeter1) or assigned(FMeter2) then
  476.         begin
  477.            FRefreshMeter := True;
  478.            FIndexMeter     := 0;
  479.         end;
  480.         if assigned(FOscope1) or assigned(FOscope2) then
  481.         begin
  482.            FRefreshScope := True;
  483.            FIndexScope     := 0;
  484.         end;
  485.         if assigned(FLight1) or assigned(FLight2) then
  486.         begin
  487.            FRefreshLight := True;
  488.            FIndexLight := 0;
  489.         end;
  490.         if assigned(FSpectrum1) or assigned(FSpectrum2) or
  491.            assigned(FSpectrum3) or assigned(FSpectrum4) then
  492.         begin
  493.            FRefreshSpectrum := True;
  494.            FIndexSpectrum  := 0;
  495.         end;
  496.         if assigned(FSpectrogram1) or assigned(FSpectrogram2) then
  497.         begin
  498.            FRefreshSpectrogram := True;
  499.            FIndexSpectrogram1 := 0;
  500.            FIndexSpectrogram2 := 0;
  501.         end;
  502.         {$ENDIF}
  503.      end;
  504.   end;
  505. end;
  507. {== TMMConnector ========================================================}
  508. constructor TMMConnector.Create(AOwner: TComponent);
  509. begin
  510.    inherited Create(AOwner);
  512.    FTimerID    := 0;
  513.    FEnabled    := True;
  514.    FRestoreIdle:= False;
  515.    FAutoConvert:= True;
  516.    FAutoTrigger:= True;
  517.    FTriggerMode:= tmNone;
  518.    FTriggerLevel := 0;
  519.    FSynchronize := True;
  520.    FSpeed      := MAXSPEED;
  521.    FStarted    := False;
  522.    FRunning    := False;
  523.    FPaused     := False;
  524.    FSrcData    := nil;
  525.    FDstData    := nil;
  526.    FDstBufferSize:= 0;
  527.    FRealBufferSize:= 0;
  528.    FIsPCMFormat := False;
  529.    FCanConvert  := False;
  530.    FRefresh     := True;
  531.    FRealTime    := True;
  533.    FLevel1       := nil;
  534.    FLevel2       := nil;
  535.    {$IFNDEF LEVEL_ONLY}
  536.    FMeter1       := nil;
  537.    FMeter2       := nil;
  538.    FOscope1      := nil;
  539.    FOscope2      := nil;
  540.    FLight1       := nil;
  541.    FLight2       := nil;
  542.    FSpectrum1    := nil;
  543.    FSpectrum2    := nil;
  544.    FSpectrum3    := nil;
  545.    FSpectrum4    := nil;
  546.    FSpectrogram1 := nil;
  547.    FSpectrogram2 := nil;
  548.    {$ENDIF}
  550.    FIndexLevel       := 0;
  551.    {$IFNDEF LEVEL_ONLY}
  552.    FIndexMeter       := 0;
  553.    FIndexScope       := 0;
  554.    FIndexLight       := 0;
  555.    FIndexSpectrum    := 0;
  556.    FIndexSpectrogram1:= 0;
  557.    FIndexSpectrogram2:= 0;
  558.    {$ENDIF}
  560.    FRefreshLevel      := False;
  561.    {$IFNDEF LEVEL_ONLY}
  562.    FRefreshMeter      := False;
  563.    FRefreshScope      := False;
  564.    FRefreshSpectrum   := False;
  565.    FRefreshSpectrogram:= False;
  566.    {$ENDIF}
  568.    FLevelRefresh      := 0;
  569.    {$IFNDEF LEVEL_ONLY}
  570.    FMeterRefresh      := 0;
  571.    FOscopeRefresh     := 0;
  572.    FSpectrumRefresh   := 0;
  573.    FSpectrogramRefresh:= 0;
  574.    {$ENDIF}
  576.    if not (csDesigning in ComponentState) then
  577.    begin
  578.       TimeBeginPeriod(1);
  580.       { update the connector list }
  581.       AddConnector(Self);
  582.    end;
  584.    ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  585.    if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  586. end;
  588. {-- TMMConnector --------------------------------------------------------}
  589. destructor TMMConnector.Destroy;
  590. var
  591.    Msg: TMsg;
  593. begin
  594.    Stopped;
  596.    if not (csDesigning in ComponentState) then
  597.    begin
  598.       TimeEndPeriod(1);
  600.       { remove pending messages }
  601.       while PeekMessage(Msg, ConnectorWindow, CM_CON_START, CM_CON_AUTOTRIGGER, PM_REMOVE) do;
  603.       { update the connector list }
  604.       RemoveConnector(Self);
  605.    end;
  607.    inherited destroy;
  608. end;
  610. {-- TMMConnector --------------------------------------------------------}
  611. procedure TMMConnector.ChangeDesigning(aValue: Boolean);
  612. begin
  613.    inherited ChangeDesigning(aValue);
  615.    if not (csDesigning in ComponentState) then
  616.    begin
  617.       TimeBeginPeriod(1);
  619.       { update the connector list }
  620.       AddConnector(Self);
  621.    end;
  622. end;
  624. {-- TMMConnector --------------------------------------------------------}
  625. procedure TMMConnector.Notification(aComponent: TComponent; Operation: TOperation);
  626. begin
  627.    inherited Notification(aComponent, Operation);
  629.    if (Operation = opRemove) then
  630.    begin
  631.       if (aComponent = FLevel1) then FLevel1 := nil;
  632.       if (aComponent = FLevel2) then FLevel2 := nil;
  633.       {$IFNDEF LEVEL_ONLY}
  634.       if (aComponent = FMeter1) then FMeter1 := nil;
  635.       if (aComponent = FMeter2) then FMeter2 := nil;
  636.       if (aComponent = FOscope1) then FOscope1 := nil;
  637.       if (aComponent = FOscope2) then FOscope2 := nil;
  638.       if (aComponent = FLight1) then FLight1 := nil;
  639.       if (aComponent = FLight2) then FLight2 := nil;
  640.       if (aComponent = FSpectrum1) then FSpectrum1 := nil;
  641.       if (aComponent = FSpectrum2) then FSpectrum2 := nil;
  642.       if (aComponent = FSpectrum3) then FSpectrum3 := nil;
  643.       if (aComponent = FSpectrum4) then FSpectrum4 := nil;
  644.       if (aComponent = FSpectrogram1) then FSpectrogram1 := nil;
  645.       if (aComponent = FSpectrogram2) then FSpectrogram2 := nil;
  646.       {$ENDIF}
  647.    end;
  648. end;
  650. {-- TMMConnector --------------------------------------------------------}
  651. procedure TMMConnector.UpdateTimer(Enabled: Boolean);
  652. var
  653. {$IFNDEF WIN32}
  654.    TimeCB: TTimeCallBack;
  655. {$ENDIF}
  656.    Time: integer;
  657. begin
  658.    FRefreshLevel      := False;
  659.    {$IFNDEF LEVEL_ONLY}
  660.    FRefreshMeter      := False;
  661.    FRefreshScope      := False;
  662.    FRefreshLight      := False;
  663.    FRefreshSpectrum   := False;
  664.    FRefreshSpectrogram:= False;
  665.    {$ENDIF}
  667.    if (FTimerID <> 0) then
  668.    begin
  669.       MMTimeKillEvent(FTimerID);
  670.       FTimerID := 0;
  671.    end;
  673.    if Enabled then
  674.    begin
  675.       if (BufferSize < 8192) then
  676.           Time := wioBytesToTime(PWaveFormat,BufferSize)
  677.       else
  678.           Time := 25;
  680.       FTimerID := MMTimeSetEvent(Time, False, @TimeCallBack, Longint(Self));
  681.       if (FTimerID = 0) then
  682.          raise EOutOfResources.Create({$IFDEF DELPHI3}SNoTimers{$ELSE}LoadStr(SNoTimers){$ENDIF});
  683.    end;
  684. end;
  686. {-- TMMConnector --------------------------------------------------------}
  687. procedure TMMConnector.SetEnterIdle(aValue: Boolean);
  688. begin
  689.    ENTER_IDLE_MODE := aValue;
  690. end;
  692. {-- TMMConnector --------------------------------------------------------}
  693. function TMMConnector.GetEnterIdle: Boolean;
  694. begin
  695.    Result := ENTER_IDLE_MODE;
  696. end;
  698. {-- TMMConnector --------------------------------------------------------}
  699. procedure TMMConnector.SetEnabled(aValue: Boolean);
  700. begin
  701.    if (aValue <> FEnabled) then
  702.    begin
  703.       FEnabled := aValue;
  704.       if not (csDesigning in ComponentState) then
  705.       begin
  706.          if not FEnabled then
  707.          begin
  708.             if FRunning then
  709.             begin
  710.                FRunning := False;
  711.                if FAutoTrigger then dec(LoopStarted);
  712.             end;
  714.             if (LoopStarted = 0) and RestoreIdle then
  715.             begin
  716.                Application.OnIdle := nil;
  717.                IdleHandler.Free;
  718.                IdleHandler := nil;
  719.                RestoreIdle := False;
  720.             end;
  722.             if assigned(FLevel1) then FLevel1.ResetData;
  723.             if assigned(FLevel2) then FLevel2.ResetData;
  724.             {$IFNDEF LEVEL_ONLY}
  725.             if assigned(FMeter1) then FMeter1.ResetData;
  726.             if assigned(FMeter2) then FMeter2.ResetData;
  727.             if assigned(FOscope1) then FOscope1.ResetData;
  728.             if assigned(FOscope2) then FOscope2.ResetData;
  729.             if assigned(FLight1) then FLight1.ResetData;
  730.             if assigned(FLight2) then FLight2.ResetData;
  731.             if assigned(FSpectrum1) then FSpectrum1.ResetData;
  732.             if assigned(FSpectrum2) then FSpectrum2.ResetData;
  733.             if assigned(FSpectrum3) then FSpectrum3.ResetData;
  734.             if assigned(FSpectrum4) then FSpectrum4.ResetData;
  735.             if assigned(FSpectrogram1) then FSpectrogram1.ResetData;
  736.             if assigned(FSpectrogram2) then FSpectrogram2.ResetData;
  737.             {$ENDIF}
  738.          end
  739.          else if FStarted and FRealTime then
  740.          begin
  741.             if FAutoTrigger and ENTER_IDLE_MODE then
  742.             begin
  743.                {$IFDEF WIN32}
  744.                if not assigned(Application.OnIdle) and (IdleHandler = nil) then
  745.                begin
  746.                   IdleHandler := TIdleHandler.Create;
  747.                   Application.OnIdle := IdleHandler.Idle;
  748.                   RestoreIdle := True;
  749.                end;
  750.                {$ENDIF}
  751.             end;
  752.             PostMessage(ConnectorWindow,CM_CON_START,0,Longint(Self));
  753.          end;
  754.       end;
  755.    end;
  756. end;
  758. {-- TMMConnector --------------------------------------------------------}
  759. procedure TMMConnector.SetRealTime(aValue: Boolean);
  760. begin
  761.    if (aValue <> FRealTime) then
  762.    begin
  763.       if isOpen then
  764.          raise EMMConnectorError.Create(LoadResStr(IDS_PROPERTYOPEN));
  766.       FRealTime := aValue;
  767.    end;
  768. end;
  770. {-- TMMConnector --------------------------------------------------------}
  771. procedure TMMConnector.SetSpeed(aValue: integer);
  772. begin
  773.    if (aValue <> FSpeed) then
  774.    begin
  775.       FSpeed := MinMax(aValue,1,MAXSPEED);
  776.       if not (csDesigning in ComponentState) then UpdateSpeed(Self);
  777.    end;
  778. end;
  780. {-- TMMConnector --------------------------------------------------------}
  781. procedure TMMConnector.SetTriggerMode(aValue: TMMTriggerMode);
  782. begin
  783.    if (aValue <> FTriggerMode) then
  784.    begin
  785.       FTriggerMode := aValue;
  786.    end;
  787. end;
  789. {-- TMMConnector --------------------------------------------------------}
  790. procedure TMMConnector.SetTriggerLevel(aValue: integer);
  791. begin
  792.    if (aValue <> FTriggerLevel) then
  793.    begin
  794.       FTriggerLevel := aValue;
  795.    end;
  796. end;
  798. {-- TMMConnector --------------------------------------------------------}
  799. procedure TMMConnector.SetLevel(index: integer; aValue: TMMLevel);
  800. begin
  801.    { bug fix for AXControl under VB }
  802.    if Longint(Self) = Longint(aValue) then exit;
  804.    case index of
  805.         0: if (FLevel1 = aValue) or ((aValue <> nil) and (FLevel2 = aValue)) then exit
  806.            else FLevel1 := aValue;
  807.         1: if (FLevel2 = aValue) or ((aValue <> nil) and (FLevel1 = aValue)) then exit
  808.            else FLevel2 := aValue;
  809.    end;
  810.    FRefreshLevel := False;
  811.    if aValue <> nil then SetWaveParams;
  813.    {$IFDEF WIN32}
  814.    {$IFDEF TRIAL}
  815.    {$DEFINE _HACK2}
  816.    {$I MMHACK.INC}
  817.    {$ENDIF}
  818.    {$ENDIF}
  819. end;
  821. {$IFNDEF LEVEL_ONLY}
  822. {-- TMMConnector --------------------------------------------------------}
  823. procedure TMMConnector.SetMeter(index: integer; aValue: TMMMeter);
  824. begin
  825.    { bug fix for AXControl under VB }
  826.    if Longint(Self) = Longint(aValue) then exit;
  828.    case index of
  829.         0: if (FMeter1 = aValue) or ((aValue <> nil) and (FMeter2 = aValue)) then exit
  830.            else FMeter1 := aValue;
  831.         1: if (FMeter2 = aValue) or ((aValue <> nil) and (FMeter1 = aValue)) then exit
  832.            else FMeter2 := aValue;
  833.    end;
  834.    FRefreshMeter := False;
  835.    if aValue <> nil then SetWaveParams;
  836. end;
  838. {-- TMMConnector --------------------------------------------------------}
  839. procedure TMMConnector.SetOscope(index: integer; aValue: TMMOscope);
  840. begin
  841.    { bug fix for AXControl under VB }
  842.    if Longint(Self) = Longint(aValue) then exit;
  844.    case index of
  845.         0: if (FOscope1 = aValue) or ((aValue <> nil) and (FOscope2 = aValue)) then exit
  846.            else FOscope1 := aValue;
  847.         1: if (FOscope2 = aValue) or ((aValue <> nil) and (FOscope1 = aValue)) then exit
  848.            else FOscope2 := aValue;
  849.    end;
  850.    FRefreshScope := False;
  851.    if aValue <> nil then SetWaveParams;
  852. end;
  854. {-- TMMConnector --------------------------------------------------------}
  855. procedure TMMConnector.SetLight(index: integer; aValue: TMMLight);
  856. begin
  857.    { bug fix for AXControl under VB }
  858.    if Longint(Self) = Longint(aValue) then exit;
  860.    case index of
  861.         0: if (FLight1 = aValue) or ((aValue <> nil) and (FLight2 = aValue)) then exit
  862.            else FLight1 := aValue;
  863.         1: if (FLight2 = aValue) or ((aValue <> nil) and (FLight1 = aValue)) then exit
  864.            else FLight2 := aValue;
  865.    end;
  866.    FRefreshLight := False;
  867.    if aValue <> nil then SetWaveParams;
  868. end;
  870. {-- TMMConnector --------------------------------------------------------}
  871. procedure TMMConnector.SetSpectrum(index: integer; aValue: TMMSpectrum);
  872. begin
  873.    { bug fix for AXControl under VB }
  874.    if Longint(Self) = Longint(aValue) then exit;
  876.    case index of
  877.         0: if (FSpectrum1 = aValue) then exit else FSpectrum1 := aValue;
  878.         1: if (FSpectrum2 = aValue) then exit else FSpectrum2 := aValue;
  879.         2: if (FSpectrum3 = aValue) then exit else FSpectrum3 := aValue;
  880.         3: if (FSpectrum4 = aValue) then exit else FSpectrum4 := aValue;
  881.    end;
  882.    FRefreshSpectrum := False;
  883.    if aValue <> nil then SetWaveParams;
  885.    {$IFDEF WIN32}
  886.    {$IFDEF TRIAL}
  887.    {$DEFINE _HACK3}
  888.    {$I MMHACK.INC}
  889.    {$ENDIF}
  890.    {$ENDIF}
  891. end;
  893. {-- TMMConnector --------------------------------------------------------}
  894. procedure TMMConnector.SetSpectrogram(index: integer; aValue: TMMSpectrogram);
  895. begin
  896.    { bug fix for AXControl under VB }
  897.    if Longint(Self) = Longint(aValue) then exit;
  899.    case index of
  900.         0: if (FSpectrogram1 = aValue) or ((aValue <> nil) and (FSpectrogram2 = aValue)) then exit
  901.            else FSpectrogram1 := aValue;
  902.         1: if (FSpectrogram2 = aValue) or ((aValue <> nil) and (FSpectrogram1 = aValue)) then exit
  903.            else FSpectrogram2 := aValue;
  904.    end;
  905.    FRefreshSpectrogram := False;
  906.    if aValue <> nil then SetWaveParams;
  907. end;
  908. {$ENDIF}
  910. {-- TMMConnector --------------------------------------------------------}
  911. procedure TMMConnector.SetPWaveFormat(aValue: PWaveFormatEx);
  912. begin
  913.    inherited SetPWaveFormat(aValue);
  914.    SetWaveParams;
  915. end;
  917. {-- TMMConnector --------------------------------------------------------}
  918. procedure TMMConnector.SetWaveParams;
  919. var
  920.    wfx: TWaveFormatEx;
  922. begin
  923.    if (PWaveFormat <> nil) then
  924.    begin
  925.       if not FStarted then
  926.       begin
  927.          FCanConvert := False;
  929.          if (PWaveFormat^.wFormatTag = WAVE_FORMAT_PCM) then
  930.          begin
  931.             FIsPCMFormat := True;
  932.             wfx          := PWaveFormat^;
  933.          end
  934.          else
  935.          begin
  936.             FIsPCMFormat := False;
  937.             if FAutoConvert then
  938.             begin
  939.                wfx := acmSuggestPCMFormat(PWaveFormat);
  940.                if (wfx.wFormatTag <> 0) then
  941.                    FCanConvert := acmQueryConvert(PWaveFormat,@wfx,True);
  942.             end;
  943.          end;
  944.       end
  945.       else wfx := FDstWaveFormat^;
  947.       if (FIsPCMFormat or FCanConvert) then
  948.       begin
  949.          if wfx.wBitsPerSample = 8 then
  950.             FSilence := 128
  951.          else
  952.             FSilence := 0;
  954.          if assigned(FLevel1) then
  955.             FLevel1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  957.          if assigned(FLevel2) then
  958.             FLevel2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  960.          {$IFNDEF LEVEL_ONLY}
  961.          if assigned(FMeter1) then
  962.             FMeter1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  964.          if assigned(FMeter2) then
  965.             FMeter2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  967.          if assigned(FOscope1) then
  968.             FOscope1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  970.          if assigned(FOscope2) then
  971.             FOscope2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  973.          if assigned(FLight1) then
  974.             FLight1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  976.          if assigned(FLight2) then
  977.             FLight2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  979.          if assigned(FSpectrum1) then
  980.             FSpectrum1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  982.          if assigned(FSpectrum2) then
  983.             FSpectrum2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  985.          if assigned(FSpectrum3) then
  986.             FSpectrum3.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  988.          if assigned(FSpectrum4) then
  989.             FSpectrum4.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  991.          if assigned(FSpectrogram1) then
  992.             FSpectrogram1.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  994.          if assigned(FSpectrogram2) then
  995.             FSpectrogram2.PCMWaveFormat := PPCMWaveFormat(@wfx)^;
  996.          {$ENDIF}
  997.       end;
  998.    end;
  999. end;
  1001. {-- TMMConnector --------------------------------------------------------}
  1002. procedure TMMConnector.Started;
  1003. var
  1004.    wfx: TWaveFormatEx;
  1005. begin
  1006.    inherited Started;
  1008.    if not (csDesigning in ComponentState) and
  1009.           (PWaveFormat <> nil) and not FStarted then
  1010.    begin
  1011.       FSrcData := nil;
  1012.       FDstData := nil;
  1014.       if (PWaveFormat^.wFormatTag = WAVE_FORMAT_PCM) then
  1015.       begin
  1016.          FIsPCMFormat := True;
  1017.          FCanConvert  := False;
  1018.          FDstWaveFormat := PWaveFormat;
  1019.          FDstBufferSize := BufferSize;
  1020.          FSrcData := GlobalAllocMem(BufferSize);
  1021.          FDstData := FSrcData;
  1022.       end
  1023.       else
  1024.       begin
  1025.          FIsPCMFormat := False;
  1026.          FCanConvert := False;
  1028.          if FAutoConvert then
  1029.          begin
  1030.             wfx := acmSuggestPCMFormat(PWaveFormat);
  1031.             FDstWaveFormat := wioCopyWaveFormat(@wfx);
  1032.             FSrcData := GlobalAllocMem(BufferSize);
  1034.             FConvert := acmBeginConvert(PWaveFormat,FDstWaveFormat,FSrcData,BufferSize,True);
  1035.             if (FConvert <> nil) then
  1036.             begin
  1037.                FCanConvert := True;
  1038.                FDstData := FConvert^.lpDstBuffer;
  1039.                FDstBufferSize := FConvert^.dwDstBufferSize;
  1040.             end
  1041.             else
  1042.             begin
  1043.                GlobalFreeMem(Pointer(FSrcData));
  1044.                GlobalFreeMem(Pointer(FDstWaveFormat));
  1045.                FDstBufferSize := 0;
  1046.             end;
  1047.          end;
  1048.       end;
  1050.       FRefreshLevel       := False;
  1051.       {$IFNDEF LEVEL_ONLY}
  1052.       FRefreshMeter       := False;
  1053.       FRefreshScope       := False;
  1054.       FRefreshLight       := False;
  1055.       FRefreshSpectrum    := False;
  1056.       FRefreshSpectrogram := False;
  1057.       {$ENDIF}
  1059.       FLevelRefresh       := 0;
  1060.       {$IFNDEF LEVEL_ONLY}
  1061.       FMeterRefresh       := 0;
  1062.       FOscopeRefresh      := 0;
  1063.       FLightRefresh       := 0;
  1064.       FSpectrumRefresh    := 0;
  1065.       FSpectrogramRefresh := 0;
  1066.       {$ENDIF}
  1068.       if (FIsPCMFormat or FCanConvert) and (FDstData <> nil) then
  1069.       begin
  1070.          {$IFDEF WIN32}
  1071.          FillChar(FDataSection, SizeOf(FDataSection), 0);
  1072.          InitializeCriticalSection(FDataSection);
  1073.          {$ENDIF}
  1075.          UpdateSpeed(Self);
  1076.          FStarted := True;
  1077.          SetWaveParams;
  1078.          if FEnabled and FRealTime then
  1079.          begin
  1080.             if FAutoTrigger and ENTER_IDLE_MODE then
  1081.             begin
  1082.                {$IFDEF WIN32}
  1083.                if not assigned(Application.OnIdle) and (IdleHandler = nil) then
  1084.                begin
  1085.                   IdleHandler := TIdleHandler.Create;
  1086.                   Application.OnIdle := IdleHandler.Idle;
  1087.                   RestoreIdle := True;
  1088.                end;
  1089.                {$ENDIF}
  1090.             end;
  1091.             PostMessage(ConnectorWindow,CM_CON_START,0,Longint(Self));
  1092.          end;
  1093.       end;
  1094.    end;
  1095. end;
  1097. {-- TMMConnector --------------------------------------------------------}
  1098. procedure TMMConnector.Paused;
  1099. begin
  1100.    if not (csDesigning in ComponentState) and FStarted and not FPaused then
  1101.    begin
  1102.       FPaused := True;
  1104.       if (FDstData <> nil) and (FIsPCMFormat or FCanConvert) then
  1105.           GlobalFillMem(FDstData^, FDstBufferSize, FSilence);
  1107.       if FRealTime then UpdateTimer(True);
  1108.    end;
  1110.    inherited Paused;
  1111. end;
  1113. {-- TMMConnector --------------------------------------------------------}
  1114. procedure TMMConnector.Restarted;
  1115. begin
  1116.    if not (csDesigning in ComponentState) and FPaused then
  1117.    begin
  1118.       FPaused := False;
  1119.       if FRealTime then UpdateTimer(False);
  1120.    end;
  1122.    inherited Restarted;
  1123. end;
  1125. {-- TMMConnector --------------------------------------------------------}
  1126. procedure TMMConnector.Stopped;
  1127. begin
  1128.    if not (csDesigning in ComponentState) and FStarted then
  1129.    begin
  1130.       FStarted := False;
  1131.       if FRunning then
  1132.       begin
  1133.          FRunning := False;
  1134.          if FAutoTrigger then dec(LoopStarted);
  1136.          if (LoopStarted = 0) and RestoreIdle then
  1137.          begin
  1138.             Application.OnIdle := nil;
  1139.             IdleHandler.Free;
  1140.             IdleHandler := nil;
  1141.             RestoreIdle := False;
  1142.          end;
  1143.       end;
  1144.       FPaused := False;
  1145.       UpdateTimer(False);
  1147.       if FCanConvert and (FConvert <> nil) then
  1148.       begin
  1149.          acmDoneConvert(FConvert);
  1150.          FDstData := nil;
  1151.          GlobalFreeMem(Pointer(FDstWaveFormat));
  1152.       end;
  1154.       GlobalFreeMem(Pointer(FSrcData));
  1156.       {$IFDEF WIN32}
  1157.       DeleteCriticalSection(FDataSection);
  1158.       {$ENDIF}
  1160.       if FRefresh then
  1161.       begin
  1162.          if assigned(FLevel1) then FLevel1.ResetData;
  1163.          if assigned(FLevel2) then FLevel2.ResetData;
  1164.          {$IFNDEF LEVEL_ONLY}
  1165.          if assigned(FMeter1) then FMeter1.ResetData;
  1166.          if assigned(FMeter2) then FMeter2.ResetData;
  1167.          if assigned(FOscope1) then FOscope1.ResetData;
  1168.          if assigned(FOscope2) then FOscope2.ResetData;
  1169.          if assigned(FLight1) then FLight1.ResetData;
  1170.          if assigned(FLight2) then FLight2.ResetData;
  1171.          if assigned(FSpectrum1) then FSpectrum1.ResetData;
  1172.          if assigned(FSpectrum2) then FSpectrum2.ResetData;
  1173.          if assigned(FSpectrum3) then FSpectrum3.ResetData;
  1174.          if assigned(FSpectrum4) then FSpectrum4.ResetData;
  1175.          if assigned(FSpectrogram1) then FSpectrogram1.ResetData;
  1176.          if assigned(FSpectrogram2) then FSpectrogram2.ResetData;
  1177.          {$ENDIF}
  1178.       end;
  1179.    end;
  1181.    inherited Stopped;
  1182. end;
  1184. {-- TMMConnector --------------------------------------------------------}
  1185. procedure TMMConnector.Reseting;
  1186. begin
  1187.    if not (csDesigning in ComponentState) and FStarted then
  1188.    begin
  1189.       if (FDstData <> nil) and (FIsPCMFormat or FCanConvert) then
  1190.           GlobalFillMem(FDstData^, FDstBufferSize, FSilence);
  1191.    end;
  1193.    inherited Reseting;
  1194. end;
  1196. {-- TMMConnector --------------------------------------------------------}
  1197. procedure TMMConnector.ProcessData;
  1198. var
  1199.    Offset: Longint;
  1200.    DataPtr,DataPtr2: PChar;
  1201.    Size,Size2: integer;
  1202.    TimeOK,Time2OK: Boolean;
  1203.    {$IFNDEF LEVEL_ONLY}
  1204.    Scope: TMMOscope;
  1205.    {$ENDIF}
  1207. begin
  1208.    if FEnabled and (FRunning or (not FRealtime and FStarted)) and (FDstData <> nil) then
  1209.    begin
  1210.       {$IFDEF WIN32}
  1211.       EnterCriticalSection(FDataSection);
  1212.       try
  1213.       {$ENDIF}
  1214.          if FRefreshLevel then
  1215.          begin
  1216.             Size := 0;
  1217.             DataPtr := FDstData;
  1218.             TimeOK := True;
  1220.             if assigned(FLevel1) then Size := FLevel1.BytesPerLevel;
  1221.             if assigned(FLevel2) then Size := Max(Size,FLevel2.BytesPerLevel);
  1223.             if Synchronize then
  1224.             begin
  1225.                FStepTime := 1000000;
  1226.                FStepTime := Trunc(FStepTime*FIndexLevel/FDstWaveFormat^.nAvgBytesPerSec);
  1227.                if (TimeGetExactTime-FBufTime < FStepTime) then
  1228.                begin
  1229.                   TimeOK := False;
  1230.                end;
  1231.             end;
  1233.             if TimeOK then
  1234.             begin
  1235.                inc(DataPtr,FIndexLevel);
  1236.                inc(FIndexLevel,Size);
  1237.                if (DataPtr + Size <= FDstData + FRealBufferSize) then
  1238.                begin
  1239.                   { paint the level. }
  1240.                   if assigned(FLevel1) then FLevel1.RefreshPCMData(DataPtr);
  1241.                   if assigned(FLevel2) then FLevel2.RefreshPCMData(DataPtr);
  1242.                   inc(FLevelRefresh);
  1243.                end
  1244.                else FRefreshLevel := False;
  1245.             end;
  1246.          end;
  1248.          {$IFNDEF LEVEL_ONLY}
  1249.          if FRefreshMeter then
  1250.          begin
  1251.             Size := 0;
  1252.             DataPtr := FDstData;
  1253.             TimeOK := True;
  1255.             if assigned(FMeter1) then Size := FMeter1.BytesPerMeter;
  1256.             if assigned(FMeter2) then Size := Max(Size,FMeter2.BytesPerMeter);
  1258.             if FSynchronize then
  1259.             begin
  1260.                FStepTime := 1000000;
  1261.                FStepTime := Trunc(FStepTime*FIndexMeter/FDstWaveFormat^.nAvgBytesPerSec);
  1262.                if (TimeGetExactTime-FBufTime < FStepTime) then TimeOK := False;
  1263.             end;
  1265.             if TimeOK then
  1266.             begin
  1267.                inc(DataPtr,FIndexMeter);
  1268.                inc(FIndexMeter,Size);
  1269.                if (DataPtr + Size <= FDstData + FRealBufferSize) then
  1270.                begin
  1271.                   { paint the meter. }
  1272.                   if assigned(FMeter1) then FMeter1.RefreshPCMData(DataPtr);
  1273.                    if assigned(FMeter2) then FMeter2.RefreshPCMData(DataPtr);
  1274.                   inc(FMeterRefresh);
  1275.                end
  1276.                else FRefreshMeter := False;
  1277.             end;
  1278.          end;
  1280.          if FRefreshScope then
  1281.          begin
  1282.             Size := 0;
  1283.             Offset := -1;
  1284.             DataPtr := FDstData;
  1285.             TimeOK := True;
  1287.             if assigned(FOscope2) then
  1288.             begin
  1289.                Size := FOscope2.BytesPerScope;
  1290.                Scope := FOscope2;
  1291.             end;
  1292.             if assigned(FOscope1) then
  1293.             begin
  1294.                Size := Max(Size,FOscope1.BytesPerScope);
  1295.                Scope := FOscope1;
  1296.             end;
  1297.             inc(DataPtr, FIndexScope);
  1299.             if (FTriggerMode <> tmNone) and not FPaused then
  1300.             begin
  1301.                Offset := pcmFindZeroCross(FDstWaveFormat, DataPtr,
  1302.                                           FRealBufferSize-FIndexScope,
  1303.                                           0, Byte(FTriggerMode), FTriggerLevel);
  1304.             end;
  1306.             if FSynchronize then
  1307.             begin
  1308.                FStepTime := 1000000;
  1309.                FStepTime := Trunc(FStepTime*FIndexScope/FDstWaveFormat^.nAvgBytesPerSec);
  1310.                if (TimeGetExactTime-FBufTime < FStepTime) then TimeOK := False;
  1311.             end;
  1313.             if TimeOK then
  1314.             with Scope do
  1315.             begin
  1316.                if (Offset > 0) then
  1317.                begin
  1318.                   inc(FIndexScope,Offset);
  1319.                   inc(DataPtr, Offset);
  1320.                end;
  1321.                if Scroll and Accelerate then
  1322.                   inc(FIndexScope, FFTLength div 4 * (Ord(BitLength)+1)*(Ord(Mode)+1))
  1323.                else
  1324.                   inc(FIndexScope, Size);
  1326.                if (DataPtr + Size <= FDstData + FRealBufferSize) then
  1327.                begin
  1328.                   { paint the scope. }
  1329.                   if assigned(FOscope1) then FOscope1.RefreshPCMData(DataPtr);
  1330.                   if assigned(FOscope2) then FOscope2.RefreshPCMData(DataPtr);
  1331.                   inc(FOscopeRefresh);
  1332.                end
  1333.                else FRefreshScope := False;
  1334.             end;
  1335.          end;
  1337.          if FRefreshLight then
  1338.          begin
  1339.             Size := 0;
  1340.             DataPtr := FDstData;
  1341.             TimeOK := True;
  1343.             if assigned(FLight1) then Size := FLight1.BytesPerLight;
  1344.             if assigned(FLight2) then Size := Max(Size,FLight2.BytesPerLight);
  1346.             if FSynchronize then
  1347.             begin
  1348.                FStepTime := 1000000;
  1349.                FStepTime := Trunc(FStepTime*FIndexLight/FDstWaveFormat^.nAvgBytesPerSec);
  1350.                if (TimeGetExactTime-FBufTime < FStepTime) then TimeOK := False;
  1351.             end;
  1353.             if TimeOK then
  1354.             begin
  1355.                inc(DataPtr,FIndexLight);
  1356.                inc(FIndexLight,Size);
  1357.                if (DataPtr + Size <= FDstData + FRealBufferSize) then
  1358.                begin
  1359.                   { paint the light. }
  1360.                   if assigned(FLight1) then FLight1.RefreshPCMData(DataPtr);
  1361.                   if assigned(FLight2) then FLight2.RefreshPCMData(DataPtr);
  1362.                   inc(FLightRefresh);
  1363.                end
  1364.                else FRefreshLight := False;
  1365.             end;
  1366.          end;
  1368.          if FRefreshSpectrum then
  1369.          begin
  1370.             Size := 0;
  1371.             DataPtr := FDstData;
  1372.             TimeOK := True;
  1374.             if assigned(FSpectrum1) then Size := FSpectrum1.BytesPerSpectrum;
  1375.             if assigned(FSpectrum2) then Size := Max(Size,FSpectrum2.BytesPerSpectrum);
  1376.             if assigned(FSpectrum3) then Size := Max(Size,FSpectrum3.BytesPerSpectrum);
  1377.             if assigned(FSpectrum4) then Size := Max(Size,FSpectrum4.BytesPerSpectrum);
  1379.             if FSynchronize then
  1380.             begin
  1381.                FStepTime := 1000000;
  1382.                FStepTime := Trunc(FStepTime*FIndexSpectrum/FDstWaveFormat^.nAvgBytesPerSec);
  1383.                if (TimeGetExactTime-FBufTime < FStepTime) then TimeOK := False;
  1384.             end;
  1386.             if TimeOK then
  1387.             begin
  1388.                inc(DataPtr,FIndexSpectrum);
  1389.                inc(FIndexSpectrum,Size);
  1390.                if (DataPtr + Size <= FDstData + FRealBufferSize) then
  1391.                begin
  1392.                   { paint the spectrum. }
  1393.                   if assigned(FSpectrum1) then FSpectrum1.RefreshPCMData(DataPtr);
  1394.                   if assigned(FSpectrum2) then FSpectrum2.RefreshPCMData(DataPtr);
  1395.                   if assigned(FSpectrum3) then FSpectrum3.RefreshPCMData(DataPtr);
  1396.                   if assigned(FSpectrum4) then FSpectrum4.RefreshPCMData(DataPtr);
  1397.                   inc(FSpectrumRefresh);
  1398.                end
  1399.                else
  1400.                begin
  1401.                   FRefreshSpectrum := False;
  1402.                end;
  1403.             end;
  1404.          end;
  1406.          if FRefreshSpectrogram then
  1407.          begin
  1408.             Size := 0;
  1409.             Size2:= 0;
  1410.             DataPtr := nil;
  1411.             DataPtr2 := nil;
  1412.             TimeOK := False;
  1413.             Time2OK := False;
  1415.             if assigned(FSpectrogram1) then
  1416.             with FSpectrogram1 do
  1417.             begin
  1418.                DataPtr := FDstData;
  1419.                Size := BytesPerSpectrogram;
  1421.                if FSynchronize then
  1422.                begin
  1423.                   FStepTime := 1000000;
  1424.                   FStepTime := Trunc(FStepTime*FIndexSpectrogram1/FDstWaveFormat^.nAvgBytesPerSec);
  1425.                   if (TimeGetExactTime-FBufTime >= FStepTime) then TimeOK := True;
  1426.                end
  1427.                else TimeOK := True;
  1429.                if TimeOK then
  1430.                begin
  1431.                   inc(DataPtr,FIndexSpectrogram1);
  1432.                   if Accelerate then
  1433.                      inc(FIndexSpectrogram1, Size div 4)
  1434.                   else
  1435.                      inc(FIndexSpectrogram1, Size);
  1436.                end;
  1437.             end;
  1439.             if assigned(FSpectrogram2) then
  1440.             with FSpectrogram2 do
  1441.             begin
  1442.                DataPtr2 := FDstData;
  1443.                Size2 := BytesPerSpectrogram;
  1445.                if FSynchronize then
  1446.                begin
  1447.                   FStepTime := 1000000;
  1448.                   FStepTime := Trunc(FStepTime*FIndexSpectrogram2/FDstWaveFormat^.nAvgBytesPerSec);
  1449.                   if (TimeGetExactTime-FBufTime >= FStepTime) then Time2OK := True;
  1450.                end
  1451.                else Time2OK := True;
  1453.                if Time2OK then
  1454.                begin
  1455.                   inc(DataPtr2,FIndexSpectrogram2);
  1456.                   if Accelerate then
  1457.                      inc(FIndexSpectrogram2, Size div 4)
  1458.                   else
  1459.                      inc(FIndexSpectrogram2, Size2);
  1460.                end;
  1461.             end;
  1463.             if TimeOK or Time2OK then
  1464.             begin
  1465.                if ((DataPtr <> nil) and (DataPtr + Size <= FDstData + FRealBufferSize)) or
  1466.                   ((DataPtr2 <> nil) and (DataPtr2 + Size2 <= FDstData + FRealBufferSize)) then
  1467.                begin
  1468.                   { paint the spectrogram. }
  1469.                   if assigned(FSpectrogram1) and TimeOK and
  1470.                     (DataPtr + Size <= FDstData + FRealBufferSize) then
  1471.                     FSpectrogram1.RefreshPCMData(DataPtr);
  1473.                   if assigned(FSpectrogram2) and Time2OK and
  1474.                      (DataPtr2 + Size2 <= FDstData + FRealBufferSize) then
  1475.                      FSpectrogram2.RefreshPCMData(DataPtr2);
  1477.                   inc(FSpectrogramRefresh);
  1478.                end
  1479.                else FRefreshSpectrogram := False;
  1480.             end;
  1481.          end;
  1482.          {$ENDIF}
  1484.       {$IFDEF WIN32}
  1485.       finally
  1486.          LeaveCriticalSection(FDataSection);
  1487.       end;
  1488.       {$ENDIF}
  1490.       if assigned(FOnTrigger) then FOnTrigger(Self);
  1491.    end;
  1492. end;
  1494. {-- TMMConnector --------------------------------------------------------}
  1495. procedure TMMConnector.NewBuffer(lpData: PChar; dwLength: DWORD);
  1496. begin
  1497.    if FEnabled and not FPaused and (FIsPCMFormat or FCanConvert) then
  1498.    begin
  1499.        if (lpData <> nil) then
  1500.        begin
  1501.           FBufTime := TimeGetExactTime;
  1503.           {$IFDEF WIN32}
  1504.           EnterCriticalSection(FDataSection);
  1505.           try
  1506.           {$ENDIF}
  1507.             FRealBufferSize := Min(dwLength,BufferSize);
  1508.             GlobalMoveMem(lpData^,FSrcData^,FRealBufferSize);
  1510.             { if we have a compressed format try to convert the format }
  1511.             if not FIsPCMFormat and FCanConvert then
  1512.             begin
  1513.                FRealBufferSize := acmDoConvert(FConvert,FRealBufferSize);
  1514.                if FRealBufferSize <= 0 then exit;
  1515.             end;
  1517.           {$IFDEF WIN32}
  1518.           finally
  1519.             LeaveCriticalSection(FDataSection);
  1520.           end;
  1521.           {$ENDIF}
  1523.           if assigned(FLevel1) or assigned(FLevel2) then
  1524.           begin
  1525.              FRefreshLevel := True;
  1526.              FIndexLevel   := 0;
  1527.           end;
  1528.           {$IFNDEF LEVEL_ONLY}
  1529.           if assigned(FMeter1) or assigned(FMeter2) then
  1530.           begin
  1531.              FRefreshMeter := True;
  1532.              FIndexMeter   := 0;
  1533.           end;
  1534.           if assigned(FOscope1) or assigned(FOscope2) then
  1535.           begin
  1536.              FRefreshScope := True;
  1537.              FIndexScope   := 0;
  1538.           end;
  1539.           if assigned(FLight1) or assigned(FLight2) then
  1540.           begin
  1541.              FRefreshLight := True;
  1542.              FIndexLight   := 0;
  1543.           end;
  1544.           if assigned(FSpectrum1) or assigned(FSpectrum2) or
  1545.              assigned(FSpectrum3) or assigned(FSpectrum4) then
  1546.           begin
  1547.              FRefreshSpectrum := True;
  1548.              FIndexSpectrum   := 0;
  1549.           end;
  1550.           if assigned(FSpectrogram1) or assigned(FSpectrogram2) then
  1551.           begin
  1552.              FRefreshSpectrogram := True;
  1553.              FIndexSpectrogram1  := 0;
  1554.              FIndexSpectrogram2  := 0;
  1555.           end;
  1556.           {$ENDIF}
  1558.           if not FRealTime and FAutoTrigger then ProcessData;
  1559.        end;
  1560.    end;
  1561. end;
  1563. {-- TMMConnector --------------------------------------------------------}
  1564. procedure TMMConnector.BufferReady(lpwh: PWaveHdr);
  1565. var
  1566.    p: PWaveHdr;
  1567. begin
  1568.    if FSynchronize and (PMMWaveHdr(lpwh)^.lpNext <> nil) and (PMMWaveHdr(lpwh)^.wh.dwBytesRecorded > 0) then
  1569.       p := PMMWaveHdr(lpwh)^.lpNext
  1570.    else
  1571.       p := lpwh;
  1573.    if (p <> nil) then
  1574.        NewBuffer(p^.lpData,p^.dwBytesRecorded);
  1576.    inherited BufferReady(lpwh);
  1577. end;
  1579. {-- TMMConnector --------------------------------------------------------}
  1580. procedure TMMConnector.BufferLoad(lpwh: PWaveHdr; var MoreBuffers: Boolean);
  1581. begin
  1582.    inherited BufferLoad(lpwh, MoreBuffers);
  1584.    NewBuffer(lpwh^.lpData,lpwh.dwBytesRecorded);
  1585. end;
  1587. {-- TMMConnector --------------------------------------------------------}
  1588. procedure TMMConnector.GetPeak(var PeakL, PeakR: Smallint);
  1589. begin
  1590.    if (FIsPCMFormat or FCanConvert) and (FDstData <> nil) then
  1591.    begin
  1592.       pcmFindPeak(FDstWaveFormat,
  1593.                   FDstData, FRealBufferSize,
  1594.                   PeakL, PeakR);
  1595.    end
  1596.    else
  1597.    begin
  1598.       PeakL := FSilence;
  1599.       PeakR := FSilence;
  1600.    end;
  1601. end;
  1603. {-- TMMConnector --------------------------------------------------------}
  1604. procedure TMMConnector.SetAutoTrigger(aValue: Boolean);
  1605. begin
  1606.    if (aValue <> FAutoTrigger) then
  1607.    begin
  1608.       FAutoTrigger := aValue;
  1609.       if not (csDesigning in ComponentState) then
  1610.       begin
  1611.          if not FAutoTrigger then
  1612.          begin
  1613.             if FRunning then
  1614.             begin
  1615.                dec(LoopStarted);
  1616.                FRunning := False;
  1617.             end;
  1619.             if (LoopStarted = 0) and RestoreIdle then
  1620.             begin
  1621.                Application.OnIdle := nil;
  1622.                IdleHandler.Free;
  1623.                IdleHandler := nil;
  1624.                RestoreIdle := False;
  1625.             end;
  1626.          end
  1627.          else if FStarted and FEnabled and FRealTime then
  1628.          begin
  1629.             if FAutoTrigger and ENTER_IDLE_MODE then
  1630.             begin
  1631.                {$IFDEF WIN32}
  1632.                if not assigned(Application.OnIdle) and (IdleHandler = nil) then
  1633.                begin
  1634.                   IdleHandler := TIdleHandler.Create;
  1635.                   Application.OnIdle := IdleHandler.Idle;
  1636.                   RestoreIdle := True;
  1637.                end;
  1638.                {$ENDIF}
  1639.             end;
  1640.             PostMessage(ConnectorWindow,CM_CON_START,0,Longint(Self));
  1641.          end;
  1642.       end;
  1643.    end;
  1644.    {$IFDEF WIN32}
  1645.    {$IFDEF TRIAL}
  1646.    {$DEFINE _HACK1}
  1647.    {$I MMHACK.INC}
  1648.    {$ENDIF}
  1649.    {$ENDIF}
  1650. end;
  1652. {-- TMMConnector --------------------------------------------------------}
  1653. procedure TMMConnector.Trigger;
  1654. begin
  1655.    if FEnabled and (FRunning or (not FRealtime and FStarted)) and not FAutoTrigger then
  1656.    begin
  1657.       {$IFDEF WIN32}
  1658.       if (FInHandler = 0) then
  1659.       begin
  1660.          if (GetCurrentThreadID <> MainThreadID) then
  1661.          begin
  1662.             {$IFDEF WIN32}
  1663.             InterlockedIncrement(FInHandler);
  1664.             {$ENDIF}
  1665.             PostMessage(ConnectorWindow,CM_CON_TRIGGER,0,Longint(Self));
  1666.          end
  1667.          else ProcessData;
  1668.       end;
  1669.       {$ELSE}
  1670.       ProcessData;
  1671.       {$ENDIF}
  1672.    end;
  1673. end;
  1675. end.