Re: GD isn't outputting image data

JupiterHost.Net Sat, 08 Jan 2005 18:25:19 -0800

Scott R. Godin wrote:

Owen wrote:

--------------------------insert---------------------------
    open (OUT,">GD.png");
                my $img = $image->png;
    print OUT "$img";
--------------------------end insert---------------------------

It worked for me, try modifying the script a la above and see if it produces a GD.png file

indeed.

#!/usr/bin/perl
use warnings;
use strict;
use GD;

my $image = GD::Image->new(100,50);
my $white = $image->colorAllocate(128,128,255);
#$image->transparent($white);

my $fontcolor = $image->colorAllocate(0,0,0);
my $font = GD::Font->Small();

print "Content-type: image/png\n\n";
$image->string($font,2, 8,">hello world...",$fontcolor);
$image->string($font,2,20," Would you like",$fontcolor);
$image->string($font,2,32," to play a game?",$fontcolor);

my $img = $image->png or die "$!";
binmode STDOUT;
print $img;

apparently it's necessary to extract it to a scalar first; plus this way you can test for whether the method is supported in the compiled libgd and error if not,

$ perl gif.pl > gif.gif
libgd was not built with gif support
        ...propagated at gif.pl line 19.


#!/usr/bin/perl

use strict;
use warnings;
use GD;

my $image = GD::Image->new(100,50);
my $white = $image->colorAllocate(255,255,255);
$image->transparent($white);

my $fontcolor = $image->colorAllocate(0,0,0);
my $font = GD::Font->Small();

$image->string($font,2,10,'hello world',$fontcolor);
my $png = $image->png or die $!;
binmode STDOUT;
print $png;

$ ./gdtest.pl
No such file or directory at ./gdtest.pl line 15.
$

That is the $! on line 15 so it looks like we're getting closer ;p

I should've died before :)

So I'm assuming its a temp file of some kind, have to search teh guts more to find out what that means. Any ideas?

or,
"The image 'http://localhost/cgi-bin/hello.cgi' cannot be displayed, because it contains errors." ;) (yes that works, try it with the above code, which should work fine and display an image. :)


Add a content type header and it will work in your browser :)


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: GD isn't outputting image data

Reply via email to