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

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

Delphi控件源码

开发平台：

Delphi

MMWPlay.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: 09.10.98 - 17:23:11 $                                        =}
  24. {========================================================================}
  25. unit MMWPlay;
  27. {$I COMPILER.INC}
  29. interface
  31. uses
  32. {$IFDEF WIN32}
  33.   Windows,
  34. {$ELSE}
  35.   WinTypes,
  36.   WinProcs,
  37. {$ENDIF}
  38.   SysUtils,
  39.   Classes,
  40.   Controls,
  41.   Dialogs,
  42.   MMSystem,
  43.   MMObj,
  44.   MMDSPobj,
  45.   MMRegs,
  46.   MMUtils,
  47.   MMWave,
  48.   MMACMCvt,
  49.   MMWavOut,
  50.   MMCstDlg,
  51.   MMADCvt;
  53. type
  54.     {-- TMMWavePlayer ---------------------------------------------------------}
  55.     TMMWavePlayer = class(TMMDSPComponent)
  56.     private
  57.        FStartPos   : Longint;
  58.        FStopPos    : Longint;
  59.        FSeeking    : Boolean;
  60.        FResetPos   : Boolean;
  61.        FAutoConvert: Boolean;
  63.        FOnStart    : TNotifyEvent;
  64.        FOnStop     : TNotifyEvent;
  65.        FOnPause    : TNotifyEvent;
  66.        FOnRestart  : TNotifyEvent;
  67.        FOnChange   : TNotifyEvent;
  68.        FOnData     : TMMBufferEvent;
  70.        procedure SetWave(aValue: TMMWave);
  71.        function  GetWave: TMMWave;
  72.        procedure SetNumBuffers(aValue: integer);
  73.        function  GetNumBuffers: integer;
  74.        procedure SetDeviceID(aValue: TMMDeviceID);
  75.        function  GetDeviceID: TMMDeviceID;
  76.        procedure SetProductName(aValue: string);
  77.        function  GetProductName: string;
  78.        procedure SetTimeFormat(aValue: TMMTimeFormats);
  79.        function  GetTimeFormat: TMMTimeFormats;
  80.        procedure SetCallBackMode(aValue: TMMCBMode);
  81.        function  GetCallBackMode: TMMCBMode;
  82.        procedure SetPosition(aValue: Longint);
  83.        function  GetPosition: Longint;
  85.        procedure SetLooping(aValue: Boolean);
  86.        function  GetLooping: Boolean;
  87.        procedure SetLoopCount(aValue: Word);
  88.        function  GetLoopCount: Word;
  90.        procedure SetFileName(aValue: TFileName);
  91.        function  GetFileName: TFileName;
  93.        function  GetState: TMMWaveOutState;
  95.        procedure SetAutoConvert(aValue: Boolean);
  97.        procedure DoChange(Sender: TObject);
  98.        procedure DoChanged(Sender: TObject);
  99.        procedure DoStart(Sender: TObject);
  100.        procedure DoStop(Sender: TObject);
  101.        procedure DoClose(Sender: TObject);
  102.        procedure DoPause(Sender: TObject);
  103.        procedure DoRestart(Sender: TObject);
  104.        procedure DoData(Sender: TObject; lpwh: PWaveHdr);
  106.     protected
  107.        FWaveFile    : TMMWaveFile;
  108.        FADPCMConvert: TMMADPCMConverter;
  109.        FPCMConvert  : TMMPCMConverter;
  110.        FWaveOut     : TMMWaveOut;
  112.        function  GetBufferSize: Longint; override;
  113.        procedure SetBufferSize(aValue: Longint); override;
  115.     public
  116.        constructor Create(aOwner: TComponent); override;
  117.        destructor  Destroy; override;
  119.        function  SelectFile: Boolean;
  120.        procedure LoadFromFile(const FileName: TFileName);
  122.        procedure Play;
  123.        procedure Stop;
  124.        procedure Pause;
  125.        procedure Restart;
  127.        property  FileName: TFileName read GetFileName write SetFileName stored False;
  128.        property  PWaveFormat;
  129.        property  State: TMMWaveOutState read GetState;
  130.        property  Position: Longint read GetPosition write SetPosition;
  132.     published
  133.        property OnStart: TNotifyEvent read FOnStart write FOnStart;
  134.        property OnStop: TNotifyEvent read FOnStop write FOnStop;
  135.        property OnPause: TNotifyEvent read FOnPause write FOnPause;
  136.        property OnRestart: TNotifyEvent read FOnRestart write FOnRestart;
  137.        property OnChange: TNotifyEvent read FOnChange write FOnChange;
  138.        property OnData: TMMBufferEvent read FOnData write FOnData;
  140.        property Output;
  141.        property Wave: TMMWave read GetWave write SetWave;
  142.        property BufferSize: Longint read GetBufferSize write SetBufferSize;
  143.        property NumBuffers: integer read GetNumBuffers write SetNumBuffers;
  144.        property DeviceID: TMMDeviceID read GetDeviceID write SetDeviceID;
  145.        property ProductName: string read GetProductName write SetProductName stored False;
  146.        property TimeFormat: TMMTimeFormats read GetTimeFormat write SetTimeFormat;
  147.        property CallBackMode: TMMCBMode read GetCallBackMode write SetCallBackMode;
  148.        property Looping: Boolean read GetLooping write SetLooping;
  149.        property LoopCount: Word read GetLoopCount write SetLoopCount;
  150.        property ResetPosition: Boolean read FResetPos write FResetPos default True;
  151.        property AutoConvert: Boolean read FAutoConvert write SetAutoConvert default True;
  152.     end;
  154. implementation
  156. {== MMWavePlayer ==============================================================}
  157. constructor TMMWavePlayer.Create(aOwner: TComponent);
  158. begin
  159.    inherited Create(aOwner);
  161.    FSeeking               := False;
  162.    FStartPos              := 0;
  163.    FResetPos              := True;
  164.    FAutoConvert           := True;
  166.    FWaveFile              := TMMWaveFile.Create(Self);
  167.    FWaveFile.OnChange     := DoChange;
  168.    FWaveFile.OnChanged    := DoChanged;
  170.    FADPCMConvert          := TMMADPCMConverter.Create(Self);
  171.    FADPCMConvert.Input    := FWaveFile;
  173.    FPCMConvert            := TMMPCMConverter.Create(Self);
  174.    FPCMConvert.Input      := FADPCMConvert;
  176.    FWaveOut               := TMMWaveOut.Create(Self);
  177.    FWaveOut.Input         := FPCMConvert;
  178.    FWaveOut.OnOpen        := DoStart;
  179.    FWaveOut.OnStop        := DoStop;
  180.    FWaveOut.OnClose       := DoClose;
  181.    FWaveOut.OnPause       := DoPause;
  182.    FWaveOut.OnRestart     := DoRestart;
  183.    FWaveOut.OnBufferReady := DoData;
  185.    FInputValid            := True;
  186.    FWaveOut.Output        := Self;
  187.    FInputValid            := False;
  189.    ErrorCode := ComponentRegistered(InitCode, Self, ClassName);
  190.    if (ErrorCode <> 0) then RegisterFailed(InitCode, Self , ClassName);
  191. end;
  193. {-- TMMWavePlayer -------------------------------------------------------------}
  194. destructor TMMWavePlayer.Destroy;
  195. begin
  196.    Stop;
  198.    FWaveFile.Free;
  199.    FADPCMConvert.Free;
  200.    FPCMConvert.Free;
  201.    FWaveOut.Free;
  203.    inherited Destroy;
  204. end;
  206. {-- TMMWavePlayer -------------------------------------------------------------}
  207. procedure TMMWavePlayer.SetWave(aValue: TMMWave);
  208. begin
  209.    FWaveFile.Wave := aValue;
  210. end;
  212. {-- TMMWavePlayer -------------------------------------------------------------}
  213. function TMMWavePlayer.GetWave: TMMWave;
  214. begin
  215.    Result := FWaveFile.Wave;
  216. end;
  218. {-- TMMWavePlayer -------------------------------------------------------------}
  219. function TMMWavePlayer.SelectFile: Boolean;
  220. begin
  221.    with TMMWaveOpenDialog.Create(nil) do
  222.    try
  223.       FileName := Self.FileName;
  224.       Result   := Execute;
  225.       if Result then
  226.          Self.FileName := FileName;
  227.    finally
  228.       Free;
  229.    end;
  230. end;
  232. {-- TMMWavePlayer -------------------------------------------------------------}
  233. procedure TMMWavePlayer.LoadFromFile(const FileName: TFileName);
  234. begin
  235.    SetFileName(FileName);
  236. end;
  238. {-- TMMWavePlayer -------------------------------------------------------------}
  239. procedure TMMWavePlayer.SetFileName(aValue: TFileName);
  240. begin
  241.    FWaveFile.Wave.FileName := aValue;
  242.    FADPCMConvert.Enabled := FAutoConvert and FADPCMConvert.CanConvert;
  243. end;
  245. {-- TMMWavePlayer -------------------------------------------------------------}
  246. function TMMWavePlayer.GetFileName: TFileName;
  247. begin
  248.    Result := FWaveFile.Wave.FileName;
  249. end;
  251. {-- TMMWavePlayer -------------------------------------------------------------}
  252. procedure TMMWavePlayer.SetBufferSize(aValue: Longint);
  253. begin
  254.    FWaveOut.BufferSize := aValue;
  255. end;
  257. {-- TMMWavePlayer -------------------------------------------------------------}
  258. function TMMWavePlayer.GetBufferSize: Longint;
  259. begin
  260.    Result := FWaveOut.BufferSize;
  261. end;
  263. {-- TMMWavePlayer -------------------------------------------------------------}
  264. procedure TMMWavePlayer.SetNumBuffers(aValue: integer);
  265. begin
  266.    FWaveOut.NumBuffers := aValue;
  267. end;
  269. {-- TMMWavePlayer -------------------------------------------------------------}
  270. function TMMWavePlayer.GetNumBuffers: integer;
  271. begin
  272.    Result := FWaveOut.NumBuffers;
  273. end;
  275. {-- TMMWavePlayer -------------------------------------------------------------}
  276. procedure TMMWavePlayer.SetDeviceID(aValue: TMMDeviceID);
  277. begin
  278.    FWaveOut.DeviceID := aValue;
  279. end;
  281. {-- TMMWavePlayer -------------------------------------------------------------}
  282. function TMMWavePlayer.GetDeviceID: TMMDeviceID;
  283. begin
  284.    Result := FWaveOut.DeviceID;
  285. end;
  287. {-- TMMWavePlayer -------------------------------------------------------------}
  288. procedure TMMWavePlayer.SetProductName(aValue: string);
  289. begin
  290.    FWaveOut.ProductName := aValue;
  291. end;
  293. {-- TMMWavePlayer -------------------------------------------------------------}
  294. function TMMWavePlayer.GetProductName: string;
  295. begin
  296.    Result := FWaveOut.ProductName;
  297. end;
  299. {-- TMMWavePlayer -------------------------------------------------------------}
  300. procedure TMMWavePlayer.SetTimeFormat(aValue: TMMTimeFormats);
  301. begin
  302.    FWaveOut.TimeFormat  := aValue;
  303.    FWaveFile.Wave.TimeFormat := aValue;
  304. end;
  306. {-- TMMWavePlayer -------------------------------------------------------------}
  307. function TMMWavePlayer.GetTimeFormat: TMMTimeFormats;
  308. begin
  309.    Result := FWaveOut.TimeFormat;
  310. end;
  312. {-- TMMWavePlayer -------------------------------------------------------------}
  313. procedure TMMWavePlayer.SetCallBackMode(aValue: TMMCBMode);
  314. begin
  315.    FWaveOut.CallBackMode := aValue;
  316. end;
  318. {-- TMMWavePlayer -------------------------------------------------------------}
  319. function TMMWavePlayer.GetCallBackMode: TMMCBMode;
  320. begin
  321.    Result := FWaveOut.CallBackMode;
  322. end;
  324. {-- TMMWavePlayer -------------------------------------------------------------}
  325. procedure TMMWavePlayer.SetLooping(aValue: Boolean);
  326. begin
  327.    FWaveOut.Looping := aValue;
  328. end;
  330. {-- TMMWavePlayer -------------------------------------------------------------}
  331. function TMMWavePlayer.GetLooping: Boolean;
  332. begin
  333.    Result := FWaveOut.Looping;
  334. end;
  336. {-- TMMWavePlayer -------------------------------------------------------------}
  337. procedure TMMWavePlayer.SetLoopCount(aValue: Word);
  338. begin
  339.    FWaveOut.LoopCount := aValue;
  340. end;
  342. {-- TMMWavePlayer -------------------------------------------------------------}
  343. function TMMWavePlayer.GetLoopCount: Word;
  344. begin
  345.    Result := FWaveOut.LoopCount;
  346. end;
  348. {-- TMMWavePlayer -------------------------------------------------------------}
  349. function TMMWavePlayer.GetState: TMMWaveOutState;
  350. begin
  351.    Result := FWaveOut.State;
  352. end;
  354. {-- TMMWavePlayer -------------------------------------------------------------}
  355. procedure TMMWavePlayer.SetAutoConvert(aValue: Boolean);
  356. begin
  357.    if (aValue <> FAutoConvert) then
  358.    begin
  359.       if (wosOpen in FwaveOut.State) then
  360.           raise Exception.Create(LoadResStr(IDS_PROPERTYOPEN));
  362.       FAutoConvert          := aValue;
  363.       FPCMConvert.Enabled   := aValue;
  364.       FADPCMConvert.Enabled := aValue;
  365.    end;
  366. end;
  368. {-- TMMWavePlayer -------------------------------------------------------------}
  369. procedure TMMWavePlayer.SetPosition(aValue: Longint);
  370. var
  371.    wasPaused: Boolean;
  372. begin
  373.    if (wosOpen in State) then
  374.    begin
  375.       FSeeking := True;
  376.       wasPaused := (wosPause in State);
  377.       FWaveOut.Pause;
  378.       FWaveFile.Wave.Position := aValue;
  379.       FStartPos := aValue;
  380.       FWaveOut.Reset;
  381.       if not wasPaused then FWaveOut.Restart;
  382.       FSeeking := False;
  383.    end
  384.    else
  385.    begin
  386.       FWaveFile.Wave.Position := aValue;
  387.    end;
  388. end;
  390. {-- TMMWavePlayer -------------------------------------------------------------}
  391. function TMMWavePlayer.GetPosition: Longint;
  392. begin
  393.    if (wosPlay in State) then
  394.    begin
  395.       Result := FStartPos+FWaveOut.Position;
  396.    end
  397.    else
  398.    begin
  399.      Result := FWaveFile.Wave.Position;
  400.    end;
  401. end;
  403. {-- TMMWavePlayer -------------------------------------------------------------}
  404. procedure TMMWavePlayer.DoChange(Sender: TObject);
  405. begin
  406.    Stop;
  408.    if assigned(FOnChange) then FOnChange(Self);
  409. end;
  411. {-- TMMWavePlayer -------------------------------------------------------------}
  412. procedure TMMWavePlayer.DoChanged(Sender: TObject);
  413. begin
  414.    FADPCMConvert.Enabled := FAutoConvert and FADPCMConvert.CanConvert;
  415. end;
  417. {-- TMMWavePlayer -------------------------------------------------------------}
  418. procedure TMMWavePlayer.DoStart(Sender: TObject);
  419. begin
  420.    if assigned(FOnStart) then FOnStart(Self);
  421. end;
  423. {-- TMMWavePlayer -------------------------------------------------------------}
  424. procedure TMMWavePlayer.DoStop(Sender: TObject);
  425. begin
  426.    if (FStopPos = -1) then FStopPos := Position;
  427.    FWaveOut.Close;
  428. end;
  430. {-- TMMWavePlayer -------------------------------------------------------------}
  431. procedure TMMWavePlayer.DoClose(Sender: TObject);
  432. begin
  433.    if not FResetPos then Position := FStopPos;
  434.    if assigned(FOnStop) then FOnStop(Self);
  435. end;
  437. {-- TMMWavePlayer -------------------------------------------------------------}
  438. procedure TMMWavePlayer.DoPause(Sender: TObject);
  439. begin
  440.    if assigned(FOnPause) and not FSeeking then FOnPause(Self);
  441. end;
  443. {-- TMMWavePlayer -------------------------------------------------------------}
  444. procedure TMMWavePlayer.DoRestart(Sender: TObject);
  445. begin
  446.    if assigned(FOnRestart) and not FSeeking then FOnRestart(Self);
  447. end;
  449. {-- TMMWavePlayer -------------------------------------------------------------}
  450. procedure TMMWavePlayer.DoData(Sender: TObject; lpwh: PWaveHdr);
  451. begin
  452.    if assigned(FOnData) then FOnData(Self,lpwh);
  453. end;
  455. {-- TMMWavePlayer -------------------------------------------------------------}
  456. procedure TMMWavePlayer.Play;
  457. begin
  458.    if not (wosPlay in State) and not FWaveFile.Wave.Empty then
  459.    begin
  460.       if (Position >= FWaveFile.Wave.DataSize) then Position := 0;
  461.       FStartPos := Position;
  462.       FStopPos  := -1;
  463.       FWaveOut.Start;
  464.    end;
  465. end;
  467. {-- TMMWavePlayer -------------------------------------------------------------}
  468. procedure TMMWavePlayer.Stop;
  469. begin
  470.    FStopPos := Position;
  471.    FWaveOut.Stop;
  472.    FWaveOut.Close;
  473. end;
  475. {-- TMMWavePlayer -------------------------------------------------------------}
  476. procedure TMMWavePlayer.Pause;
  477. begin
  478.    if not (wosPause in State) and not FWaveFile.Wave.Empty then FWaveOut.Pause;
  479. end;
  481. {-- TMMWavePlayer -------------------------------------------------------------}
  482. procedure TMMWavePlayer.Restart;
  483. begin
  484.    FWaveOut.Restart;
  485. end;
  487. end.