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.
-
- Publicidad
Agregar imagen al final de un PDF
5 mensajes
• Página 1 de 1
Agregar imagen al final de un PDF
por audax » 2016-08-19 13:25 @600
- audax
- Perlero nuevo
- Mensajes: 56
- Registrado: 2013-06-03 13:16 @594
Publicidad
Re: Agregar imagen al final de un PDF
por explorer » 2016-08-19 13:43 @613
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Agregar imagen al final de un PDF
por audax » 2016-08-22 08:18 @388
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.
- audax
- Perlero nuevo
- Mensajes: 56
- Registrado: 2013-06-03 13:16 @594
Re: Agregar imagen al final de un PDF
por audax » 2016-08-22 09:52 @452
Bueno resultó, aquí va el código.
Todo esto no habría sido posible sin las enseñanzas del gurú explorer. Gracias.
Using perl Syntax Highlighting
- use PDF::API2;
- my $pdf = PDF::API2->open("C:\\EntradaPDF.pdf");
- my $imagen = "C:\\imagen.gif";
- add_gif($imagen) if ($imagen =~ /.gif/);
- $pdf->saveas("C:\\salidaPDF.pdf");
- sub add_gif{
- my $gif = shift;
- my $image = $pdf->image_gif($gif);
- my $page = $pdf->openpage(0);
- my $gfx = $page->gfx;
- $gfx->image($image, 292, 10, 0.6);
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Todo esto no habría sido posible sin las enseñanzas del gurú explorer. Gracias.
- audax
- Perlero nuevo
- Mensajes: 56
- Registrado: 2013-06-03 13:16 @594
Re: Agregar imagen al final de un PDF
por explorer » 2016-08-22 19:14 @843
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).
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).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados