Pure Pascal Mp3/Flac player

[Tomxe]

TXelAudio is a class which can load, save to and play WAV, MP3, AIFF, CAF, AU, FLAC, OGG VORBIS, XM, IT, S3M and MOD. It can also edit sound files (cut, fade in, fade out etc.).

It's available in OPM.

Code: Pascal  [Select][+][-]

1.   if not OpenDialog1.Execute then Exit;
2.  
3.   a := TXelAudio.Create;
4.   a.LoadFromFile(OpenDialog1.Filename);
5.   a.Cut(67.5); //seconds
6.   a.SaveToFile('output.wav');
7.   a.SaveToFile('output.mp3', 128); //second paramater is bitrate in kbit/s. From 112 to 320 in case of mp3
8.   a.Play;
9.   a.Free;

[alaa123456789]

TXelAudio is a class which can load, save to and play WAV, MP3, AIFF, CAF, AU, FLAC, OGG VORBIS, XM, IT, S3M and MOD. It can also edit sound files (cut, fade in, fade out etc.).

It's available in OPM.

Code: Pascal  [Select][+][-]

1.   if not OpenDialog1.Execute then Exit;
2.  
3.   a := TXelAudio.Create;
4.   a.LoadFromFile(OpenDialog1.Filename);
5.   a.Cut(67.5); //seconds
6.   a.SaveToFile('output.wav');
7.   a.SaveToFile('output.mp3', 128); //second paramater is bitrate in kbit/s. From 112 to 320 in case of mp3
8.   a.Play;
9.   a.Free;

didnt find it on opm

[cdbc]

Hi
Then "Use the source Luke"
Regards Benny

[wp]

It's available in OPM.

didnt find it on opm

It should be there - just looked for it. Search for "XelAudio".

[avra]

  a.SaveToFile('output.mp3', 128); //second paramater is bitrate in kbit/s. From 112 to 320 in case of mp3

Why imentioning 112 as a lower limit? What about 96, 64 and lower? FBitrate is an integer so these should be accepted as well.

[Tomxe]

Because 112-320 works pretty well. <112 has some issues that should be fixed in the future.
But then again- mp3s below 112 kbit/s cannot be high quality, no matter what encoder they come from.

[dtoffe]

Because 112-320 works pretty well. <112 has some issues that should be fixed in the future.
But then again- mp3s below 112 kbit/s cannot be high quality, no matter what encoder they come from.

Old phone lines limited audio to something like 4 khz or 8 khz, and the voices on the other side were understood. Sometimes you do not need music audio quality.

Daniel

[Tomxe]

XelAudio package has been updated in the OPM. It can now read more formats:

- MP3
- OGG Vorbis
- AAC
- AC3
- E-AC3
- AIFF
- AU
- CAF
- FLAC
- WAV

It can read audio tracks from:
- AVI
- MKV
- MP4/M4A