Página 1 de 1

Agregar imagen al final de un PDF

NotaPublicado: 2016-08-19 13:25 @600
por audax
Estimados,

Necesito agregar una imagen al pie de página de un pdf (el pdf tiene solo 1 página), no he trabajado nunca con pdf. ¿Alguien me podría ayudar con qué librerías podría trabajar que sirvan en Windows? Gracias de antemano.

Re: Agregar imagen al final de un PDF

NotaPublicado: 2016-08-19 13:43 @613
por explorer

Re: Agregar imagen al final de un PDF

NotaPublicado: 2016-08-22 08:18 @388
por audax
Muchas gracias, explorer, siempre tan amable... Pude agregar la imagen que necesito pero en otra hoja, ahora estoy estudiando los métodos que tiene para poder agregarla en la página que necesito. Cuando termine agrego el código por si alguien lo necesita.

Re: Agregar imagen al final de un PDF

NotaPublicado: 2016-08-22 09:52 @452
por audax
Bueno resultó, aquí va el código.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use PDF::API2;
  2.  
  3. my $pdf = PDF::API2->open("C:\\EntradaPDF.pdf");
  4. my $imagen = "C:\\imagen.gif";
  5. add_gif($imagen) if ($imagen =~ /.gif/);
  6. $pdf->saveas("C:\\salidaPDF.pdf");
  7.  
  8. sub add_gif{
  9.     my $gif = shift;
  10.     my $image = $pdf->image_gif($gif);
  11.     my $page = $pdf->openpage(0);
  12.     my $gfx = $page->gfx;
  13.     $gfx->image($image, 292, 10, 0.6);
  14. }
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4


Todo esto no habría sido posible sin las enseñanzas del gurú explorer. Gracias.

Re: Agregar imagen al final de un PDF

NotaPublicado: 2016-08-22 19:14 @843
por explorer
Las cadenas "C:\\EntradaPDF.pdf" son un rollo escribirlas, con el escapado.

Mejor así: 'C:/EntradaPDF.pdf'

Windows reconoce la barra inclinada igual que la de UNIX/Linux (desde hace unos años).

Yo supongo que el if() de la línea 5 es porque has extraído el código de uno mayor, porque... en el ejemplo, sobra (en la línea 4 ya asignaste un nombre de imagen de forma directa, acaba en '.gif', por lo que no es necesario hacer una comprobación).