Changeset 285 for CoolAudio

Timestamp:

Oct 11, 2011, 8:50:37 AM (13 years ago)

Author:

george

Message:

 

Location:

CoolAudio

Files:

• Demo/Demo.lpi (modified) (3 diffs)
• Systems/UAudioSystemWindows.pas (modified) (2 diffs)

CoolAudio/Demo/Demo.lpi

@@ -131 +131 @@
         <Filename Value="../Systems/UAudioSystem.pas"/>
         <UnitName Value="UAudioSystem"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
         <TopLine Value="177"/>
-        <CursorPos X="3" Y="181"/>
+        <CursorPos X="34" Y="188"/>
         <UsageCount Value="49"/>
         <Loaded Value="True"/>
@@ -230 +229 @@
         <Filename Value="../Systems/UAudioSystemWindows.pas"/>
         <UnitName Value="UAudioSystemWindows"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
         <TopLine Value="212"/>
-        <CursorPos X="1" Y="228"/>
+        <CursorPos X="50" Y="224"/>
         <UsageCount Value="45"/>
         <Loaded Value="True"/>
@@ -410 +410 @@
   </CompilerOptions>
   <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Kind Value="bpkSource"/>
-        <Source Value="../Systems/UAudioSystemWindows.pas"/>
-        <Line Value="228"/>
-      </Item1>
-    </BreakPoints>
     <Watches Count="1">
       <Item1>

CoolAudio/Systems/UAudioSystemWindows.pas

@@ -220 +220 @@
 var
   Parm: TMCI_Open_Parms;
+  ParmFileName: string;
 begin
   if FDeviceId <> 0 then DoClose;
@@ -226 +227 @@
   Parm.dwCallback := 0;
   Parm.lpstrDeviceType := DeviceName[FDeviceType];
-  Parm.lpstrElementName := PChar(UTF8Decode(FFileName));
+  ParmFileName := UTF8Decode(FFileName);
+  Parm.lpstrElementName := PChar(ParmFileName);
 
   FFlags := 0;