RealICQClient/Includes/2007_MMTools/Help/Demos/mixer/BLOCK/Unit1.pas

{========================================================================}
{=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
{========================================================================}
{=                          All Rights Reserved                         =}
{========================================================================}
{=  D 01099 Dresden             = Fax.: +49 (0)351-8037944              =}
{=  Loewenstr.7a                = info@swiftsoft.de                     =}
{========================================================================}
{=  Actual versions on http://www.swiftsoft.de/mmtools.html             =}
{========================================================================}
{=  This code is for reference purposes only and may not be copied or   =}
{=  distributed in any format electronic or otherwise except one copy   =}
{=  for backup purposes.                                                =}
{=                                                                      =}
{=  No Delphi Component Kit or Component individually or in a collection=}
{=  subclassed or otherwise from the code in this unit, or associated   =}
{=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
{=  without express permission from SwiftSoft.                          =}
{=                                                                      =}
{=  For more licence informations please refer to the associated        =}
{=  HelpFile.                                                           =}
{========================================================================}
{=  $Date: 06.09.98 - 14:13:32 $                                        =}
{========================================================================}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MMWave, MMDSPObj, MMWavOut, MMMixer, MMDevice, MMObj, MMDesign,
  ExtCtrls, MMMixBlk, MMSlider, MMMixCtl, MMDIBCv, MMLevel, MMConect,
  MMMeter, MMWavIn, MMLight, MMCstDlg, MMHTimer, MMHook;

type
  TMainForm = class(TForm)
    MMDesigner1: TMMDesigner;
    MMMixerDevice1: TMMMixerDevice;
    MMAudioLine1: TMMAudioLine;
    MMWaveOut1: TMMWaveOut;
    MMWaveFile1: TMMWaveFile;
    btnPlay: TButton;
    MMAudioLine2: TMMAudioLine;
    MMMeter1: TMMMeter;
    MMConnector1: TMMConnector;
    MMMixerBlock3: TMMMixerBlock;
    MMMixerBlockLevel3: TMMMixerBlockLevel;
    MMMixerBlockLabel7: TMMMixerBlockLabel;
    MMMixerBlockLabel8: TMMMixerBlockLabel;
    MMMixerBlockLabel9: TMMMixerBlockLabel;
    MMMixerBlockSlider7: TMMMixerBlockSlider;
    MMMixerBlockCheck3: TMMMixerBlockCheck;
    MMMixerBlockSlider8: TMMMixerBlockSlider;
    MMMixerBlock4: TMMMixerBlock;
    MMMixerBlockLevel4: TMMMixerBlockLevel;
    MMMixerBlockLabel10: TMMMixerBlockLabel;
    MMMixerBlockLabel11: TMMMixerBlockLabel;
    MMMixerBlockLabel12: TMMMixerBlockLabel;
    MMMixerBlockSlider10: TMMMixerBlockSlider;
    MMMixerBlockCheck4: TMMMixerBlockCheck;
    MMMixerBlockSlider11: TMMMixerBlockSlider;
    MMAudioLine3: TMMAudioLine;
    btnRecord: TButton;
    MMWaveIn1: TMMWaveIn;
    MMConnector2: TMMConnector;
    MMLight1: TMMLight;
    MMAudioLine4: TMMAudioLine;
    MMWaveOpenDialog1: TMMWaveOpenDialog;
    MMMixerBlock1: TMMMixerBlock;
    MMMixerBlockLevel1: TMMMixerBlockLevel;
    MMMixerBlockLabel1: TMMMixerBlockLabel;
    MMMixerBlockLabel2: TMMMixerBlockLabel;
    MMMixerBlockLabel3: TMMMixerBlockLabel;
    MMMixerBlockSlider1: TMMMixerBlockSlider;
    MMMixerBlockCheck1: TMMMixerBlockCheck;
    MMMixerBlockSlider2: TMMMixerBlockSlider;
    MMMixerBlock2: TMMMixerBlock;
    MMMixerBlockLevel2: TMMMixerBlockLevel;
    MMMixerBlockLabel4: TMMMixerBlockLabel;
    MMMixerBlockLabel5: TMMMixerBlockLabel;
    MMMixerBlockLabel6: TMMMixerBlockLabel;
    MMMixerBlockSlider4: TMMMixerBlockSlider;
    MMMixerBlockCheck2: TMMMixerBlockCheck;
    MMMixerBlockSlider5: TMMMixerBlockSlider;
    MMMixerBlock5: TMMMixerBlock;
    MMMixerBlockLevel5: TMMMixerBlockLevel;
    MMMixerBlockLabel13: TMMMixerBlockLabel;
    MMMixerBlockLabel14: TMMMixerBlockLabel;
    MMMixerBlockLabel15: TMMMixerBlockLabel;
    MMMixerBlockSlider3: TMMMixerBlockSlider;
    MMMixerBlockCheck5: TMMMixerBlockCheck;
    MMMixerBlockSlider6: TMMMixerBlockSlider;
    MMAudioLine5: TMMAudioLine;
    procedure btnPlayClick(Sender: TObject);
    procedure btnRecordClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

{-- TMainForm -----------------------------------------------------------}
procedure TMainForm.btnPlayClick(Sender: TObject);
begin
   if MMWaveFile1.Wave.FileName = '' then
   begin
      if MMWaveOpenDialog1.Execute then
         MMWaveFile1.Wave.FileName := MMWaveOpenDialog1.FileName
      else
         Exit;
   end;
   MMWaveOut1.Start;
end;

{-- TMainForm -----------------------------------------------------------}
procedure TMainForm.btnRecordClick(Sender: TObject);
begin
   MMWaveIn1.Start;
end;

end.