PDA

Ver la Versión Completa : Convertir imagen tiff a pdf


@lejandro
10-08-2011, 02:34:33
Buenas noches, alguien podria colaborarme, indicando como puedo convertir una imagen tiff a pdf por medio de codigo ya que lo necesito para la publicacion de unas imagenes en la empresa.
Gracias.

ecfisa
10-08-2011, 05:05:26
Hola @lejandro.

Revisá si te sirve este enlace: Convert Tiff To Pdf (http://www.codeproject.com/KB/files/tifftopdf.aspx). ( Bajo Licencia BSD (http://es.wikipedia.org/wiki/Licencia_BSD))

Saludos.

rgstuamigo
10-08-2011, 15:17:00
Hay muchas herramientas y software que se pueden utilizar para esos menesteres...tal como te ha indicado ecfisa, pero si quieres hacerlo desde Delphi pues puedes utilizar el ActiveX Control de Adobe, que puedes instalarlo en Delphi.
Pero mejor mira esta pagina (http://www.delphi3000.com/articles/article_2036.asp?SK=) la cual indica como hacerlo.;)
Saludos...:)

@lejandro
11-08-2011, 03:16:39
Antes que todo gracias, por responder, ya tengo instalado el control ActiveX, de acrobat, empiezo a tratar con el codigo, y les cuento como me fue.

@lejandro
13-08-2011, 03:28:48
Hola buenas noches, probe lo que me dijo rgstuamigo, ya que el codigo que me indica ecfisa esta en c++ y aunque es bueno, el requerimiento es realizarlo en delphi, para unirlo con otros fuentes ya hechos en delphi, con el resto del proyecto, al probar el codigo que me indico rgstuamigo, hay una parte que aun no logro hacer funcionar.
Creo que debe faltar alguna dll, o algo parecido ya que me indica que no encuentra una clase, el mensaje de error es:

exception class EOleSysError with messaje 'Cadena clase no valida'.

Lo que he hecho es lo siguiente, instale el componente ActiveX de Acrobat, luego cree un formulario y declare estos dos objetos.
AcroPDFLib_TLB, ComObj.
Para que me reconociera el objeto CreateOleObject(AcroExch.app y AcroExch.AVDoc).

En la clausula Uses de la clase principal tengo declarado lo siguiente:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, AcroPDFLib_TLB,ComObj;

Y llamo a la funcion de acuerdo a lo indicado en el codigo, en el evento clic de un TButton.

procedure TForm1.Button1Click(Sender: TObject);
begin
if not TifToPDF('c:\test.tif', 'c:\test.pdf') then Showmessage('Could not convert');
end;

Si el archivo no existe, lanza el mensaje y no se revienta, pero si la imagen tif existe, es cuando lanza el mensaje de excepcion. Tambien podria ser que el componente no sea para crear archivos pdf, y por eso no reconoce la clase que se invoca desde el codigo.
Un compañero me dice que se necesita un componente distinto, sinembargo en todas las busquedas que he realizado hasta el momento, solo me hablan del control ActiveX AcroPDF.
Saben de algun otro componente delphi?.
Agradezo me puedan colaborar.