Changeset 284 for CoolAudio


Ignore:
Timestamp:
Oct 11, 2011, 8:31:29 AM (13 years ago)
Author:
george
Message:
 
Location:
CoolAudio
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • CoolAudio/CoolAudio.lpk

    r278 r284  
    5656      </Item9>
    5757      <Item10>
     58        <Filename Value="Systems/UAudioSystemWindows.pas"/>
     59        <UnitName Value="UAudioSystemWindows"/>
     60      </Item10>
     61      <Item11>
    5862        <Filename Value="Systems/UAudioSystem.pas"/>
    5963        <UnitName Value="UAudioSystem"/>
    60       </Item10>
    61       <Item11>
    62         <Filename Value="Systems/UAudioSystemWindows.pas"/>
    63         <UnitName Value="UAudioSystemWindows"/>
    6464      </Item11>
    6565    </Files>

  • CoolAudio/CoolAudio.pas

    r278 r284  
    99uses
    1010  fmod, fmoddyn, fmoderrors, fmodpresets, fmodtypes, UCoolAudio, UPlaylist,
    11   UAudioSystemFMOD, UAudioSystemMPlayer, UAudioSystem, UAudioSystemWindows,
     11  UAudioSystemFMOD, UAudioSystemMPlayer, UAudioSystemWindows, UAudioSystem,
    1212  LazarusPackageIntf;
    1313

  • CoolAudio/Demo/Demo.lpi

    r280 r284  
    3838      </Item2>
    3939    </RequiredPackages>
    40     <Units Count="24">
     40    <Units Count="25">
    4141      <Unit0>
    4242        <Filename Value="Demo.lpr"/>
    4343        <IsPartOfProject Value="True"/>
    4444        <UnitName Value="Demo"/>
    45         <EditorIndex Value="10"/>
     45        <EditorIndex Value="11"/>
    4646        <WindowIndex Value="0"/>
    4747        <TopLine Value="1"/>
    4848        <CursorPos X="19" Y="10"/>
    49         <UsageCount Value="38"/>
     49        <UsageCount Value="80"/>
    5050        <Loaded Value="True"/>
    5151      </Unit0>
    … …  
    5858        <EditorIndex Value="0"/>
    5959        <WindowIndex Value="0"/>
    60         <TopLine Value="84"/>
    61         <CursorPos X="1" Y="96"/>
    62         <UsageCount Value="38"/>
     60        <TopLine Value="97"/>
     61        <CursorPos X="26" Y="95"/>
     62        <UsageCount Value="80"/>
    6363        <Loaded Value="True"/>
    6464        <LoadedDesigner Value="True"/>
    … …  
    6767        <Filename Value="../UCoolAudio.pas"/>
    6868        <UnitName Value="UCoolAudio"/>
    69         <EditorIndex Value="5"/>
    70         <WindowIndex Value="0"/>
    71         <TopLine Value="11"/>
    72         <CursorPos X="18" Y="16"/>
    73         <UsageCount Value="14"/>
     69        <EditorIndex Value="6"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="27"/>
     72        <CursorPos X="20" Y="19"/>
     73        <UsageCount Value="34"/>
    7474        <Loaded Value="True"/>
    7575      </Unit2>
    … …  
    7777        <Filename Value="../Systems/UAudioSystemFMOD.pas"/>
    7878        <UnitName Value="UAudioSystemFMOD"/>
    79         <EditorIndex Value="8"/>
     79        <EditorIndex Value="9"/>
    8080        <WindowIndex Value="0"/>
    8181        <TopLine Value="47"/>
    8282        <CursorPos X="1" Y="61"/>
    83         <UsageCount Value="19"/>
     83        <UsageCount Value="39"/>
    8484        <Loaded Value="True"/>
    8585      </Unit3>
    … …  
    9090        <TopLine Value="1"/>
    9191        <CursorPos X="29" Y="8"/>
    92         <UsageCount Value="20"/>
     92        <UsageCount Value="16"/>
    9393      </Unit4>
    9494      <Unit5>
    9595        <Filename Value="../fmodintf/fmoddyn.pas"/>
    9696        <UnitName Value="fmoddyn"/>
    97         <EditorIndex Value="9"/>
     97        <EditorIndex Value="10"/>
    9898        <WindowIndex Value="0"/>
    9999        <TopLine Value="579"/>
    100100        <CursorPos X="19" Y="593"/>
    101         <UsageCount Value="14"/>
     101        <UsageCount Value="34"/>
    102102        <Loaded Value="True"/>
    103103      </Unit5>
    … …  
    108108        <TopLine Value="158"/>
    109109        <CursorPos X="43" Y="178"/>
    110         <UsageCount Value="10"/>
     110        <UsageCount Value="6"/>
    111111      </Unit6>
    112112      <Unit7>
    113113        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
    114114        <UnitName Value="UAudioSystemMPlayer"/>
    115         <EditorIndex Value="6"/>
    116         <WindowIndex Value="0"/>
    117         <TopLine Value="30"/>
    118         <CursorPos X="31" Y="36"/>
    119         <UsageCount Value="19"/>
     115        <EditorIndex Value="7"/>
     116        <WindowIndex Value="0"/>
     117        <TopLine Value="243"/>
     118        <CursorPos X="114" Y="258"/>
     119        <UsageCount Value="39"/>
    120120        <Loaded Value="True"/>
    121121      </Unit7>
    … …  
    126126        <TopLine Value="1"/>
    127127        <CursorPos X="1" Y="1"/>
    128         <UsageCount Value="8"/>
     128        <UsageCount Value="4"/>
    129129      </Unit8>
    130130      <Unit9>
    131131        <Filename Value="../Systems/UAudioSystem.pas"/>
    132132        <UnitName Value="UAudioSystem"/>
    133         <EditorIndex Value="4"/>
    134         <WindowIndex Value="0"/>
    135         <TopLine Value="123"/>
    136         <CursorPos X="1" Y="137"/>
    137         <UsageCount Value="29"/>
     133        <IsVisibleTab Value="True"/>
     134        <EditorIndex Value="5"/>
     135        <WindowIndex Value="0"/>
     136        <TopLine Value="177"/>
     137        <CursorPos X="3" Y="181"/>
     138        <UsageCount Value="49"/>
    138139        <Loaded Value="True"/>
    139140      </Unit9>
    … …  
    144145        <TopLine Value="418"/>
    145146        <CursorPos X="18" Y="430"/>
    146         <UsageCount Value="10"/>
     147        <UsageCount Value="6"/>
    147148      </Unit10>
    148149      <Unit11>
    … …  
    152153        <TopLine Value="2427"/>
    153154        <CursorPos X="24" Y="2429"/>
    154         <UsageCount Value="12"/>
     155        <UsageCount Value="8"/>
    155156      </Unit11>
    156157      <Unit12>
    … …  
    160161        <TopLine Value="38"/>
    161162        <CursorPos X="32" Y="50"/>
    162         <UsageCount Value="8"/>
     163        <UsageCount Value="4"/>
    163164      </Unit12>
    164165      <Unit13>
    … …  
    168169        <TopLine Value="120"/>
    169170        <CursorPos X="16" Y="131"/>
    170         <UsageCount Value="8"/>
     171        <UsageCount Value="4"/>
    171172      </Unit13>
    172173      <Unit14>
    … …  
    175176        <TopLine Value="26"/>
    176177        <CursorPos X="18" Y="28"/>
    177         <UsageCount Value="8"/>
     178        <UsageCount Value="4"/>
    178179      </Unit14>
    179180      <Unit15>
    … …  
    182183        <TopLine Value="65"/>
    183184        <CursorPos X="17" Y="67"/>
    184         <UsageCount Value="8"/>
     185        <UsageCount Value="4"/>
    185186      </Unit15>
    186187      <Unit16>
    … …  
    190191        <TopLine Value="2275"/>
    191192        <CursorPos X="1" Y="2287"/>
    192         <UsageCount Value="13"/>
     193        <UsageCount Value="33"/>
    193194        <Loaded Value="True"/>
    194195      </Unit16>
    … …  
    198199        <TopLine Value="6307"/>
    199200        <CursorPos X="17" Y="6320"/>
    200         <UsageCount Value="8"/>
     201        <UsageCount Value="4"/>
    201202      </Unit17>
    202203      <Unit18>
    … …  
    206207        <TopLine Value="13"/>
    207208        <CursorPos X="21" Y="26"/>
    208         <UsageCount Value="12"/>
     209        <UsageCount Value="8"/>
    209210      </Unit18>
    210211      <Unit19>
    … …  
    214215        <TopLine Value="1"/>
    215216        <CursorPos X="1" Y="1"/>
    216         <UsageCount Value="12"/>
     217        <UsageCount Value="8"/>
    217218      </Unit19>
    218219      <Unit20>
    … …  
    221222        <EditorIndex Value="3"/>
    222223        <WindowIndex Value="0"/>
    223         <TopLine Value="882"/>
    224         <CursorPos X="5" Y="765"/>
    225         <UsageCount Value="15"/>
     224        <TopLine Value="1781"/>
     225        <CursorPos X="52" Y="1791"/>
     226        <UsageCount Value="35"/>
    226227        <Loaded Value="True"/>
    227228      </Unit20>
    … …  
    229230        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    230231        <UnitName Value="UAudioSystemWindows"/>
    231         <IsVisibleTab Value="True"/>
    232232        <EditorIndex Value="2"/>
    233233        <WindowIndex Value="0"/>
    234         <TopLine Value="117"/>
    235         <CursorPos X="26" Y="137"/>
    236         <UsageCount Value="25"/>
     234        <TopLine Value="212"/>
     235        <CursorPos X="1" Y="228"/>
     236        <UsageCount Value="45"/>
    237237        <Loaded Value="True"/>
    238238      </Unit21>
    … …  
    242242        <TopLine Value="159"/>
    243243        <CursorPos X="10" Y="176"/>
    244         <UsageCount Value="9"/>
     244        <UsageCount Value="5"/>
    245245      </Unit22>
    246246      <Unit23>
    247247        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/objpas/sysutils/osutilsh.inc"/>
    248         <EditorIndex Value="7"/>
     248        <EditorIndex Value="8"/>
    249249        <WindowIndex Value="0"/>
    250250        <TopLine Value="23"/>
    251251        <CursorPos X="10" Y="23"/>
    252         <UsageCount Value="13"/>
     252        <UsageCount Value="33"/>
    253253        <Loaded Value="True"/>
    254254      </Unit23>
     255      <Unit24>
     256        <Filename Value="../../../../Lazarus/0.9.31_2.5.1/fpc/2.5.1/source/rtl/win/wininc/base.inc"/>
     257        <EditorIndex Value="4"/>
     258        <WindowIndex Value="0"/>
     259        <TopLine Value="148"/>
     260        <CursorPos X="6" Y="159"/>
     261        <UsageCount Value="10"/>
     262        <Loaded Value="True"/>
     263      </Unit24>
    255264    </Units>
    256     <JumpHistory Count="30" HistoryIndex="28">
     265    <JumpHistory Count="30" HistoryIndex="27">
    257266      <Position1>
    258         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    259         <Caret Line="170" Column="49" TopLine="158"/>
     267        <Filename Value="UMainForm.pas"/>
     268        <Caret Line="115" Column="66" TopLine="96"/>
    260269      </Position1>
    261270      <Position2>
    262         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    263         <Caret Line="162" Column="1" TopLine="158"/>
     271        <Filename Value="UMainForm.pas"/>
     272        <Caret Line="85" Column="13" TopLine="83"/>
    264273      </Position2>
    265274      <Position3>
    266         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    267         <Caret Line="85" Column="1" TopLine="73"/>
     275        <Filename Value="../Systems/UAudioSystem.pas"/>
     276        <Caret Line="59" Column="58" TopLine="47"/>
    268277      </Position3>
    269278      <Position4>
    270279        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    271         <Caret Line="86" Column="1" TopLine="73"/>
     280        <Caret Line="228" Column="55" TopLine="215"/>
    272281      </Position4>
    273282      <Position5>
    274         <Filename Value="../Systems/UAudioSystem.pas"/>
    275         <Caret Line="135" Column="1" TopLine="123"/>
     283        <Filename Value="../Systems/UAudioSystemMPlayer.pas"/>
     284        <Caret Line="258" Column="114" TopLine="243"/>
    276285      </Position5>
    277286      <Position6>
    278         <Filename Value="../Systems/UAudioSystem.pas"/>
    279         <Caret Line="136" Column="1" TopLine="123"/>
     287        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     288        <Caret Line="74" Column="6" TopLine="62"/>
    280289      </Position6>
    281290      <Position7>
    282         <Filename Value="../Systems/UAudioSystem.pas"/>
    283         <Caret Line="137" Column="1" TopLine="123"/>
     291        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     292        <Caret Line="228" Column="1" TopLine="219"/>
    284293      </Position7>
    285294      <Position8>
    286295        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    287         <Caret Line="87" Column="1" TopLine="73"/>
     296        <Caret Line="230" Column="1" TopLine="219"/>
    288297      </Position8>
    289298      <Position9>
    290299        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    291         <Caret Line="108" Column="1" TopLine="104"/>
     300        <Caret Line="232" Column="1" TopLine="219"/>
    292301      </Position9>
    293302      <Position10>
    294303        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    295         <Caret Line="161" Column="1" TopLine="149"/>
     304        <Caret Line="228" Column="1" TopLine="219"/>
    296305      </Position10>
    297306      <Position11>
    298307        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    299         <Caret Line="162" Column="1" TopLine="149"/>
     308        <Caret Line="230" Column="1" TopLine="219"/>
    300309      </Position11>
    301310      <Position12>
    302311        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    303         <Caret Line="42" Column="56" TopLine="30"/>
     312        <Caret Line="228" Column="1" TopLine="219"/>
    304313      </Position12>
    305314      <Position13>
    306         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    307         <Caret Line="134" Column="29" TopLine="116"/>
     315        <Filename Value="UMainForm.pas"/>
     316        <Caret Line="86" Column="14" TopLine="83"/>
    308317      </Position13>
    309318      <Position14>
    310319        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    311         <Caret Line="112" Column="76" TopLine="100"/>
     320        <Caret Line="228" Column="1" TopLine="215"/>
    312321      </Position14>
    313322      <Position15>
    314323        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    315         <Caret Line="113" Column="15" TopLine="101"/>
     324        <Caret Line="229" Column="1" TopLine="215"/>
    316325      </Position15>
    317326      <Position16>
    318327        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    319         <Caret Line="46" Column="28" TopLine="34"/>
     328        <Caret Line="227" Column="42" TopLine="215"/>
    320329      </Position16>
    321330      <Position17>
    322331        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    323         <Caret Line="134" Column="47" TopLine="122"/>
     332        <Caret Line="228" Column="1" TopLine="215"/>
    324333      </Position17>
    325334      <Position18>
    326335        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    327         <Caret Line="43" Column="45" TopLine="30"/>
     336        <Caret Line="226" Column="39" TopLine="215"/>
    328337      </Position18>
    329338      <Position19>
    330339        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    331         <Caret Line="146" Column="3" TopLine="140"/>
     340        <Caret Line="74" Column="1" TopLine="63"/>
    332341      </Position19>
    333342      <Position20>
    334343        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    335         <Caret Line="121" Column="1" TopLine="117"/>
     344        <Caret Line="228" Column="47" TopLine="217"/>
    336345      </Position20>
    337346      <Position21>
    338347        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    339         <Caret Line="122" Column="1" TopLine="117"/>
     348        <Caret Line="74" Column="1" TopLine="63"/>
    340349      </Position21>
    341350      <Position22>
    342351        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    343         <Caret Line="123" Column="1" TopLine="117"/>
     352        <Caret Line="255" Column="1" TopLine="217"/>
    344353      </Position22>
    345354      <Position23>
    346355        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    347         <Caret Line="128" Column="1" TopLine="117"/>
     356        <Caret Line="228" Column="1" TopLine="217"/>
    348357      </Position23>
    349358      <Position24>
    350359        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    351         <Caret Line="129" Column="1" TopLine="117"/>
     360        <Caret Line="255" Column="37" TopLine="238"/>
    352361      </Position24>
    353362      <Position25>
    354363        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    355         <Caret Line="134" Column="1" TopLine="117"/>
     364        <Caret Line="228" Column="1" TopLine="209"/>
    356365      </Position25>
    357366      <Position26>
    358367        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    359         <Caret Line="135" Column="1" TopLine="117"/>
     368        <Caret Line="230" Column="1" TopLine="211"/>
    360369      </Position26>
    361370      <Position27>
    362371        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    363         <Caret Line="136" Column="1" TopLine="117"/>
     372        <Caret Line="74" Column="1" TopLine="63"/>
    364373      </Position27>
    365374      <Position28>
    366         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    367         <Caret Line="138" Column="1" TopLine="118"/>
     375        <Filename Value="../Systems/UAudioSystem.pas"/>
     376        <Caret Line="182" Column="5" TopLine="177"/>
    368377      </Position28>
    369378      <Position29>
    370379        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
    371         <Caret Line="134" Column="28" TopLine="117"/>
     380        <Caret Line="228" Column="1" TopLine="212"/>
    372381      </Position29>
    373382      <Position30>
    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"/>
     383        <Filename Value="../Systems/UAudioSystemWindows.pas"/>
     384        <Caret Line="75" Column="1" TopLine="64"/>
    376385      </Position30>
    377386    </JumpHistory>
    … …  
    401410  </CompilerOptions>
    402411  <Debugging>
     412    <BreakPoints Count="1">
     413      <Item1>
     414        <Kind Value="bpkSource"/>
     415        <Source Value="../Systems/UAudioSystemWindows.pas"/>
     416        <Line Value="228"/>
     417      </Item1>
     418    </BreakPoints>
    403419    <Watches Count="1">
    404420      <Item1>

  • CoolAudio/Demo/UMainForm.lfm

    r280 r284  
    11object MainForm: TMainForm
    2   Left = 531
     2  Left = 571
    33  Height = 240
    4   Top = 300
     4  Top = 335
    55  Width = 435
    66  Caption = 'CoolAudio demo'
    … …  
    1717    Anchors = [akTop, akLeft, akRight]
    1818    TabOrder = 0
    19     Text = 'h:\Projekty2\PascalClassLibrary\CoolAudio\Demo\4 Strings - Catch A Fall (Radio Edit).mp3'
     19    Text = 'test.mp3'
    2020  end
    2121  object Button1: TButton

  • CoolAudio/Systems/UAudioSystem.pas

    r280 r284  
    179179  if AValue = FFileName then Exit;
    180180  FFileName := AValue;
     181  Close;
     182  Open;
    181183end;
    182184

  • CoolAudio/Systems/UAudioSystemMPlayer.pas

    r280 r284  
    256256  //MPOptions := '-af volume=' + IntToStr(IntTodB(Round(FVolume * 100), 100)) + ' ' + MPOptions;// -volume xx only supported with patched mplayer;
    257257
    258   FProcess.CommandLine := TAudioSystemMPlayer(AudioSystem).FPath + ' ' + MPOptions + ' "' + FFileName + '"';
     258  FProcess.CommandLine := TAudioSystemMPlayer(AudioSystem).FPath + ' ' + MPOptions + ' "' + UTF8Decode(FFileName) + '"';
    259259  FProcess.Options := FProcess.Options + [poUsePipes, poDefaultErrorMode, poStderrToOutPut, poNoConsole];
    260260  //InputBox('', '', FProcess.CommandLine);

  • CoolAudio/Systems/UAudioSystemWindows.pas

    r280 r284  
    226226  Parm.dwCallback := 0;
    227227  Parm.lpstrDeviceType := DeviceName[FDeviceType];
    228   Parm.lpstrElementName := PChar(FFileName);
     228  Parm.lpstrElementName := PChar(UTF8Decode(FFileName));
    229229
    230230  FFlags := 0;
Note: See TracChangeset for help on using the changeset viewer.