insertion image PDF
Le
patrick.fontaine
j'essie d'insere une image dans un document pdf
mais :
#perl
use strict;
use PDF::API2;
use PDF::API2::Util;
use warnings;
my $pdf=PDF::API2->new;
my $f2=$pdf->corefont('Helvetica-Bold',-encode=>'latin1');
my $page = $pdf->page;
$page->mediabox(595,842);
my $gfx=$page->gfx;
$gfx->textlabel(50,600,$f2,40,'Mon Image ',
-color=>'#0000CC',
-rotate=>0,
-hspace=>65,
-underline=>[4,[1,'red'],7,[1.5,'yellow'],11,2],
);
my $img = $pdf->image_jpeg("imx.jpg");
$gfx->image_jpeg($img, 0, 100, 264, 68);
#$page->update;
#$pdf->update;
$pdf->saveas("test.pdf");
$pdf->end();
le message d'erreur est le suivant :
Can't call method "val" on an undefined value at
C:/Perl/site/lib/PDF/API2/Resource/XObject/Image.pm line 99.
version perl 5.8 windows Pdf Api2 v 0.41
cordialement
mais :
#perl
use strict;
use PDF::API2;
use PDF::API2::Util;
use warnings;
my $pdf=PDF::API2->new;
my $f2=$pdf->corefont('Helvetica-Bold',-encode=>'latin1');
my $page = $pdf->page;
$page->mediabox(595,842);
my $gfx=$page->gfx;
$gfx->textlabel(50,600,$f2,40,'Mon Image ',
-color=>'#0000CC',
-rotate=>0,
-hspace=>65,
-underline=>[4,[1,'red'],7,[1.5,'yellow'],11,2],
);
my $img = $pdf->image_jpeg("imx.jpg");
$gfx->image_jpeg($img, 0, 100, 264, 68);
#$page->update;
#$pdf->update;
$pdf->saveas("test.pdf");
$pdf->end();
le message d'erreur est le suivant :
Can't call method "val" on an undefined value at
C:/Perl/site/lib/PDF/API2/Resource/XObject/Image.pm line 99.
version perl 5.8 windows Pdf Api2 v 0.41
cordialement

Poser une question


Pour insérer l'image il faut
$gfx->image($img, 0, 100, 264, 68);
et non
$gfx->image_jpeg($img, 0, 100, 264, 68);
HTH
--
J-L.M.
http://www.bribes.org/perl