in reply to Image to SWF

Your module instincts were correct.

I've never done anything like this before, but here is a very simple example of putting a jpeg into a swf movie. This is a crude adaptation of code from the docs for SWF::Builder. It works for me under linux and ActiveState on WinXP. 
#!/usr/bin/perl -w

use strict;
use SWF::Builder;

my $movie = SWF::Builder->new
    ( FrameRate => 15,
      FrameSize => [0, 0, 400, 400],
      BackgroundColor => 'ffffff'
      );

my $jpeg = $movie->new_jpeg('winter.jpg');

$jpeg->place;

$movie->save('winter.swf');

[download]

Replies are listed 'Best First'.
Re^2: Image to SWF
by sulfericacid (Deacon) on Feb 23, 2006 at 04:38 UTC
    It took me a bit to get the module working. I installed SWF::Builder and it secretely needed Data::TemporaryBag.

    Using your code I get an error now. The error is "Can't place the imported bitmap because it's size is unknown at swf.pl".

    UPDATE Now I get an error that says it cannot get the height and width of the bitmap. I think it couldn't get the file before because I typed in the wrong file path. But now it can't get the dimensions. Is there a way for me to hack around it with image::info h&w params? 

    #!/usr/bin/perl -w

use strict;

use CGI::Carp qw(fatalsToBrowser);

use lib "/home/everyday/public_html/lib";

use SWF::Builder;

my $movie = SWF::Builder->new
    ( FrameRate => 15,
      FrameSize => [0, 0, 400, 400],
      BackgroundColor => 'ffffff'
      );

my $jpeg = $movie->new_jpeg('spyder_avie.jpg');

$jpeg->place;

$movie->save('winter.swf');

    [download]
    Any idea what this error means? I tried tossing it at google but nothing is coming back.


    "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

    sulfericacid
[reply]
[d/l]
      This is really beyond my perlitude, but in looking at the relevant code in Bitmap.pm there seems to be a typo at line 85: $self->{_jepgdata} = $_[0];

      I suspect that it should be $self->{_jpegdata} = $_[0]; instead.

      Does changing this on your installation resolve the error?

      Here is the whole sub: 
      sub JPEGData {
    my $self = shift;
    my $pos = 2;
    my $len = length($_[0]);
    $self->{_jepgdata} = $_[0];

    while((my $s=substr($_[0], $pos, 2)) ne "\xff\xc0" and $pos < $len
+) {
        $pos += 2+unpack('n', substr($_[0], $pos+2,2));
    }
    croak "Can't get the width and height of JPEG data" if $pos>=$len;
    @{$self}{qw/_width _height/} = unpack('nn', substr($_[0], $pos+5,4
+));
    undef $self->{_jpegfile};
    $self;
}

      [download]
[reply]
[d/l]
[select]
        No, that doesn't change the outcome unfortunately. My web host has agreed to try to install MING, if that goes well I think I'll go with that system instead.

        I appreciate all of your help, at least YOU got it working :)

        Someone outta make a ppm for this mod.



        "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

        sulfericacid
[reply]

In Section Seekers of Perl Wisdom