ozok/newac

Automatically exported from code.google.com/p/newac

newac's Issues

An unexpected memory leak has occurred

if you open a file several times, without destroying the component, for example 
here:
var
  MP3In: TMP3In;
  TotalSamples1, TotalSamples2: Cardinal;
begin
  MP3In := TMP3In.Create(nil);

  MP3In.FileName := FileName1;
  TotalSamples1 := MP3In.TotalSamples;

  MP3In.FileName := FileName2;
  TotalSamples2 := MP3In.TotalSamples;

  MP3In.Free;
end;

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:

21 - 28 bytes: TAudioStream x 1

---------------------------
ОК   
---------------------------


problem in unit libwma1.pas

   procedure lwma_reader_free(var sync_reader : wma_sync_reader);
   begin
     sync_reader.reader.Close;
      if sync_reader.buffer <> nil then
        sync_reader.buffer := nil;
     sync_reader.reader := nil;
     sync_reader.HeaderInfo := nil;
     sync_reader.AudioStream := nil;   <=======
     sync_reader.AudioStream.Free;     <======= 
     sync_reader.AudioStream := nil;   <=======
   end;

Original issue reported on code.google.com by [email protected] on 16 Dec 2014 at 9:37

"for in" code on mr_cddc avoid install on Delphi 7.

What steps will reproduce the problem?
1. Try to install the package in Delphi 7

What is the expected output? What do you see instead?
The package gets installed. An sintax error on mr_cddc.pas, line 623, in a "for 
in" code.

What version of the product are you using? On what operating system?
r1263. Windows XP.


Please provide any additional information below.
This single line prevents the install of the package on Delphi 7. Changing this 
to the good-old "for to" makes it compile and install again.

Here's a patch.

-------------------------------------
Index: mr_cddb.pas
===================================================================
--- mr_cddb.pas (revision 1263)
+++ mr_cddb.pas (working copy)
@@ -600,6 +600,7 @@
   CutBuffer: TStringList;
   posDelim: Integer;
   strEnum: string;
+  f:integer;
 begin
   result := 'windows-1252';
   CutBuffer := TStringList.create;
@@ -620,13 +621,17 @@
       end;
     end;
     // look for a line with charset
-    for strEnum in CutBuffer do
+    for f := 0 to CutBuffer.Count - 1 do
+    begin
+      StrEnum := CutBuffer[F];
+
       if (Pos(c_charset, strEnum) > 0) then
       begin
         Result := Copy(strEnum,
           Pos('=', strEnum) + 1,
           Length(strEnum));
       end;
+    end;
   finally
     FreeAndNil(CutBuffer);
   end;

Original issue reported on code.google.com by [email protected] on 14 Mar 2014 at 10:19

Unable to play 32bit wave file

Hi,

First of all thank you for great components. I'm trying to play 32bit wave file 
using your component. It fails with following exception
"First chance exception at $7C812FD3. Exception class EAuException with message 
'Failed to create DirectSound buffer88780032'. Process Project2.exe (3516)"
How could it be overcome? Thanks in advance.

Original issue reported on code.google.com by max.nedelchev on 21 Nov 2014 at 2:18

Attachments:

• SunrailSafetyMessage_Abbreviated.wav