Foro - Perl en Español

por **silva** » 2013-11-19 13:36 @608

Estoy queriendo generar un archivo PDF, pero que se genere en memoria y se abra al usuario desde allí, sin necesidad de guardarlo a disco y luego abrirlo desde disco. ¿Cómo se haría, qué me está faltando? Se me abre una ventana de archivo PDF, pero en blanco, vacío.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use PDF::API2;
 
# Create a blank PDF file
my $pdf = PDF::API2->new( \*STDOUT );
 
print "Content-type: application/pdf\n\n";
print "\n";
 
# Add a blank page
my $page = $pdf->page();
 
# Set the page size
$page->mediabox('Letter');
 
# Add a built-in font to the PDF
my $font = $pdf->corefont('Helvetica-Bold');
 
# Add some text to the page
my $text = $page->text();
$text->font( $font, 20 );
$text->translate( 200, 700 );
$text->text('Hello World!');
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¡¡¡Muchas gracias!!!

use PDF::API2;
# Create a blank PDF file
my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox('Letter');
my $font = $pdf->corefont('Helvetica-Bold');
# Add some text to the page
my $text = $page->text();
$text->font( $font, 20 );
$text->translate( 200, 700 );
$text->text('Hello World!');
$pdf->save();
my $pdf_string = $pdf->stringify();
my $pdf_size = length $pdf_string;
print <<SENDPDF;
Content-type: application/octet-stream
Content-Length: $pdf_size
Content-disposition: attachment
Content-Transfer-Encoding: binary
Pragma: no-cache
$pdf_string
SENDPDF

ERROR: Can't find string terminator "SENDPDF" anywhere before EOF at

¡¡Muchas gracias!!

por **explorer** » 2013-11-20 06:54 @329

Si haces el stringify(), entonces no necesitas el save(), así que te sobra esa línea.

El nuevo error es porque has copiado y pegado el código que muestras, desde otro sitio, sin reformatear adecuadamente el código.

Fíjate que hay espacios en blanco delante de todas las líneas del programa (excepto la primera). Ese es el error. Quítalos.

Foro - Perl en Español

API::PDF2

API::PDF2

Publicidad

Re: API::PDF2

Re: API::PDF2

Re: API::PDF2

¿Quién está conectado?