Guardar una Imagen a PDF

[atrus]

Hola,
alguien sabe como puedo pasar una imagen jpg directamente a PDF, sin quico report, sino directo, desde codigo. Uso un OpenDialog cargo la imagen que quiero y la transformo en un PDF.
uso delphi 6.
Gracias a todos.

[Neftali [Germán.Estévez]]

Hay muchos componentes que te permiten generar PDFs sencillos.
Este, por ejemplo, es gratuíto y con código fuente, aunque en Torry puedes encontrar muchos más.

Tienen sus limitaciones, pero funcionan perfectamente para añadir, textos, líneasm, imágenes,... (documentos simples, vamos)

Basta con un línea como esta para incluir la image:

Código Delphi [-]
  PdfCmp1.AddBitmap(20, 150, 'C:\temp\bitmap.BMP');

[atrus]

Me Vale!!!!,
muchas gracias me sirve, pero i si el archivo PDF no existe, como lo creo?

Gracias.

[Neftali [Germán.Estévez]]

Empezado por atrus

muchas gracias me sirve, pero i si el archivo PDF no existe, como lo creo?

Revisa la documentación y la demo.
El mismo componente te permite crearlo, escribir lo que necesites dentro y grabarlo.

[atrus]

Hola, Cuando el documento se crea se inserta texto muy bien, pero cuando insertas una imagen, me da un error a ver si a alguien le suena porque no he sido capaz de encontrar nada por google.

En Acrobat Reader 7.0 --> "error: Se esperaba el Fin del espacio Cromático".
En Acrobat Reader 8.0 --> "error: No se encontró el XObject denominado Im1"

Alguien tiene idea de lo que es?, por casualidad.
Gracias por adelantado.

[Neftali [Germán.Estévez]]

A mi también me ha fallado.
De todas formas, puedes probar con algun otro. Por ejemplo, este.

También gratuíto y con fuentes.
Para que no pasara lo mismo, este lo he probado y compila y funciona perfectamente en Delphi 6.

[atrus]

Muchas Gracias Neftali, lo pruebo y te digo el ke.

[atrus]

Hola Neftali, a mi este proyecto no me compila y no se que hago mal,

si tu o alguien pudiese auidarme lo agradeceria,

En la Unit dzlib, me da error en las clases o types:

Código Delphi [-]
type
  TAlloc = alloc_func;
    {function (AppData: Pointer; Items, Size: Integer): Pointer;}
  TFree = free_func;
    {procedure (AppData, Block: Pointer);}

  { Internal structure.  Ignore. }
  TZStreamRec = z_stream;


Undeclared Identifier alloc_func
Undeclared Identifier free_func
Undeclared Identifier z_stream

gracias por adelantado.

[atrus]

Expongo uno de los problemas que tengo, uso QuickReport 4.04 y delphi 6, tengo facturas que la empresa quiere poner de fondo una imagen semi transparente, pero al pasarlo a PDF y abrir este me da error, en cambio si no se usa la imagend e fondo no.

Alguien sabe como arreglar esto?.