Blank
Hi Guys,
I'm trying to get the GStreamer Perl api working
on Kubuntu. Does anybody have it
working? The core GStreamer module is currently working on my installation,
which I can test through wxMediaCtrl, but wx has some bugs which I'm hoping to
avoid by going straight to GStreamer. I have installed the api from cpan and I'm
running the 'synopsis' from the top of the doc.
I get the following error message:
Stream contains no data. at
/home/image/Documents/Endoscopia/GStreamer_Demo.pl line 28.
Here is the code itself. The print statements give 1
(playable) and 010280 (version), respectively.
regards
Steve
#!/usr/bin/perl
use strict;
use warnings;
use Glib qw(TRUE FALSE);
use GStreamer -init;
my $loop = Glib::MainLoop -> new();
print GStreamer->init_check, "\n";
print GStreamer->version, "\n";
# set up
my $play = GStreamer::ElementFactory -> make("playbin", "play");
$play -> set(uri => Glib::filename_to_uri "/home/image/Documents/Endoscopia/media/a_100_23_1.avi", "localhost");
$play -> get_bus() -> add_watch(\&my_bus_callback, $loop);
$play -> set_state("playing");
# run
$loop -> run();
# clean up
$play -> set_state("null");
sub my_bus_callback {
my ($bus, $message, $loop) = @_;
if ($message -> type & "error") {
warn $message -> error;
$loop -> quit();
}
elsif ($message -> type & "eos") {
$loop -> quit();
}
# remove message from the queue
return TRUE;
}
_______________________________________________
gstreamer-devel mailing list
[hidden email]
http://lists.freedesktop.org/mailman/listinfo/gstreamer-devel