Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
How to play an mp3 file from a database
35 views
Skip to first unread message
Alexander Becker
Nov 28, 2011, 5:13:06 PM11/28/11
to sdl-...@perl.org
Dear all!
I just tried the example code of the SDL Manual where you play some music.
By the SDL manual, I refer to the one that is hidden at the bottom of the
sdl.perl.org page, so that you really have to search for it in order to find
it - and even then you have to get along with an ugly github interface.
The good news is, that it worked perfectly here on Win 7 x64. Thank you!
The bad news is, that I don't have ogg or wav files, but mp3 files. And I
have them in a database (please don't ask why and please don't propose to
store them as files).
So, in general: Is there a way to play mp3 files?
And in particular: is there a way to play mp3 files that are in a variable?
Or do I have to work with temporary files?
Here is what I got so far:
[code]
#!perl
use strict;
use warnings;
use SDL;
use Carp;
use SDL::Audio;
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
SDL::init(SDL_INIT_AUDIO);
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 )
{
Carp::croak "Cannot open audio: ".SDL::get_error();
}
my $sound_file = 'data/ghostngoblins.mp3';
my $sample = SDL::Mixer::Samples::load_MUS($sound_file);
unless( $sample)
{
Carp::croak "Cannot load file [$sound_file]: ".SDL::get_error();
}
my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample, 0 );
sleep(60);
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
[/code]
However, this code dies with an error: "Use of inherited AUTOLOAD for
non-method SDL::Mixer::Samples::load_MUS() is deprecated at
yadayada\play_sdl.pl line 20.".
The above code works fine when using an ogg file (using load_MUS()) or an
wav file (load_WAV()).
Please help :)
Best regards,
Alex
I just tried the example code of the SDL Manual where you play some music.
By the SDL manual, I refer to the one that is hidden at the bottom of the
sdl.perl.org page, so that you really have to search for it in order to find
it - and even then you have to get along with an ugly github interface.
The good news is, that it worked perfectly here on Win 7 x64. Thank you!
The bad news is, that I don't have ogg or wav files, but mp3 files. And I
have them in a database (please don't ask why and please don't propose to
store them as files).
So, in general: Is there a way to play mp3 files?
And in particular: is there a way to play mp3 files that are in a variable?
Or do I have to work with temporary files?
Here is what I got so far:
[code]
#!perl
use strict;
use warnings;
use SDL;
use Carp;
use SDL::Audio;
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
SDL::init(SDL_INIT_AUDIO);
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 )
{
Carp::croak "Cannot open audio: ".SDL::get_error();
}
my $sound_file = 'data/ghostngoblins.mp3';
my $sample = SDL::Mixer::Samples::load_MUS($sound_file);
unless( $sample)
{
Carp::croak "Cannot load file [$sound_file]: ".SDL::get_error();
}
my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample, 0 );
sleep(60);
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
[/code]
However, this code dies with an error: "Use of inherited AUTOLOAD for
non-method SDL::Mixer::Samples::load_MUS() is deprecated at
yadayada\play_sdl.pl line 20.".
The above code works fine when using an ogg file (using load_MUS()) or an
wav file (load_WAV()).
Please help :)
Best regards,
Alex
breno
Nov 29, 2011, 12:34:20 AM11/29/11
to Alexander Becker, sdl-...@perl.org
On Mon, Nov 28, 2011 at 8:13 PM, Alexander Becker
<Alexand...@gmx.net> wrote:
> Dear all!
>
Hi there!
> I just tried the example code of the SDL Manual where you play some music.
> By the SDL manual, I refer to the one that is hidden at the bottom of the
> sdl.perl.org page, so that you really have to search for it in order to find
> it - and even then you have to get along with an ugly github interface.
>
There's a new project website under way, but we're missing people to
work in it. Please join #sdl in irc.perl.org if you want to help us
get it right :)
> So, in general: Is there a way to play mp3 files?
Yup.
If your libsdl was compiled with mp3 support, all you have to do
(iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
flags when you call SDL::Mixer::init():
SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
then use load_MUS() and play_music() from SDL::Mixer::Music to play
mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
to play mp3 effects (yes, the function is named load_WAV() but plays
different formats too if they're available).
The documentation in SDL::Mixer, SDL::Mixer::Music and
SDL::Mixer::Samples should be helpful, as some of the test files
(t/mixer_music.t comes to mind).
> And in particular: is there a way to play mp3 files that are in a variable?
> Or do I have to work with temporary files?
>
Not sure. I *think* SDL::Mixer::quick_load_WAV( $buffer ) might do the
right thing. You'll have to test it though.
Cheers,
breno
<Alexand...@gmx.net> wrote:
> Dear all!
>
Hi there!
> I just tried the example code of the SDL Manual where you play some music.
> By the SDL manual, I refer to the one that is hidden at the bottom of the
> sdl.perl.org page, so that you really have to search for it in order to find
> it - and even then you have to get along with an ugly github interface.
>
work in it. Please join #sdl in irc.perl.org if you want to help us
get it right :)
> So, in general: Is there a way to play mp3 files?
If your libsdl was compiled with mp3 support, all you have to do
(iirc) is set the MIX_INIT_MP3 (for effects) and MUS_MP3 (for audio)
flags when you call SDL::Mixer::init():
SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
then use load_MUS() and play_music() from SDL::Mixer::Music to play
mp3 files as background music, or load_WAV() from SDL::Mixer::Samples
to play mp3 effects (yes, the function is named load_WAV() but plays
different formats too if they're available).
The documentation in SDL::Mixer, SDL::Mixer::Music and
SDL::Mixer::Samples should be helpful, as some of the test files
(t/mixer_music.t comes to mind).
> And in particular: is there a way to play mp3 files that are in a variable?
> Or do I have to work with temporary files?
>
right thing. You'll have to test it though.
Cheers,
breno
Alexander Becker
Nov 29, 2011, 2:37:06 PM11/29/11
to breno, sdl-...@perl.org
Hi breno,
thank you for the quick response. It helped.
I had a look into mixer_samples.t and line 106 states, that quick_load_WAV
is not (yet? Who do I have to bribe with what to get it?) implemented.
Here is a working piece of code using temporary files. Of course, you need a
database containing audio files.
Best regards,
Alex
[code]
#!perl
use strict;
use warnings;
use utf8;
use DBI;
use SQL::Abstract::Limit;
use File::Temp;
use SDL;
# -- write audio buffer to temp file
my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
$fh->unlink_on_destroy( 1 );
print $fh $buffer;
my $fname = $fh->filename;
# close the handle or the temfile will have some sort of lock on it and
cannot be read
$fh->close();
my $background_music = SDL::Mixer::Music::load_MUS( $fname );
unless( $background_music ) {
Carp::croak "Cannot load music file [buffer from DB]: " .
SDL::get_error();
}
SDL::Mixer::Music::play_music( $background_music,0 );
sleep(6);
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
sub get_audio_buffer {
my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
my $table = 'audio_files';
my @fields = (qw/audio/);
my %where = (
id => 2,
);
my @order = ();
my $limit = 1;
my $offset = 0;
my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where, \@order,
$limit, $offset );
my $database = 'database_name';
my $db_host = 'your_host';
my $db_port = '3306';
my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
my $username = 'username';
my $password = 'password';
my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
connect to DB: ' . DBI->errstr());
my $sth = $dbh->prepare( $stmt );
$sth->execute( @bind );
my ($buffer) = $sth->fetchrow_array();
return $buffer;
} # /get_audio_buffer
[/code]
-----Ursprüngliche Nachricht-----
Von: breno [mailto:oaini...@gmail.com]
Gesendet: Dienstag, 29. November 2011 06:34
An: Alexander Becker
Cc: sdl-...@perl.org
Betreff: Re: How to play an mp3 file from a database
-----
eMail ist virenfrei.
Von AVG überprüft - www.avg.de
Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum: 29.11.2011
thank you for the quick response. It helped.
I had a look into mixer_samples.t and line 106 states, that quick_load_WAV
is not (yet? Who do I have to bribe with what to get it?) implemented.
Here is a working piece of code using temporary files. Of course, you need a
database containing audio files.
Best regards,
Alex
[code]
#!perl
use strict;
use warnings;
use DBI;
use SQL::Abstract::Limit;
use File::Temp;
use SDL;
use SDL::Audio;
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
SDL::init(SDL_INIT_AUDIO);
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
SDL::init(SDL_INIT_AUDIO);
SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
Carp::croak "Cannot open audio: ".SDL::get_error();
}
my $buffer = get_audio_buffer();
Carp::croak "Cannot open audio: ".SDL::get_error();
}
# -- write audio buffer to temp file
my $fh = File::Temp->new( UNLINK => 1, SUFFIX => '.mp3' );
$fh->unlink_on_destroy( 1 );
print $fh $buffer;
my $fname = $fh->filename;
# close the handle or the temfile will have some sort of lock on it and
cannot be read
$fh->close();
my $background_music = SDL::Mixer::Music::load_MUS( $fname );
unless( $background_music ) {
Carp::croak "Cannot load music file [buffer from DB]: " .
SDL::get_error();
}
SDL::Mixer::Music::play_music( $background_music,0 );
sleep(6);
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
my $table = 'audio_files';
my @fields = (qw/audio/);
my %where = (
id => 2,
);
my @order = ();
my $limit = 1;
my $offset = 0;
my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where, \@order,
$limit, $offset );
my $database = 'database_name';
my $db_host = 'your_host';
my $db_port = '3306';
my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
my $username = 'username';
my $password = 'password';
my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
connect to DB: ' . DBI->errstr());
my $sth = $dbh->prepare( $stmt );
$sth->execute( @bind );
my ($buffer) = $sth->fetchrow_array();
return $buffer;
} # /get_audio_buffer
[/code]
-----Ursprüngliche Nachricht-----
Von: breno [mailto:oaini...@gmail.com]
Gesendet: Dienstag, 29. November 2011 06:34
An: Alexander Becker
Cc: sdl-...@perl.org
Betreff: Re: How to play an mp3 file from a database
eMail ist virenfrei.
Von AVG überprüft - www.avg.de
Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum: 29.11.2011
Tobias Leich
Nov 30, 2011, 7:18:08 AM11/30/11
to Alexander Becker, breno, sdl-...@perl.org
Hi, can you please check what version of libSDL_mixer do you have installed?
http://sdl.perl.org/SDL-Mixer.html#linked_version
In case you have 1.2.7 or better we can add support for RWOps objects.
So you dont need temp files.
Cheers, FROGGS
http://sdl.perl.org/SDL-Mixer.html#linked_version
In case you have 1.2.7 or better we can add support for RWOps objects.
So you dont need temp files.
Cheers, FROGGS
Alexander Becker
Nov 30, 2011, 5:09:42 PM11/30/11
to Tobias Leich, breno, sdl-...@perl.org
Hi!
The example code in your link gives me version 1.2.11 on Win 7 x64 with
strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.
HTH,
Alex
[code]
use SDL::Mixer;
use SDL::Version;
my $version = SDL::Mixer::linked_version();
printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
prints "1.2.11" for me
[/code]
-----Ursprüngliche Nachricht-----
Von: Tobias Leich [mailto:em...@froggs.de]
Gesendet: Mittwoch, 30. November 2011 13:18
An: Alexander Becker
Cc: 'breno'; sdl-...@perl.org
Version: 10.0.1411 / Virendatenbank: 2102/4048 - Ausgabedatum: 30.11.2011
The example code in your link gives me version 1.2.11 on Win 7 x64 with
strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.
HTH,
Alex
[code]
use SDL::Mixer;
use SDL::Version;
my $version = SDL::Mixer::linked_version();
printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
prints "1.2.11" for me
[/code]
-----Ursprüngliche Nachricht-----
Von: Tobias Leich [mailto:em...@froggs.de]
Gesendet: Mittwoch, 30. November 2011 13:18
An: Alexander Becker
Cc: 'breno'; sdl-...@perl.org
Tobias Leich
Dec 1, 2011, 5:25:02 AM12/1/11
to Alexander Becker, sdl-...@perl.org
Great!
So I will add RWOps support today, I'll drop you a note when its done.
Cheers, FROGGS
So I will add RWOps support today, I'll drop you a note when its done.
Cheers, FROGGS
Kartik Thakore
Dec 1, 2011, 5:33:06 AM12/1/11
to Tobias Leich, Alexander Becker, sdl-...@perl.org
Thanks froggs.
Sent from my iPhone
On 2011-12-01, at 5:25 AM, Tobias Leich <em...@froggs.de> wrote:
> Great!
>
> So I will add RWOps support today, I'll drop you a note when its done.
>
> Cheers, FROGGS
>
> Am 30.11.2011 23:09, schrieb Alexander Becker:
Sent from my iPhone
On 2011-12-01, at 5:25 AM, Tobias Leich <em...@froggs.de> wrote:
> Great!
>
> So I will add RWOps support today, I'll drop you a note when its done.
>
> Cheers, FROGGS
>
> Am 30.11.2011 23:09, schrieb Alexander Becker:
Tobias Leich
Dec 1, 2011, 4:34:49 PM12/1/11
to Alexander Becker, sdl-...@perl.org, breno
Hi, this feature will be officially released, yes. But I can't tell if
this will be already within december.
Cheers.
Am 01.12.2011 22:29, schrieb Alexander Becker:
>
> Wohoo! That's really great! Here is my current (OMG: it's SDL + Tk)
> proof-of-concept-script.
>
> It plays a file via start and stop buttons. In case anyone has
> suggestions, please don't hesitate to drop me an email.
>
> -text => 'play',
>
> -command => sub{
>
> my $buffer = get_audio_buffer();
>
> my $rwops = SDL::RWOps->new_const_mem(
> $buffer );
>
> my $background_music =
> SDL::Mixer::Music::load_MUS_RW( $rwops );
>
> },
>
> )->pack();
>
>
>
> $mw->Button(
>
> -text => 'stop',
>
> -command => sub{
>
> SDL::Mixer::Music::halt_music();
>
> },
>
> )->pack();
>
>
>
> $mw->MainLoop();
>
> my $db_host = '127.0.0.1';
>
> my $password = 'test';
> execinfo.h, however, build, build test and build install runs fine.
>
>
>
> [snip]
>
> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>perl Build.PL
>
> *************************** !!!WARNING!!! ********************************
>
> This Release breaks back compatibility support with versions 2.4x and
> below
>
> **************************************************************************
>
> Using 'My::Builder::Windows' class ...
>
> Detecting available libraries ...
>
> [Alien::SDL] Testing header(s): SDL.h
>
> [Alien::SDL] Testing header(s): SDL_mixer.h
>
> [Alien::SDL] Testing header(s): SDL_imageFilter.h
>
> [Alien::SDL] Testing header(s): SDL_image.h
>
> [Alien::SDL] Testing header(s): SDL_ttf.h
>
> [Alien::SDL] Testing header(s): SDL_framerate.h
>
> [Alien::SDL] Testing header(s): SDL_gfxBlitFunc.h
>
> [Alien::SDL] Testing header(s): SDL_gfxPrimitives.h
>
> [Alien::SDL] Testing header(s): SDL_rotozoom.h
>
> [Alien::SDL] Testing header(s): SDL_Pango.h
>
> Writing config_data ...
>
> Saving some info to 'notes' ...
>
> [Alien::SDL] Testing header(s): execinfo.h, signal.h NOK: (error:
> execinfo.h: No
>
> such file or directory)
>
> Can't find dist packages without a MANIFEST file
>
> Run 'Build manifest' to generate one
>
>
>
> WARNING: Possible missing or corrupt 'MANIFEST' file.
>
> Nothing to enter for 'provides' field in metafile.
>
> Created MYMETA.yml and MYMETA.json
>
> Creating new 'Build' script for 'SDL' version '2.535_01'
>
>
>
> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>
>
> [/snip]
>
>
>
> Will this be in an official release of SDL? Because this would be a
> really nice feature, that could be advertised, e.g. via blogs entries
> etc.. I could write a german one.
>
>
>
> Best regards & thanks a lot,
>
> Alex
>
>
>
> *Von:*Tobias Leich [mailto:em...@froggs.de]
> *Gesendet:* Donnerstag, 1. Dezember 2011 18:37
> *An:* Alexander Becker
> *Betreff:* Re: How to play an mp3 file from a database
>
>
>
> Hi Alex,
>
> You can checkout the c-sdl-rwops branch at github or download the
> zipfile if you are not experienced with git by using this link:
>
> https://github.com/PerlGameDev/SDL/zipball/c-sdl-rwops
>
> Usage:
>
> my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );
>
> |load_MUS_RW| does the same like |load_MUS| except that it accepts an
> SDL::RWOps <http://search.cpan.org/perldoc?SDL%3A%3ARWOps>-object
> rather than a filename.
>
> Example for loading music from a variable:
>
> use SDL;
> use SDL::Mixer;
> use SDL::Mixer::Music;
> use SDL::RWOps;
>
> [...]
>
> my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
> my $music = SDL::Mixer::Music::load_MUS( $rwops );
>
> Cheers
> Cc: sdl-...@perl.org <mailto:sdl-...@perl.org>
> Von AVG überprüft - www.avg.de <http://www.avg.de>
>
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de <http://www.avg.de>
this will be already within december.
Cheers.
Am 01.12.2011 22:29, schrieb Alexander Becker:
>
> Wohoo! That's really great! Here is my current (OMG: it's SDL + Tk)
> proof-of-concept-script.
>
> It plays a file via start and stop buttons. In case anyone has
> suggestions, please don't hesitate to drop me an email.
>
>
>
> [code]
>
> #!perl
>
>
>
> use strict;
>
> use warnings;
>
> use utf8;
>
> use Tk;
>
>
> [code]
>
> #!perl
>
>
>
> use strict;
>
> use warnings;
>
> use utf8;
>
>
> use DBI;
>
> use SQL::Abstract::Limit;
>
> use DBI;
>
> use SQL::Abstract::Limit;
>
> use SDL;
>
> use SDL::Audio;
>
> use SDL::Mixer;
>
> use SDL::Mixer::Samples;
>
> use SDL::Mixer::Channels;
>
> use SDL::Mixer::Music;
>
> use SDL::RWOps;
>
> use SDL::Audio;
>
> use SDL::Mixer;
>
> use SDL::Mixer::Samples;
>
> use SDL::Mixer::Channels;
>
> use SDL::Mixer::Music;
>
>
> SDL::init(SDL_INIT_AUDIO);
>
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
>
>
>
> my $mw = tkinit();
> SDL::init(SDL_INIT_AUDIO);
>
> SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
>
>
>
>
>
>
> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>
> Carp::croak "Cannot open audio: ".SDL::get_error();
>
> }
>
>
>
> $mw->Button(
>
>
> unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
>
> Carp::croak "Cannot open audio: ".SDL::get_error();
>
> }
>
>
>
>
> -text => 'play',
>
> -command => sub{
>
> my $buffer = get_audio_buffer();
>
> my $rwops = SDL::RWOps->new_const_mem(
> $buffer );
>
> my $background_music =
> SDL::Mixer::Music::load_MUS_RW( $rwops );
>
>
>
> unless( $background_music ) {
>
> Carp::croak "Cannot
> load music file [buffer from DB]: " . SDL::get_error();
>
> }
>
>
>
> SDL::Mixer::Music::play_music(
> $background_music, 20 );
>
>
> unless( $background_music ) {
>
> Carp::croak "Cannot
> load music file [buffer from DB]: " . SDL::get_error();
>
> }
>
>
>
> SDL::Mixer::Music::play_music(
>
> },
>
> )->pack();
>
>
>
> $mw->Button(
>
> -text => 'stop',
>
> -command => sub{
>
> SDL::Mixer::Music::halt_music();
>
> },
>
> )->pack();
>
>
>
> $mw->MainLoop();
>
>
>
>
>
>
>
> sub get_audio_buffer {
>
> my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
>
>
>
> my $table = 'words';
>
>
>
>
>
>
> sub get_audio_buffer {
>
> my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
>
>
>
>
> my @fields = (qw/audio/);
>
> my %where = (
>
> id => 2,
>
> );
>
> my @order = ();
>
> my $limit = 1;
>
> my $offset = 0;
>
> my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
> \@order, $limit, $offset );
>
> my $database = 'test';
> my @fields = (qw/audio/);
>
> my %where = (
>
> id => 2,
>
> );
>
> my @order = ();
>
> my $limit = 1;
>
> my $offset = 0;
>
> my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where,
> \@order, $limit, $offset );
>
>
> my $db_host = '127.0.0.1';
>
> my $db_port = '3306';
>
> my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>
> my $username = 'test';
> my $db_port = '3306';
>
> my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
>
>
> my $password = 'test';
>
> my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
> connect to DB: ' . DBI->errstr());
>
> my $sth = $dbh->prepare( $stmt );
>
> $sth->execute( @bind );
>
>
>
> my ($buffer) = $sth->fetchrow_array();
>
>
>
> return $buffer;
>
> } # /get_audio_buffer
>
> [/code]
>
>
>
> Here is the output of "perl Build.PL". There is an error for :
> my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
> connect to DB: ' . DBI->errstr());
>
> my $sth = $dbh->prepare( $stmt );
>
> $sth->execute( @bind );
>
>
>
> my ($buffer) = $sth->fetchrow_array();
>
>
>
> return $buffer;
>
> } # /get_audio_buffer
>
> [/code]
>
>
>
> execinfo.h, however, build, build test and build install runs fine.
>
>
>
> [snip]
>
> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>perl Build.PL
>
> *************************** !!!WARNING!!! ********************************
>
> This Release breaks back compatibility support with versions 2.4x and
> below
>
> **************************************************************************
>
> Using 'My::Builder::Windows' class ...
>
> Detecting available libraries ...
>
> [Alien::SDL] Testing header(s): SDL.h
>
> [Alien::SDL] Testing header(s): SDL_mixer.h
>
> [Alien::SDL] Testing header(s): SDL_imageFilter.h
>
> [Alien::SDL] Testing header(s): SDL_image.h
>
> [Alien::SDL] Testing header(s): SDL_ttf.h
>
> [Alien::SDL] Testing header(s): SDL_framerate.h
>
> [Alien::SDL] Testing header(s): SDL_gfxBlitFunc.h
>
> [Alien::SDL] Testing header(s): SDL_gfxPrimitives.h
>
> [Alien::SDL] Testing header(s): SDL_rotozoom.h
>
> [Alien::SDL] Testing header(s): SDL_Pango.h
>
> Writing config_data ...
>
> Saving some info to 'notes' ...
>
> [Alien::SDL] Testing header(s): execinfo.h, signal.h NOK: (error:
> execinfo.h: No
>
> such file or directory)
>
> Can't find dist packages without a MANIFEST file
>
> Run 'Build manifest' to generate one
>
>
>
> WARNING: Possible missing or corrupt 'MANIFEST' file.
>
> Nothing to enter for 'provides' field in metafile.
>
> Created MYMETA.yml and MYMETA.json
>
> Creating new 'Build' script for 'SDL' version '2.535_01'
>
>
>
> C:\zwischen\cpan\PerlGameDev-SDL-44c341f>
>
> [/snip]
>
>
>
> Will this be in an official release of SDL? Because this would be a
> really nice feature, that could be advertised, e.g. via blogs entries
> etc.. I could write a german one.
>
>
>
> Best regards & thanks a lot,
>
> Alex
>
>
>
> *Von:*Tobias Leich [mailto:em...@froggs.de]
> *Gesendet:* Donnerstag, 1. Dezember 2011 18:37
> *An:* Alexander Becker
> *Betreff:* Re: How to play an mp3 file from a database
>
>
>
> Hi Alex,
>
> You can checkout the c-sdl-rwops branch at github or download the
> zipfile if you are not experienced with git by using this link:
>
> https://github.com/PerlGameDev/SDL/zipball/c-sdl-rwops
>
> Usage:
>
> my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );
>
> |load_MUS_RW| does the same like |load_MUS| except that it accepts an
> SDL::RWOps <http://search.cpan.org/perldoc?SDL%3A%3ARWOps>-object
> rather than a filename.
>
> Example for loading music from a variable:
>
> use SDL;
> use SDL::Mixer;
> use SDL::Mixer::Music;
> use SDL::RWOps;
>
> [...]
>
> my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
> my $music = SDL::Mixer::Music::load_MUS( $rwops );
>
> Cheers
>
> Am 30.11.2011 23:09, schrieb Alexander Becker:
>
> Am 30.11.2011 23:09, schrieb Alexander Becker:
>
> Hi!
>
> The example code in your link gives me version 1.2.11 on Win 7 x64 with
> strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.
>
> HTH,
> Alex
>
> [code]
> use SDL::Mixer;
> use SDL::Version;
>
> my $version = SDL::Mixer::linked_version();
>
> printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
> prints "1.2.11" for me
> [/code]
>
> -----Ursprüngliche Nachricht-----
> Von: Tobias Leich [mailto:em...@froggs.de]
> Gesendet: Mittwoch, 30. November 2011 13:18
> An: Alexander Becker
> Cc: 'breno'; sdl-...@perl.org <mailto:sdl-...@perl.org>
>
> The example code in your link gives me version 1.2.11 on Win 7 x64 with
> strawberry perl 5.12.2 built for MSWin32-x64-multi-thread.
>
> HTH,
> Alex
>
> [code]
> use SDL::Mixer;
> use SDL::Version;
>
> my $version = SDL::Mixer::linked_version();
>
> printf("%d.%d.%d\n", $version->major, $version->minor, $version->patch); #
> prints "1.2.11" for me
> [/code]
>
> -----Ursprüngliche Nachricht-----
> Von: Tobias Leich [mailto:em...@froggs.de]
> Gesendet: Mittwoch, 30. November 2011 13:18
> An: Alexander Becker
>
> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum:
>
> 29.11.2011
>
>
>
>
> -----
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de <http://www.avg.de>
> Version: 10.0.1411 / Virendatenbank: 2092/4046 - Ausgabedatum:
>
> 29.11.2011
>
>
>
>
> -----
> eMail ist virenfrei.
> Version: 10.0.1411 / Virendatenbank: 2102/4048 - Ausgabedatum: 30.11.2011
>
>
>
>
> ------------------------------------------------------------------------
>
>
>
>
>
> eMail ist virenfrei.
> Von AVG überprüft - www.avg.de <http://www.avg.de>
Alexander Becker
Dec 1, 2011, 4:29:05 PM12/1/11
to Tobias Leich, sdl-...@perl.org, breno
Wohoo! That’s really great! Here is my current (OMG: it’s SDL + Tk)
proof-of-concept-script.
It plays a file via start and stop buttons. In case anyone has suggestions,
please don’t hesitate to drop me an email.
proof-of-concept-script.
It plays a file via start and stop buttons. In case anyone has suggestions,
please don’t hesitate to drop me an email.
[code]
#!perl
use strict;
use warnings;
use utf8;
use Tk;
#!perl
use strict;
use warnings;
use utf8;
use DBI;
use SQL::Abstract::Limit;
use SDL;
use SDL::Audio;
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
use SDL::RWOps;
use SDL::Audio;
use SDL::Mixer;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
use SDL::Mixer::Music;
SDL::init(SDL_INIT_AUDIO);
SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
Carp::croak "Cannot open audio: ".SDL::get_error();
}
$mw->Button(
-text => 'play',
-command => sub{
my $buffer = get_audio_buffer();
my $rwops = SDL::RWOps->new_const_mem(
$buffer );
my $background_music =
-text => 'play',
-command => sub{
my $buffer = get_audio_buffer();
my $rwops = SDL::RWOps->new_const_mem(
$buffer );
SDL::Mixer::Music::load_MUS_RW( $rwops );
unless( $background_music ) {
Carp::croak "Cannot load
music file [buffer from DB]: " . SDL::get_error();
}
SDL::Mixer::Music::play_music(
$background_music, 20 );
},
)->pack();
$mw->Button(
-text => 'stop',
-command => sub{
SDL::Mixer::Music::halt_music();
},
)->pack();
$mw->MainLoop();
},
)->pack();
$mw->Button(
-text => 'stop',
-command => sub{
SDL::Mixer::Music::halt_music();
},
)->pack();
$mw->MainLoop();
sub get_audio_buffer {
my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
my $table = 'words';
my $sql = SQL::Abstract::Limit->new( limit_dialect => 'LimitXY' );;
my @fields = (qw/audio/);
my %where = (
id => 2,
);
my @order = ();
my $limit = 1;
my $offset = 0;
my ( $stmt, @bind ) = $sql->select( $table, \@fields, \%where, \@order,
$limit, $offset );
my $database = 'test';
my $db_host = '127.0.0.1';
my $db_host = '127.0.0.1';
my $db_port = '3306';
my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
my $dsn = "DBI:mysql:database=$database;host=$db_host;port=$db_port";
my $username = 'test';
my $password = 'test';
my $password = 'test';
my $dbh = DBI->connect($dsn, $username, $password) or die('Cannot
connect to DB: ' . DBI->errstr());
my $sth = $dbh->prepare( $stmt );
$sth->execute( @bind );
my ($buffer) = $sth->fetchrow_array();
return $buffer;
} # /get_audio_buffer
[/code]
connect to DB: ' . DBI->errstr());
my $sth = $dbh->prepare( $stmt );
$sth->execute( @bind );
my ($buffer) = $sth->fetchrow_array();
return $buffer;
} # /get_audio_buffer
[/code]
Von: Tobias Leich [mailto:em...@froggs.de]
Gesendet: Donnerstag, 1. Dezember 2011 18:37
An: Alexander Becker
Betreff: Re: How to play an mp3 file from a database
Gesendet: Donnerstag, 1. Dezember 2011 18:37
An: Alexander Becker
Betreff: Re: How to play an mp3 file from a database
Hi Alex,
You can checkout the c-sdl-rwops branch at github or download the zipfile if
you are not experienced with git by using this link:
https://github.com/PerlGameDev/SDL/zipball/c-sdl-rwops
Usage:
my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );
load_MUS_RW does the same like load_MUS except that it accepts an SDL::RWOps
<http://search.cpan.org/perldoc?SDL%3A%3ARWOps> -object rather than a
filename.
Example for loading music from a variable:
use SDL;
use SDL::Mixer;
You can checkout the c-sdl-rwops branch at github or download the zipfile if
you are not experienced with git by using this link:
https://github.com/PerlGameDev/SDL/zipball/c-sdl-rwops
Usage:
my $music = SDL::Mixer::Music::load_MUS_RW( $rwops );
load_MUS_RW does the same like load_MUS except that it accepts an SDL::RWOps
<http://search.cpan.org/perldoc?SDL%3A%3ARWOps> -object rather than a
filename.
Example for loading music from a variable:
use SDL;
use SDL::Mixer::Music;
use SDL::RWOps;
[...]
my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
my $music = SDL::Mixer::Music::load_MUS( $rwops );
Cheers
Am 30.11.2011 23:09, schrieb Alexander Becker:
use SDL::RWOps;
[...]
my $rwops = SDL::RWOps->new_const_mem( $scalar_holding_music );
my $music = SDL::Mixer::Music::load_MUS( $rwops );
Cheers
Am 30.11.2011 23:09, schrieb Alexander Becker:
Alex
Apr 22, 2012, 12:35:11 PM4/22/12
to breno, sdl-...@perl.org
Dear all!
It took me quite some time, but I'm moving forward.
Here are some screens from my vocabulary trainer:
https://picasaweb.google.com/104129024313554475104/Vokabeltrainer?authuser=0
&authkey=Gv1sRgCKLyn6SSwIvCgwE&feat=directlink
Now I want to play a vocable audio file (that is of course, stored in a
database :)). I can't use SDL::Mixer::Music for that, because there is
already some background music playing. AFAIK I need to use
SDL::Mixer::Samples.
I tried it, but there occurred an error when using mp3 files: "Cannot load
music file [music/terminal.mp3]: Unrecognized sound file type at
play_effect.pl line 34"
Here is the script:
use SDL;
use SDL::Event;
use SDL::Events;
use SDLx::App;
use SDLx::Controller;
use SDL::Mixer;
use SDL::Mixer::Music;
use SDL::RWOps;
title => 'play mp3 effect',
exit_on_quit => 1,
#my $file = 'music/br_crossing_bell_dop.r.wav';
#my $file = 'music/Windows Logon Sound.wav';
my $sample = SDL::Mixer::Samples::load_WAV( $file );
unless( $sample ) {
Carp::croak "Cannot load music file [$file]: " . SDL::get_error();
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
[/code]
There also occurred some other errors using .wav files:
- Cannot load music file [music/br_crossing_bell_dop.r.wav]: Complex WAVE
files not supported at play_effect.pl line 34
- Cannot load music file [music/Windows Logon Sound.wav]: MPEG Layer 3 data
not supported play_effect.pl line 34
But, I only want to play mp3 files.
Maybe you can hint me at the solution for this problem? How can I play an
mp3 file once, e.g. on a button click event?
Best regards,
Alex
-----Ursprüngliche Nachricht-----
Von: breno [mailto:oaini...@gmail.com]
Gesendet: Dienstag, 29. November 2011 06:34
An: Alexander Becker
Cc: sdl-...@perl.org
Betreff: Re: How to play an mp3 file from a database
It took me quite some time, but I'm moving forward.
Here are some screens from my vocabulary trainer:
https://picasaweb.google.com/104129024313554475104/Vokabeltrainer?authuser=0
&authkey=Gv1sRgCKLyn6SSwIvCgwE&feat=directlink
Now I want to play a vocable audio file (that is of course, stored in a
database :)). I can't use SDL::Mixer::Music for that, because there is
already some background music playing. AFAIK I need to use
SDL::Mixer::Samples.
I tried it, but there occurred an error when using mp3 files: "Cannot load
music file [music/terminal.mp3]: Unrecognized sound file type at
play_effect.pl line 34"
Here is the script:
[code]
#!perl
use strict;
use warnings;
use utf8;
#!perl
use strict;
use warnings;
use SDL;
use SDL::Event;
use SDL::Events;
use SDLx::App;
use SDLx::Controller;
use SDL::Mixer;
use SDL::Mixer::Music;
use SDL::RWOps;
use SDL::Mixer::Samples;
use SDL::Mixer::Channels;
SDL::init(SDL_INIT_AUDIO);
use SDL::Mixer::Channels;
SDL::Mixer::init( MIX_INIT_MP3 | MUS_MP3 );
my $app = SDLx::App->new(
title => 'play mp3 effect',
exit_on_quit => 1,
);
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
Carp::croak "Cannot open audio: ".SDL::get_error();
}
my $file = 'music/terminal.mp3';
unless( SDL::Mixer::open_audio( 44100, AUDIO_S16SYS, 2, 4096 ) == 0 ) {
Carp::croak "Cannot open audio: ".SDL::get_error();
}
#my $file = 'music/br_crossing_bell_dop.r.wav';
#my $file = 'music/Windows Logon Sound.wav';
my $sample = SDL::Mixer::Samples::load_WAV( $file );
unless( $sample ) {
Carp::croak "Cannot load music file [$file]: " . SDL::get_error();
}
my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample, 0 );
$app->run();
my $playing_channel = SDL::Mixer::Channels::play_channel( -1, $sample, 0 );
SDL::Mixer::Music::halt_music();
SDL::Mixer::close_audio;
exit(0);
[/code]
- Cannot load music file [music/br_crossing_bell_dop.r.wav]: Complex WAVE
files not supported at play_effect.pl line 34
- Cannot load music file [music/Windows Logon Sound.wav]: MPEG Layer 3 data
not supported play_effect.pl line 34
But, I only want to play mp3 files.
Maybe you can hint me at the solution for this problem? How can I play an
mp3 file once, e.g. on a button click event?
Best regards,
Alex
-----Ursprüngliche Nachricht-----
Von: breno [mailto:oaini...@gmail.com]
Gesendet: Dienstag, 29. November 2011 06:34
An: Alexander Becker
Cc: sdl-...@perl.org
Betreff: Re: How to play an mp3 file from a database
Tobias Leich
Apr 22, 2012, 1:31:49 PM4/22/12
to sdl-...@perl.org
Hi Alex,
At first, you are on windows and used the prebuklt libSDL binaries
shipped with Alien::SDL?
If yes, mp3 should be supported, but only files without VBR. So please
try a few mp3 files and maybe check how it is encoded.
Then, to play an mp3 file from a database, do somethind like:
use DBI;
use SDL;
use SDL::Mixer;
use SDL::Mixer::Channels;
use SDL::Mixer::Samples;
use SDL::RWOps;
$dbh->prepare("SELECT music FROM ...");
$sth = $dbh->execute();
if( $row = $sth->fetchrow_hashref ) {
$rwops = SDL::RWOps->new_const_mem( $row->{music} );
$chunk = SDL::Mixer::Samples::load_WAV_RW( $rwops, 0 );
SDL::Mixer::Channels::play_channel( -1, $chunk, 1 );
}
Cheers, FROGGS
At first, you are on windows and used the prebuklt libSDL binaries
shipped with Alien::SDL?
If yes, mp3 should be supported, but only files without VBR. So please
try a few mp3 files and maybe check how it is encoded.
Then, to play an mp3 file from a database, do somethind like:
use DBI;
use SDL;
use SDL::Mixer;
use SDL::Mixer::Channels;
use SDL::Mixer::Samples;
use SDL::RWOps;
$dbh->prepare("SELECT music FROM ...");
$sth = $dbh->execute();
if( $row = $sth->fetchrow_hashref ) {
$rwops = SDL::RWOps->new_const_mem( $row->{music} );
$chunk = SDL::Mixer::Samples::load_WAV_RW( $rwops, 0 );
SDL::Mixer::Channels::play_channel( -1, $chunk, 1 );
}
Cheers, FROGGS
Alex
Apr 22, 2012, 6:15:19 PM4/22/12
to Tobias Leich, sdl-...@perl.org
Hi!
Ok, now I don't get any error when playing mp3 files from the database, but
I don't get any sound either.
I updated Alien::SDL to the latest version, that worked.
However, SDL itself didn't pass the tests, it's the channels test that
fails. So I installed with force, but no change.
Is there anything in particular I could do to provide information about the
error that occurs with the cannels test? Any information you need to fix
this issue (in case it is one)?
Best regards,
Alex
[snip]
Test Summary Report
-------------------
t\core.t (Wstat: 0 Tests: 28 Failed: 0)
TODO passed: 21-22
t\core_video.t (Wstat: 0 Tests: 110 Failed: 0)
TODO passed: 57, 59
t\mixer_channels.t (Wstat: 65280 Tests: 35 Failed: 0)
Non-zero exit status: 255
Parse errors: No plan found in TAP output
Files=59, Tests=3942, 233 wallclock secs ( 0.94 usr + 0.23 sys = 1.17 CPU)
Result: FAIL
Failed 1/59 test programs. 0/3942 subtests failed.
(C:\strawberry\perl\bin\perl.exe ./Build test exited with 65280)
CPAN::Reporter: Test result is 'fail', One or more tests failed.
CPAN::Reporter: preparing a CPAN Testers report for SDL-2.536
CPAN::Reporter: this appears to be a duplicate report for the test phase:
FAIL SDL-2.536 MSWin32-x64-multi-thread 6.1
Test report will not be sent.
FROGGS/SDL-2.536.tar.gz
C:\strawberry\perl\bin\perl.exe ./Build test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports FROGGS/SDL-2.536.tar.gz
Running Build install
make test had returned bad status, won't install without force
Failed during this command:
FROGGS/SDL-2.536.tar.gz : make_test NO
[/snip]
Gesendet: Sonntag, 22. April 2012 19:31
An: Alex
use SDL::Mixer::Channels;
use SDL::Mixer::Samples;
Version: 2012.0.1913 / Virendatenbank: 2411/4952 - Ausgabedatum: 22.04.2012
Ok, now I don't get any error when playing mp3 files from the database, but
I don't get any sound either.
I updated Alien::SDL to the latest version, that worked.
However, SDL itself didn't pass the tests, it's the channels test that
fails. So I installed with force, but no change.
Is there anything in particular I could do to provide information about the
error that occurs with the cannels test? Any information you need to fix
this issue (in case it is one)?
Best regards,
Alex
[snip]
Test Summary Report
-------------------
t\core.t (Wstat: 0 Tests: 28 Failed: 0)
TODO passed: 21-22
t\core_video.t (Wstat: 0 Tests: 110 Failed: 0)
TODO passed: 57, 59
t\mixer_channels.t (Wstat: 65280 Tests: 35 Failed: 0)
Non-zero exit status: 255
Parse errors: No plan found in TAP output
Files=59, Tests=3942, 233 wallclock secs ( 0.94 usr + 0.23 sys = 1.17 CPU)
Result: FAIL
Failed 1/59 test programs. 0/3942 subtests failed.
(C:\strawberry\perl\bin\perl.exe ./Build test exited with 65280)
CPAN::Reporter: Test result is 'fail', One or more tests failed.
CPAN::Reporter: preparing a CPAN Testers report for SDL-2.536
CPAN::Reporter: this appears to be a duplicate report for the test phase:
FAIL SDL-2.536 MSWin32-x64-multi-thread 6.1
Test report will not be sent.
FROGGS/SDL-2.536.tar.gz
C:\strawberry\perl\bin\perl.exe ./Build test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports FROGGS/SDL-2.536.tar.gz
Running Build install
make test had returned bad status, won't install without force
Failed during this command:
FROGGS/SDL-2.536.tar.gz : make_test NO
[/snip]
Gesendet: Sonntag, 22. April 2012 19:31
An: Alex
Betreff: Re: How to play an mp3 file from a database
Hi Alex,
At first, you are on windows and used the prebuklt libSDL binaries shipped
with Alien::SDL?
If yes, mp3 should be supported, but only files without VBR. So please try a
few mp3 files and maybe check how it is encoded.
Then, to play an mp3 file from a database, do somethind like:
use DBI;
use SDL;
use SDL::Mixer;
At first, you are on windows and used the prebuklt libSDL binaries shipped
with Alien::SDL?
If yes, mp3 should be supported, but only files without VBR. So please try a
few mp3 files and maybe check how it is encoded.
Then, to play an mp3 file from a database, do somethind like:
use DBI;
use SDL;
use SDL::Mixer::Channels;
use SDL::Mixer::Samples;
use SDL::RWOps;
$dbh->prepare("SELECT music FROM ...");
$sth = $dbh->execute();
if( $row = $sth->fetchrow_hashref ) {
$rwops = SDL::RWOps->new_const_mem( $row->{music} );
$chunk = SDL::Mixer::Samples::load_WAV_RW( $rwops, 0 );
SDL::Mixer::Channels::play_channel( -1, $chunk, 1 ); }
Cheers, FROGGS
Am 22.04.2012 18:35, schrieb Alex:
$dbh->prepare("SELECT music FROM ...");
$sth = $dbh->execute();
if( $row = $sth->fetchrow_hashref ) {
$rwops = SDL::RWOps->new_const_mem( $row->{music} );
$chunk = SDL::Mixer::Samples::load_WAV_RW( $rwops, 0 );
SDL::Mixer::Channels::play_channel( -1, $chunk, 1 ); }
Cheers, FROGGS
Am 22.04.2012 18:35, schrieb Alex:
0 new messages