Re: [MacPerl-Modules] quicktime glue help

[Chris Nandor <pudge@pobox.com>]

At 19.06 -0700 2000.06.25, Julian Zgoda wrote:
>Here's the code snippet:
>
>#!perl -wl
>use Mac::Glue ':all';
>use strict;
>
>my $finder = new Mac::Glue 'Finder';
>my $qt = new Mac::Glue 'Quicktime_Player';
>
>my $f;
>foreach $f (@ARGV) {
>  my $movie_obj = $finder->obj(file => $f);
>
>  $qt->activate;
>  my $open_movie = $qt->open($movie_obj);
>
>  my $new_file = 'Yo Eddie:Desktop Folder:test.pict';
>  $qt->export($open_movie , as => 'pict', to => $new_file);
>}
>
>
>This returns:
>
># Can't create alias for 'Yo Eddie:Desktop Folder:test.pict': File not
>found (OS error -43)
>File 'Dev:Pseudo'; Line 16

Close.  Two problems.

First, the 'to' parameter wants an object.  So you need:

   to => $qt->obj(file => $new_file)

Second, enumerations are passed with enum(), not as regular strings. 
As you noted, in the POD there is this:


>  $obj->export(obj , as => expk, to => alis, [using => exps,
>using_settings_preset => TEXT])

Under "Enumerations" in the POD, you will see "expk", which lists 
"picture (PICT)".  So pass "enum('picture')" to the "as" parameter. 
Put it all together and:

     $qt->export($open_movie, as => enum('picture'),
         to => $qt->obj(file => $new_file));


That should do it for you.  Good luck,

-- 
Chris Nandor       |     pudge@pobox.com      |     http://pudge.net/
Andover.Net        | chris.nandor@andover.net | http://slashcode.com/

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org