cherts / newac

New Audio Components (NewAC) are designed to help your Delphi programs perform different sound processing tasks.

Hello! My name is Mikhail Grigorev

I am a professional system administrator for Linux (Debian-like and RedHat-like) and Windows (2012/2016) and databases (MySQL, PostgreSQL, Clickhouse).

I have been working for over 20 years.

You can read articles on my blog and ask me questions by email

newac's Issues

Rio 10.3.2

Hello, Thanks for the code maintenance.
Installed libraries on 10.3.2 using the previous dpk; al is ok. Imported an XE project and the compile result is in an error "E2291 Missing implementation of interface method Istream.seek
Libwma1.pas

I'm not smart enough to correct the code, I apologize for this.

Thanks in advance

Unable to play AVI if the audio codec is different from ACM

When I try to play the AVI file with mp3 audio, then I get the exception " raise EAuException.Create('Error reading from AVI file: ' + IntToHex(res, 8));" in TAVIIn.ACMDecode. After that, the program hangs. The same thing happens if WAVEIn.WavType = wtACM
Players.zip

TASIOAudioIn getDeviceName returns only the first letter

I think the last line in the function should be Result := String(Devices[Number].name) instead of
Result := String(Devices[Number].name[0]);

Error on MP3 PlayBack

Experiencing a playback issue with the TMP3In control. Playback is choppy? Have installed the latest builds.

MP3 playback position with TrackBar

I have a Delphi application which plays mp3 files using MP3In and AudioOut. I show the progress on a TrackBar but as soon as the mp3 start playing the TrackBar jumps to about 20%. When the TrackBar reaches 100% the file hasn't finished playing.

I set the TrackBar maximum with the following code:

Bar1.Maximum :=MP3In1.TotalTime/(24*3600);

In the OnProgress event for AudioOut I have the following:

Bar1.Position := AudioOut1.TimeElapsed/(24*3600);

Any suggestions?

I've attached an image showing the TrackBar as soon as the play starts. It also shows the Time Left has dropped by 36 seconds.

Delphi XE8 support

Can anyone change the code for Delphi XE8, please ? I think it may only be a small fix in the inc-file :)

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

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

Embarcadero® Delphi 10.3 Version 26.0.36039.7899 - Libwma1.pas

Hi all

Installed sw as in subject, Package New Audio Components v 2.6.

Compiling raise some exceptions as follows

[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.Seek
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.SetSize
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.CopyTo
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.Commit
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.LockRegion
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.UnlockRegion
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method IStream.Stat
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method ISequentialStream.Read
[dcc32 Error] libwma1.pas(29): E2291 Missing implementation of interface method ISequentialStream.Write
[dcc32 Error] libwma1.pas(334): E2003 Undeclared identifier: 'e7'

Removed Packages and reinstalled again only to check if there someting wrong on my installation but exceptions rise again.

Thanks again and again for the help :)

Eugenio

Install problem

Hi.
I have installed k-lite codec pack but I can not generate ogg or mp3 files.
I have to record voice to then degrade to text. what would be the best option within the known open standards. Thank you.

Error on convert 16 to 8 bits with audioconverter

Test with 16b/2ch to 8b/mono, error on GetData because Input Length and Output length are differents so the line
FPosition := FInput.Position; // line 2147
can't be right.
You should remove line 2147 in ACS_Classes added by DJ VK
If you uncomment line 2146 in ACS_Classes and remove the line added, the data length is correct

My comment : you work is nice, good job, I discovered it yesterday and it will be a very usefull toolset.

Thanks a lot

Olivier

"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

installation issue

this component is conflicted in installation with wave audio component so i have to uninstall wave audio component to install this one

Error
Can't load package C:\Users\Public\Documents\Embarcadero\Studio\17.0\Bpl\NewAC_XE10.bpl.
Component TAudioMixer can't be registered by package newac_xe10.bpl because it has already been registered by package wa2007.bpl.
Do you want to attempt to load this package the next time a project is loaded?

Delphi 11.0 - Installation OK using Rio dpk but not compile in an application

Hi

As in subject, on Delphi 11.0 the library itself install; opening an old project from D10.4 everything ok but doesn't compile because library (ACS_CLASSES).

It seems that the issue is in fastmove

Thanks in advance

have a nice day to all