Getting the Perl GStreamer api working.

classic Classic list List threaded Threaded
1 message Options
it
Reply | Threaded
Open this post in threaded view
|

Getting the Perl GStreamer api working.

it
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

Blank Bkgrd.gif (202 bytes) Download Attachment