Changeset 280 for CoolAudio/Demo


Ignore:
Timestamp:
Oct 5, 2011, 12:40:56 PM (13 years ago)
Author:
george
Message:
  • Added: Support for play, stop, pause, seek of Windows mmsystem backend.
Location:
CoolAudio/Demo
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • CoolAudio/Demo/Demo.lpi

    r279 r280  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="23">
     40    <Units Count="24">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <EditorIndex Value="8"/>
     45        <EditorIndex Value="10"/>
    4646        <WindowIndex Value="0"/>
    4747        <TopLine Value="1"/>
    48         <CursorPos X="1" Y="1"/>
    49         <UsageCount Value="33"/>
     48        <CursorPos X="19" Y="10"/>
     49        <UsageCount Value="38"/>
    5050        <Loaded Value="True"/>
    5151      </Unit0>
    … …  
    5656        <ResourceBaseClass Value="Form"/>
    5757        <UnitName Value="UMainForm"/>
    58         <IsVisibleTab Value="True"/>
    5958        <EditorIndex Value="0"/>
    6059        <WindowIndex Value="0"/>
    61         <TopLine Value="69"/>
    62         <CursorPos X="39" Y="82"/>
    63         <UsageCount Value="33"/>
     60        <TopLine Value="84"/>
     61        <CursorPos X="1" Y="96"/>
     62        <UsageCount Value="38"/>
    6463        <Loaded Value="True"/>
    6564        <LoadedDesigner Value="True"/>
    … …  
    6867        <Filename Value="../UCoolAudio.pas"/>
    6968        <UnitName Value="UCoolAudio"/>
    70         <EditorIndex Value="3"/>
    71         <WindowIndex Value="0"/>
    72         <TopLine Value="16"/>
    73         <CursorPos X="9" Y="7"/>
    74         <UsageCount Value="11"/>
     69        <EditorIndex Value="5"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="11"/>
     72        <CursorPos X="18" Y="16"/>
     73        <UsageCount Value="14"/>
    7574        <Loaded Value="True"/>
    7675      </Unit2>
    … …  
    7877        <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    7978        <UnitName Value="UAudioSystemFMOD"/>
    80         <EditorIndex Value="6"/>
     79        <EditorIndex Value="8"/>
    8180        <WindowIndex Value="0"/>
    8281        <TopLine Value="47"/>
    8382        <CursorPos X="1" Y="61"/>
    84         <UsageCount Value="16"/>
     83        <UsageCount Value="19"/>
    8584        <Loaded Value="True"/>
    8685      </Unit3>
    … …  
    9190        <TopLine Value="1"/>
    9291        <CursorPos X="29" Y="8"/>
    93         <UsageCount Value="21"/>
     92        <UsageCount Value="20"/>
    9493      </Unit4>
    9594      <Unit5>
    9695        <Filename Value="../fmodintf/fmoddyn.pas"/>
    9796        <UnitName Value="fmoddyn"/>
    98         <EditorIndex Value="7"/>
    99         <WindowIndex Value="0"/>
    100         <TopLine Value="577"/>
    101         <CursorPos X="38" Y="581"/>
    102         <UsageCount Value="11"/>
     97        <EditorIndex Value="9"/>
     98        <WindowIndex Value="0"/>
     99        <TopLine Value="579"/>
     100        <CursorPos X="19" Y="593"/>
     101        <UsageCount Value="14"/>
    103102        <Loaded Value="True"/>
    104103      </Unit5>
    … …  
    109108        <TopLine Value="158"/>
    110109        <CursorPos X="43" Y="178"/>
    111         <UsageCount Value="11"/>
     110        <UsageCount Value="10"/>
    112111      </Unit6>
    113112      <Unit7>
    114113        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    115114        <UnitName Value="UAudioSystemMPlayer"/>
    116         <EditorIndex Value="4"/>
    117         <WindowIndex Value="0"/>
    118         <TopLine Value="254"/>
    119         <CursorPos X="1" Y="276"/>
    120         <UsageCount Value="16"/>
     115        <EditorIndex Value="6"/>
     116        <WindowIndex Value="0"/>
     117        <TopLine Value="30"/>
     118        <CursorPos X="31" Y="36"/>
     119        <UsageCount Value="19"/>
    121120        <Loaded Value="True"/>
    122121      </Unit7>
    … …  
    127126        <TopLine Value="1"/>
    128127        <CursorPos X="1" Y="1"/>
    129         <UsageCount Value="9"/>
     128        <UsageCount Value="8"/>
    130129      </Unit8>
    131130      <Unit9>
    132131        <Filename Value="../Systems/UAudioSystem.pas"/>
    133132        <UnitName Value="UAudioSystem"/>
    134         <EditorIndex Value="2"/>
    135         <WindowIndex Value="0"/>
    136         <TopLine Value="31"/>
    137         <CursorPos X="15" Y="48"/>
    138         <UsageCount Value="26"/>
     133        <EditorIndex Value="4"/>
     134        <WindowIndex Value="0"/>
     135        <TopLine Value="123"/>
     136        <CursorPos X="1" Y="137"/>
     137        <UsageCount Value="29"/>
    139138        <Loaded Value="True"/>
    140139      </Unit9>
    … …  
    145144        <TopLine Value="418"/>
    146145        <CursorPos X="18" Y="430"/>
    147         <UsageCount Value="11"/>
     146        <UsageCount Value="10"/>
    148147      </Unit10>
    149148      <Unit11>
    … …  
    153152        <TopLine Value="2427"/>
    154153        <CursorPos X="24" Y="2429"/>
    155         <UsageCount Value="13"/>
     154        <UsageCount Value="12"/>
    156155      </Unit11>
    157156      <Unit12>
    … …  
    161160        <TopLine Value="38"/>
    162161        <CursorPos X="32" Y="50"/>
    163         <UsageCount Value="9"/>
     162        <UsageCount Value="8"/>
    164163      </Unit12>
    165164      <Unit13>
    … …  
    169168        <TopLine Value="120"/>
    170169        <CursorPos X="16" Y="131"/>
    171         <UsageCount Value="9"/>
     170        <UsageCount Value="8"/>
    172171      </Unit13>
    173172      <Unit14>
    … …  
    176175        <TopLine Value="26"/>
    177176        <CursorPos X="18" Y="28"/>
    178         <UsageCount Value="9"/>
     177        <UsageCount Value="8"/>
    179178      </Unit14>
    180179      <Unit15>
    … …  
    183182        <TopLine Value="65"/>
    184183        <CursorPos X="17" Y="67"/>
    185         <UsageCount Value="9"/>
     184        <UsageCount Value="8"/>
    186185      </Unit15>
    187186      <Unit16>
    188187        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
    189         <WindowIndex Value="0"/>
    190         <TopLine Value="4280"/>
    191         <CursorPos X="19" Y="4283"/>
    192         <UsageCount Value="9"/>
     188        <EditorIndex Value="1"/>
     189        <WindowIndex Value="0"/>
     190        <TopLine Value="2275"/>
     191        <CursorPos X="1" Y="2287"/>
     192        <UsageCount Value="13"/>
     193        <Loaded Value="True"/>
    193194      </Unit16>
    194195      <Unit17>
    … …  
    197198        <TopLine Value="6307"/>
    198199        <CursorPos X="17" Y="6320"/>
    199         <UsageCount Value="9"/>
     200        <UsageCount Value="8"/>
    200201      </Unit17>
    201202      <Unit18>
    … …  
    205206        <TopLine Value="13"/>
    206207        <CursorPos X="21" Y="26"/>
    207         <UsageCount Value="13"/>
     208        <UsageCount Value="12"/>
    208209      </Unit18>
    209210      <Unit19>
    … …  
    213214        <TopLine Value="1"/>
    214215        <CursorPos X="1" Y="1"/>
    215         <UsageCount Value="13"/>
     216        <UsageCount Value="12"/>
    216217      </Unit19>
    217218      <Unit20>
    218219        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/winunits-base/src/mmsystem.pp"/>
    219220        <UnitName Value="mmsystem"/>
    220         <WindowIndex Value="0"/>
    221         <TopLine Value="165"/>
    222         <CursorPos X="10" Y="177"/>
    223         <UsageCount Value="12"/>
     221        <EditorIndex Value="3"/>
     222        <WindowIndex Value="0"/>
     223        <TopLine Value="882"/>
     224        <CursorPos X="5" Y="765"/>
     225        <UsageCount Value="15"/>
     226        <Loaded Value="True"/>
    224227      </Unit20>
    225228      <Unit21>
    226229        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    227230        <UnitName Value="UAudioSystemWindows"/>
    228         <EditorIndex Value="1"/>
    229         <WindowIndex Value="0"/>
    230         <TopLine Value="13"/>
    231         <CursorPos X="1" Y="46"/>
    232         <UsageCount Value="22"/>
     231        <IsVisibleTab Value="True"/>
     232        <EditorIndex Value="2"/>
     233        <WindowIndex Value="0"/>
     234        <TopLine Value="117"/>
     235        <CursorPos X="26" Y="137"/>
     236        <UsageCount Value="25"/>
    233237        <Loaded Value="True"/>
    234238      </Unit21>
    235239      <Unit22>
    236240        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/sysutils/sysstrh.inc"/>
    237         <EditorIndex Value="5"/>
    238241        <WindowIndex Value="0"/>
    239242        <TopLine Value="159"/>
    240243        <CursorPos X="10" Y="176"/>
    241         <UsageCount Value="10"/>
    242         <Loaded Value="True"/>
     244        <UsageCount Value="9"/>
    243245      </Unit22>
     246      <Unit23>
     247        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/osutilsh.inc"/>
     248        <EditorIndex Value="7"/>
     249        <WindowIndex Value="0"/>
     250        <TopLine Value="23"/>
     251        <CursorPos X="10" Y="23"/>
     252        <UsageCount Value="13"/>
     253        <Loaded Value="True"/>
     254      </Unit23>
    244255    </Units>
    245     <JumpHistory Count="30" HistoryIndex="29">
     256    <JumpHistory Count="30" HistoryIndex="28">
    246257      <Position1>
    247         <Filename Value="../Systems/UAudioSystem.pas"/>
    248         <Caret Line="91" Column="25" TopLine="89"/>
     258        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     259        <Caret Line="170" Column="49" TopLine="158"/>
    249260      </Position1>
    250261      <Position2>
    251         <Filename Value="../Systems/UAudioSystem.pas"/>
    252         <Caret Line="93" Column="25" TopLine="79"/>
     262        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     263        <Caret Line="162" Column="1" TopLine="158"/>
    253264      </Position2>
    254265      <Position3>
    255         <Filename Value="../Systems/UAudioSystem.pas"/>
    256         <Caret Line="76" Column="1" TopLine="56"/>
     266        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     267        <Caret Line="85" Column="1" TopLine="73"/>
    257268      </Position3>
    258269      <Position4>
    259         <Filename Value="UMainForm.pas"/>
    260         <Caret Line="53" Column="33" TopLine="41"/>
     270        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     271        <Caret Line="86" Column="1" TopLine="73"/>
    261272      </Position4>
    262273      <Position5>
    263274        <Filename Value="../Systems/UAudioSystem.pas"/>
    264         <Caret Line="76" Column="50" TopLine="64"/>
     275        <Caret Line="135" Column="1" TopLine="123"/>
    265276      </Position5>
    266277      <Position6>
    267         <Filename Value="UMainForm.pas"/>
    268         <Caret Line="55" Column="24" TopLine="42"/>
     278        <Filename Value="../Systems/UAudioSystem.pas"/>
     279        <Caret Line="136" Column="1" TopLine="123"/>
    269280      </Position6>
    270281      <Position7>
    271         <Filename Value="UMainForm.pas"/>
    272         <Caret Line="99" Column="28" TopLine="85"/>
     282        <Filename Value="../Systems/UAudioSystem.pas"/>
     283        <Caret Line="137" Column="1" TopLine="123"/>
    273284      </Position7>
    274285      <Position8>
    275         <Filename Value="UMainForm.pas"/>
    276         <Caret Line="100" Column="10" TopLine="85"/>
     286        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     287        <Caret Line="87" Column="1" TopLine="73"/>
    277288      </Position8>
    278289      <Position9>
    279         <Filename Value="UMainForm.pas"/>
    280         <Caret Line="97" Column="1" TopLine="86"/>
     290        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     291        <Caret Line="108" Column="1" TopLine="104"/>
    281292      </Position9>
    282293      <Position10>
    283         <Filename Value="UMainForm.pas"/>
    284         <Caret Line="98" Column="1" TopLine="86"/>
     294        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     295        <Caret Line="161" Column="1" TopLine="149"/>
    285296      </Position10>
    286297      <Position11>
    287         <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    288         <Caret Line="59" Column="1" TopLine="47"/>
     298        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     299        <Caret Line="162" Column="1" TopLine="149"/>
    289300      </Position11>
    290301      <Position12>
    291         <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    292         <Caret Line="64" Column="1" TopLine="47"/>
     302        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     303        <Caret Line="42" Column="56" TopLine="30"/>
    293304      </Position12>
    294305      <Position13>
    295         <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    296         <Caret Line="60" Column="1" TopLine="47"/>
     306        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     307        <Caret Line="134" Column="29" TopLine="116"/>
    297308      </Position13>
    298309      <Position14>
    299         <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    300         <Caret Line="61" Column="1" TopLine="47"/>
     310        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     311        <Caret Line="112" Column="76" TopLine="100"/>
    301312      </Position14>
    302313      <Position15>
    303         <Filename Value="../Systems/UAudioSystem.pas"/>
    304         <Caret Line="66" Column="5" TopLine="54"/>
     314        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     315        <Caret Line="113" Column="15" TopLine="101"/>
    305316      </Position15>
    306317      <Position16>
    307         <Filename Value="../Systems/UAudioSystem.pas"/>
    308         <Caret Line="1" Column="1" TopLine="1"/>
     318        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     319        <Caret Line="46" Column="28" TopLine="34"/>
    309320      </Position16>
    310321      <Position17>
    311         <Filename Value="../UCoolAudio.pas"/>
    312         <Caret Line="39" Column="30" TopLine="13"/>
     322        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     323        <Caret Line="134" Column="47" TopLine="122"/>
    313324      </Position17>
    314325      <Position18>
    315         <Filename Value="UMainForm.pas"/>
    316         <Caret Line="57" Column="85" TopLine="43"/>
     326        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     327        <Caret Line="43" Column="45" TopLine="30"/>
    317328      </Position18>
    318329      <Position19>
    319         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    320         <Caret Line="132" Column="30" TopLine="121"/>
     330        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     331        <Caret Line="146" Column="3" TopLine="140"/>
    321332      </Position19>
    322333      <Position20>
    323         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    324         <Caret Line="42" Column="14" TopLine="25"/>
     334        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     335        <Caret Line="121" Column="1" TopLine="117"/>
    325336      </Position20>
    326337      <Position21>
    327         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    328         <Caret Line="74" Column="17" TopLine="49"/>
     338        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     339        <Caret Line="122" Column="1" TopLine="117"/>
    329340      </Position21>
    330341      <Position22>
    331         <Filename Value="UMainForm.pas"/>
    332         <Caret Line="31" Column="50" TopLine="1"/>
     342        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     343        <Caret Line="123" Column="1" TopLine="117"/>
    333344      </Position22>
    334345      <Position23>
    335         <Filename Value="UMainForm.pas"/>
    336         <Caret Line="108" Column="1" TopLine="84"/>
     346        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     347        <Caret Line="128" Column="1" TopLine="117"/>
    337348      </Position23>
    338349      <Position24>
    339         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    340         <Caret Line="271" Column="1" TopLine="254"/>
     350        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     351        <Caret Line="129" Column="1" TopLine="117"/>
    341352      </Position24>
    342353      <Position25>
    343         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    344         <Caret Line="272" Column="1" TopLine="254"/>
     354        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     355        <Caret Line="134" Column="1" TopLine="117"/>
    345356      </Position25>
    346357      <Position26>
    347         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    348         <Caret Line="273" Column="1" TopLine="254"/>
     358        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     359        <Caret Line="135" Column="1" TopLine="117"/>
    349360      </Position26>
    350361      <Position27>
    351         <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    352         <Caret Line="276" Column="1" TopLine="254"/>
     362        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     363        <Caret Line="136" Column="1" TopLine="117"/>
    353364      </Position27>
    354365      <Position28>
    355         <Filename Value="UMainForm.pas"/>
    356         <Caret Line="102" Column="17" TopLine="84"/>
     366        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     367        <Caret Line="138" Column="1" TopLine="118"/>
    357368      </Position28>
    358369      <Position29>
    359         <Filename Value="UMainForm.pas"/>
    360         <Caret Line="94" Column="52" TopLine="84"/>
     370        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     371        <Caret Line="134" Column="28" TopLine="117"/>
    361372      </Position29>
    362373      <Position30>
    363         <Filename Value="UMainForm.pas"/>
    364         <Caret Line="74" Column="29" TopLine="68"/>
     374        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/winunits-base/src/mmsystem.pp"/>
     375        <Caret Line="765" Column="5" TopLine="882"/>
    365376      </Position30>
    366377    </JumpHistory>
    … …  
    378389      <Debugging>
    379390        <GenerateDebugInfo Value="True"/>
    380         <DebugInfoType Value="dsStabs"/>
    381391      </Debugging>
    382392      <Options>

  • CoolAudio/Demo/Demo.lpr

    r279 r280  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, USystem;
     10  Forms, UMainForm;
    1111
    1212{$R *.res}

  • CoolAudio/Demo/UMainForm.lfm

    r279 r280  
    6969  object ComboBox1: TComboBox
    7070    Left = 80
    71     Height = 25
     71    Height = 21
    7272    Top = 46
    7373    Width = 128
    74     ItemHeight = 0
     74    ItemHeight = 13
    7575    OnChange = ComboBox1Change
    7676    Style = csDropDownList
    … …  
    8181    Height = 14
    8282    Top = 46
    83     Width = 52
     83    Width = 45
    8484    Caption = 'Backend:'
    8585    ParentColor = False
    … …  
    8989    Height = 14
    9090    Top = 152
    91     Width = 48
     91    Width = 42
    9292    Caption = 'Position:'
    9393    ParentColor = False

  • CoolAudio/Demo/UMainForm.pas

    r279 r280  
    5454begin
    5555  AudioSystemManager.FillStringList(ComboBox1.Items);
    56   AudioSystem := TAudioSystemMPlayer.Create;
    57   TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
    58   TAudioSystemMPlayer(AudioSystem).Path := TAudioSystemMPlayer(AudioSystem).FindPath;
    59   Player := TPlayerMPlayer.Create;
    60   Player.AudioSystem := AudioSystem;
     56  if ComboBox1.Items.Count > 0 then
     57    ComboBox1.ItemIndex := 0;
     58  ComboBox1Change(Self);
    6159end;
    6260
    6361procedure TMainForm.FormDestroy(Sender: TObject);
    6462begin
    65   Player.Free;
    66   AudioSystem.Free;
     63  FreeAndNil(Player);
     64  FreeAndNil(AudioSystem);
    6765end;
    6866
    6967procedure TMainForm.TimerPlaybackTimer(Sender: TObject);
    7068begin
    71   if Player.Playing then begin
     69  if Assigned(Player) and Player.Playing then begin
    7270    TrackBar1.OnChange := nil;
    7371    TrackBar1.Position := Trunc(Player.Position / Player.Length * TrackBar1.Max);
    … …  
    9694procedure TMainForm.ComboBox1Change(Sender: TObject);
    9795begin
    98   Player.Free;
    99   AudioSystem.Free;
     96  FreeAndNil(Player);
     97  FreeAndNil(AudioSystem);
    10098  if ComboBox1.ItemIndex <> - 1 then begin
    10199    with TAudioSystemManagerItem(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) do begin
    … …  
    103101      Player := PlayerClass.Create;
    104102      Player.AudioSystem := AudioSystem;
     103      //Player.Active := True;
    105104    end;
    106105  end;
Note: See TracChangeset for help on using the changeset viewer.