Changeset 276 for CoolAudio/Demo


Ignore:
Timestamp:
Oct 4, 2011, 1:18:33 PM (13 years ago)
Author:
george
Message:
  • Modified: MPlayer system now play audio files.
Location:
CoolAudio/Demo
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • CoolAudio/Demo

    • Property svn:ignore

      •  

        old new  
        2211-seal-amazing.mp3
        33lib
         4Demo.exe

  • CoolAudio/Demo/Demo.lpi

    r275 r276  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="10">
     40    <Units Count="20">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <UsageCount Value="21"/>
     45        <UsageCount Value="28"/>
    4646      </Unit0>
    4747      <Unit1>
    … …  
    5151        <ResourceBaseClass Value="Form"/>
    5252        <UnitName Value="UMainForm"/>
    53         <IsVisibleTab Value="True"/>
    5453        <EditorIndex Value="0"/>
    5554        <WindowIndex Value="0"/>
    56         <TopLine Value="1"/>
    57         <CursorPos X="25" Y="9"/>
    58         <UsageCount Value="21"/>
     55        <TopLine Value="58"/>
     56        <CursorPos X="66" Y="65"/>
     57        <UsageCount Value="28"/>
    5958        <Loaded Value="True"/>
    6059        <LoadedDesigner Value="True"/>
    … …  
    6362        <Filename Value="../UCoolAudio.pas"/>
    6463        <UnitName Value="UCoolAudio"/>
    65         <EditorIndex Value="1"/>
    66         <WindowIndex Value="0"/>
    67         <TopLine Value="1"/>
    68         <CursorPos X="1" Y="11"/>
    69         <UsageCount Value="10"/>
    70         <Loaded Value="True"/>
     64        <WindowIndex Value="0"/>
     65        <TopLine Value="1"/>
     66        <CursorPos X="34" Y="6"/>
     67        <UsageCount Value="10"/>
    7168      </Unit2>
    7269      <Unit3>
    7370        <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    7471        <UnitName Value="UAudioSystemFMOD"/>
    75         <EditorIndex Value="5"/>
    76         <WindowIndex Value="0"/>
    77         <TopLine Value="1"/>
    78         <CursorPos X="46" Y="11"/>
    79         <UsageCount Value="10"/>
     72        <EditorIndex Value="6"/>
     73        <WindowIndex Value="0"/>
     74        <TopLine Value="1"/>
     75        <CursorPos X="20" Y="111"/>
     76        <UsageCount Value="13"/>
    8077        <Loaded Value="True"/>
    8178      </Unit3>
    … …  
    8380        <Filename Value="../UPlaylist.pas"/>
    8481        <UnitName Value="UPlaylist"/>
    85         <EditorIndex Value="7"/>
    8682        <WindowIndex Value="0"/>
    8783        <TopLine Value="1"/>
    8884        <CursorPos X="29" Y="8"/>
    89         <UsageCount Value="20"/>
    90         <Loaded Value="True"/>
     85        <UsageCount Value="22"/>
    9186      </Unit4>
    9287      <Unit5>
    9388        <Filename Value="../fmodintf/fmoddyn.pas"/>
    9489        <UnitName Value="fmoddyn"/>
    95         <EditorIndex Value="8"/>
    9690        <WindowIndex Value="0"/>
    9791        <TopLine Value="46"/>
    9892        <CursorPos X="10" Y="63"/>
    99         <UsageCount Value="10"/>
    100         <Loaded Value="True"/>
     93        <UsageCount Value="12"/>
    10194      </Unit5>
    10295      <Unit6>
    10396        <Filename Value="../fmodintf/fmodtypes.pas"/>
    10497        <UnitName Value="fmodtypes"/>
    105         <EditorIndex Value="6"/>
    10698        <WindowIndex Value="0"/>
    10799        <TopLine Value="158"/>
    108100        <CursorPos X="43" Y="178"/>
    109         <UsageCount Value="10"/>
    110         <Loaded Value="True"/>
     101        <UsageCount Value="12"/>
    111102      </Unit6>
    112103      <Unit7>
    113104        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    114105        <UnitName Value="UAudioSystemMPlayer"/>
    115         <EditorIndex Value="4"/>
    116         <WindowIndex Value="0"/>
    117         <TopLine Value="1"/>
    118         <CursorPos X="34" Y="8"/>
    119         <UsageCount Value="10"/>
     106        <IsVisibleTab Value="True"/>
     107        <EditorIndex Value="3"/>
     108        <WindowIndex Value="0"/>
     109        <TopLine Value="258"/>
     110        <CursorPos X="8" Y="260"/>
     111        <UsageCount Value="13"/>
    120112        <Loaded Value="True"/>
    121113      </Unit7>
    … …  
    123115        <Filename Value="../CoolAudio.pas"/>
    124116        <UnitName Value="CoolAudio"/>
    125         <EditorIndex Value="2"/>
    126117        <WindowIndex Value="0"/>
    127118        <TopLine Value="1"/>
    128119        <CursorPos X="1" Y="1"/>
    129120        <UsageCount Value="10"/>
    130         <Loaded Value="True"/>
    131121      </Unit8>
    132122      <Unit9>
    133123        <Filename Value="../Systems/UAudioSystem.pas"/>
    134124        <UnitName Value="UAudioSystem"/>
    135         <EditorIndex Value="3"/>
    136         <WindowIndex Value="0"/>
    137         <TopLine Value="48"/>
    138         <CursorPos X="1" Y="81"/>
    139         <UsageCount Value="20"/>
     125        <EditorIndex Value="2"/>
     126        <WindowIndex Value="0"/>
     127        <TopLine Value="70"/>
     128        <CursorPos X="32" Y="82"/>
     129        <UsageCount Value="23"/>
    140130        <Loaded Value="True"/>
    141131      </Unit9>
     132      <Unit10>
     133        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/stdctrls.pp"/>
     134        <UnitName Value="StdCtrls"/>
     135        <WindowIndex Value="0"/>
     136        <TopLine Value="1046"/>
     137        <CursorPos X="17" Y="1067"/>
     138        <UsageCount Value="10"/>
     139      </Unit10>
     140      <Unit11>
     141        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/controls.pp"/>
     142        <UnitName Value="Controls"/>
     143        <EditorIndex Value="1"/>
     144        <WindowIndex Value="0"/>
     145        <TopLine Value="2427"/>
     146        <CursorPos X="24" Y="2429"/>
     147        <UsageCount Value="10"/>
     148        <Loaded Value="True"/>
     149      </Unit11>
     150      <Unit12>
     151        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/lclclasses.pp"/>
     152        <UnitName Value="LCLClasses"/>
     153        <WindowIndex Value="0"/>
     154        <TopLine Value="38"/>
     155        <CursorPos X="32" Y="50"/>
     156        <UsageCount Value="10"/>
     157      </Unit12>
     158      <Unit13>
     159        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/widgetset/wslclclasses.pp"/>
     160        <UnitName Value="WSLCLClasses"/>
     161        <WindowIndex Value="0"/>
     162        <TopLine Value="120"/>
     163        <CursorPos X="16" Y="131"/>
     164        <UsageCount Value="10"/>
     165      </Unit13>
     166      <Unit14>
     167        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/buttons.inc"/>
     168        <WindowIndex Value="0"/>
     169        <TopLine Value="26"/>
     170        <CursorPos X="18" Y="28"/>
     171        <UsageCount Value="10"/>
     172      </Unit14>
     173      <Unit15>
     174        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/buttoncontrol.inc"/>
     175        <WindowIndex Value="0"/>
     176        <TopLine Value="65"/>
     177        <CursorPos X="17" Y="67"/>
     178        <UsageCount Value="10"/>
     179      </Unit15>
     180      <Unit16>
     181        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/control.inc"/>
     182        <WindowIndex Value="0"/>
     183        <TopLine Value="4280"/>
     184        <CursorPos X="19" Y="4283"/>
     185        <UsageCount Value="10"/>
     186      </Unit16>
     187      <Unit17>
     188        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/lcl/include/wincontrol.inc"/>
     189        <WindowIndex Value="0"/>
     190        <TopLine Value="6307"/>
     191        <CursorPos X="17" Y="6320"/>
     192        <UsageCount Value="10"/>
     193      </Unit17>
     194      <Unit18>
     195        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/fcl-process/src/process.pp"/>
     196        <UnitName Value="process"/>
     197        <EditorIndex Value="4"/>
     198        <WindowIndex Value="0"/>
     199        <TopLine Value="13"/>
     200        <CursorPos X="21" Y="26"/>
     201        <UsageCount Value="10"/>
     202        <Loaded Value="True"/>
     203      </Unit18>
     204      <Unit19>
     205        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/packages/libogcfpc/src/debug.pp"/>
     206        <UnitName Value="debug"/>
     207        <EditorIndex Value="5"/>
     208        <WindowIndex Value="0"/>
     209        <TopLine Value="1"/>
     210        <CursorPos X="1" Y="1"/>
     211        <UsageCount Value="10"/>
     212        <Loaded Value="True"/>
     213      </Unit19>
    142214    </Units>
    143     <JumpHistory Count="13" HistoryIndex="12">
     215    <JumpHistory Count="30" HistoryIndex="29">
    144216      <Position1>
    145         <Filename Value="../UCoolAudio.pas"/>
    146         <Caret Line="22" Column="75" TopLine="1"/>
     217        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     218        <Caret Line="232" Column="1" TopLine="212"/>
    147219      </Position1>
    148220      <Position2>
    149         <Filename Value="../UCoolAudio.pas"/>
    150         <Caret Line="55" Column="3" TopLine="37"/>
     221        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     222        <Caret Line="244" Column="42" TopLine="228"/>
    151223      </Position2>
    152224      <Position3>
    153         <Filename Value="../UCoolAudio.pas"/>
    154         <Caret Line="18" Column="60" TopLine="1"/>
     225        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     226        <Caret Line="239" Column="1" TopLine="228"/>
    155227      </Position3>
    156228      <Position4>
    157         <Filename Value="../UCoolAudio.pas"/>
    158         <Caret Line="56" Column="18" TopLine="37"/>
     229        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     230        <Caret Line="240" Column="1" TopLine="228"/>
    159231      </Position4>
    160232      <Position5>
    161         <Filename Value="../UCoolAudio.pas"/>
    162         <Caret Line="46" Column="33" TopLine="21"/>
     233        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     234        <Caret Line="241" Column="1" TopLine="228"/>
    163235      </Position5>
    164236      <Position6>
    165         <Filename Value="../UCoolAudio.pas"/>
    166         <Caret Line="56" Column="3" TopLine="45"/>
     237        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     238        <Caret Line="242" Column="1" TopLine="228"/>
    167239      </Position6>
    168240      <Position7>
    169         <Filename Value="../UCoolAudio.pas"/>
    170         <Caret Line="11" Column="11" TopLine="1"/>
     241        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     242        <Caret Line="243" Column="1" TopLine="228"/>
    171243      </Position7>
    172244      <Position8>
    173         <Filename Value="../UCoolAudio.pas"/>
    174         <Caret Line="19" Column="12" TopLine="1"/>
     245        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     246        <Caret Line="240" Column="12" TopLine="228"/>
    175247      </Position8>
    176248      <Position9>
    177         <Filename Value="../UCoolAudio.pas"/>
    178         <Caret Line="20" Column="34" TopLine="2"/>
     249        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     250        <Caret Line="219" Column="53" TopLine="203"/>
    179251      </Position9>
    180252      <Position10>
    181         <Filename Value="../UCoolAudio.pas"/>
    182         <Caret Line="1" Column="1" TopLine="1"/>
     253        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     254        <Caret Line="240" Column="1" TopLine="227"/>
    183255      </Position10>
    184256      <Position11>
    185         <Filename Value="../CoolAudio.pas"/>
    186         <Caret Line="1" Column="1" TopLine="1"/>
     257        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     258        <Caret Line="241" Column="1" TopLine="227"/>
    187259      </Position11>
    188260      <Position12>
    189         <Filename Value="../CoolAudio.pas"/>
    190         <Caret Line="19" Column="44" TopLine="1"/>
     261        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     262        <Caret Line="242" Column="1" TopLine="227"/>
    191263      </Position12>
    192264      <Position13>
    193         <Filename Value="UMainForm.pas"/>
    194         <Caret Line="46" Column="15" TopLine="37"/>
     265        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     266        <Caret Line="243" Column="1" TopLine="227"/>
    195267      </Position13>
     268      <Position14>
     269        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     270        <Caret Line="240" Column="12" TopLine="227"/>
     271      </Position14>
     272      <Position15>
     273        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     274        <Caret Line="110" Column="37" TopLine="108"/>
     275      </Position15>
     276      <Position16>
     277        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     278        <Caret Line="239" Column="1" TopLine="227"/>
     279      </Position16>
     280      <Position17>
     281        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     282        <Caret Line="240" Column="1" TopLine="227"/>
     283      </Position17>
     284      <Position18>
     285        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     286        <Caret Line="241" Column="1" TopLine="227"/>
     287      </Position18>
     288      <Position19>
     289        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     290        <Caret Line="240" Column="10" TopLine="227"/>
     291      </Position19>
     292      <Position20>
     293        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     294        <Caret Line="126" Column="50" TopLine="108"/>
     295      </Position20>
     296      <Position21>
     297        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     298        <Caret Line="230" Column="1" TopLine="218"/>
     299      </Position21>
     300      <Position22>
     301        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     302        <Caret Line="231" Column="1" TopLine="218"/>
     303      </Position22>
     304      <Position23>
     305        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     306        <Caret Line="109" Column="1" TopLine="97"/>
     307      </Position23>
     308      <Position24>
     309        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     310        <Caret Line="110" Column="1" TopLine="97"/>
     311      </Position24>
     312      <Position25>
     313        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     314        <Caret Line="111" Column="1" TopLine="97"/>
     315      </Position25>
     316      <Position26>
     317        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     318        <Caret Line="112" Column="1" TopLine="97"/>
     319      </Position26>
     320      <Position27>
     321        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     322        <Caret Line="116" Column="1" TopLine="97"/>
     323      </Position27>
     324      <Position28>
     325        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     326        <Caret Line="233" Column="45" TopLine="218"/>
     327      </Position28>
     328      <Position29>
     329        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     330        <Caret Line="112" Column="45" TopLine="97"/>
     331      </Position29>
     332      <Position30>
     333        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     334        <Caret Line="230" Column="1" TopLine="218"/>
     335      </Position30>
    196336    </JumpHistory>
    197337  </ProjectOptions>
    … …  
    208348      <Debugging>
    209349        <GenerateDebugInfo Value="True"/>
    210         <DebugInfoType Value="dsAuto"/>
    211350      </Debugging>
    212351      <Options>
    … …  
    221360  </CompilerOptions>
    222361  <Debugging>
    223     <BreakPoints Count="2">
     362    <Watches Count="1">
    224363      <Item1>
    225         <Kind Value="bpkSource"/>
    226         <WatchScope Value="wpsLocal"/>
    227         <WatchKind Value="wpkWrite"/>
    228         <Source Value="../UFMODAudio.pas"/>
    229         <Line Value="59"/>
     364        <Expression Value="MPOptions"/>
    230365      </Item1>
    231       <Item2>
    232         <Kind Value="bpkSource"/>
    233         <WatchScope Value="wpsLocal"/>
    234         <WatchKind Value="wpkWrite"/>
    235         <Source Value="../UFMODAudio.pas"/>
    236         <Line Value="49"/>
    237       </Item2>
    238     </BreakPoints>
     366    </Watches>
    239367    <Exceptions Count="3">
    240368      <Item1>

  • CoolAudio/Demo/UMainForm.lfm

    r275 r276  
    11object MainForm: TMainForm
    2   Left = 479
     2  Left = 531
    33  Height = 240
    4   Top = 249
    5   Width = 359
     4  Top = 300
     5  Width = 435
    66  Caption = 'CoolAudio demo'
    77  ClientHeight = 240
    8   ClientWidth = 359
     8  ClientWidth = 435
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    … …  
    1414    Height = 21
    1515    Top = 12
    16     Width = 264
     16    Width = 340
    1717    Anchors = [akTop, akLeft, akRight]
    1818    TabOrder = 0
    19     Text = '11-seal-amazing.mp3'
     19    Text = 'h:\Projekty2\PascalClassLibrary\CoolAudio\Demo\4 Strings - Catch A Fall (Radio Edit).mp3'
    2020  end
    2121  object Button1: TButton
    22     Left = 277
     22    Left = 353
    2323    Height = 25
    2424    Top = 12
    … …  
    2626    Anchors = [akTop, akRight]
    2727    Caption = 'Select...'
     28    OnClick = Button1Click
    2829    TabOrder = 1
    2930  end
    … …  
    5960    Height = 33
    6061    Top = 90
    61     Width = 341
     62    Width = 417
    6263    Position = 0
    6364    Anchors = [akTop, akLeft, akRight]
    6465    TabOrder = 5
    6566  end
     67  object OpenDialog1: TOpenDialog
     68    Filter = 'Any file (*.*)|*.*|MP3 (*.mp3)|*.mp3|WAV (*.wav)|*.wav'
     69    left = 296
     70    top = 48
     71  end
    6672end

  • CoolAudio/Demo/UMainForm.pas

    r275 r276  
    1919    ButtonPause: TButton;
    2020    Edit1: TEdit;
     21    OpenDialog1: TOpenDialog;
    2122    TrackBar1: TTrackBar;
     23    procedure Button1Click(Sender: TObject);
    2224    procedure ButtonPauseClick(Sender: TObject);
    2325    procedure ButtonPlayClick(Sender: TObject);
    … …  
    4345procedure TMainForm.FormCreate(Sender: TObject);
    4446begin
    45   AudioSystem := TFMODAudioSystem.Create;
    46   Player := TFMODPlayer.Create;
     47  AudioSystem := TAudioSystemMPlayer.Create;
     48  TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
     49  Player := TPlayerMPlayer.Create;
     50  Player.AudioSystem := AudioSystem;
    4751end;
    4852
    … …  
    5559procedure TMainForm.ButtonPlayClick(Sender: TObject);
    5660begin
     61  Player.FileName := Edit1.Text;
    5762  Player.Play;
    5863end;
    … …  
    6873end;
    6974
     75procedure TMainForm.Button1Click(Sender: TObject);
     76begin
     77  if OpenDialog1.Execute then Edit1.Text := OpenDialog1.FileName;
     78end;
     79
    7080end.
    7181
Note: See TracChangeset for help on using the changeset viewer.