Tiff to PDF

[Marco Turco]

Hi all,
I'm using the FWJPGTOPDF function to convert several jpg files in a single PDF file and it runs well.
I would like to know if there is a way to generate a PDF importing Tiff files.

Thank you in advance.

[Antonio Linares]

Marco,

You could convert the TIFF files to JPG files using the new FWH function GDIPlusConvertImage( cImageIni, cImageEnd ) and then use function FWJPGTOPDF()

[mastintin]

Antonio, Marco ...
New function for fwh ...

Code: Select all  Expand view  RUN

function FWIMAGESTOPDF( aJpg, cPDF )
   local i
   local oPdf  := FWPdf():New( cPDF )
   local aFilesDelete:= {}
   local cJpg
   
   if ValType( aJpg ) != 'A'
      aJpg     := { aJpg }
   endif
   for i = 1 to len( aJpg )
      cJpg := aJpg[i]
     
      if Upper( cFileExt( cJpg ) ) != "JPG"
         cJpg:= cFileSetExt( cJpg, "jpg" )
         aadd( aFileDelete, cJpg )
         GDIPlusConvertImage( aJpg[i], cJpg )                    
      endif
       
      oPdf:nPage++
      oPdf:WritePage( MemoRead( cJpg ) )  
     
   next
 
   oPdf:Close()

   if len(aFilesDelete) > 0  
      AEval( aFilesDelete, { |cJpg| FErase( cJpg )  } )        
   endif

return cPDF


 

And proposed change for fwh code : ( Bye Bye freeImage)

Code: Select all  Expand view  RUN

static function Emf2Jpeg( cEMF )

   local cJpeg    := cFileSetExt( cEMF, "jpg" )
   local cBuf, lRet := .f.
     
     GDIPlusConvertImage( cEMF, cJpeg )
     cBuf   := If( File( cJpeg ), MemoRead( cJpeg ), "" )
     FErase( cJpeg )

return cBuf

 

[nageswaragunupudi]

Very Good Idea !!!

You might have worked with this change.
Any feedback about the quality and size ?

[Antonio Linares]

Manuel,



Great!

[Enrico Maria Giordano]

And proposed change for fwh code : ( Bye Bye freeImage)

Great! But... what about IMAGE control?

EMG

[nageswaragunupudi]

And proposed change for fwh code : ( Bye Bye freeImage)

Great! But... what about IMAGE control?

EMG

We still need freeimage.dll in some cases like this.

It is better to reduce dependence on this dll in as many modules as we can.

[Enrico Maria Giordano]

Rao,

We still need freeimage.dll in some cases like this.

It is better to reduce dependence on this dll in as many modules as we can.

Any chance to drop freeimage for loading an image too?

EMG

[Antonio Linares]

Enrico,

I just emailed Manuel Alvarez (Mastintin) to know if GDI+ provides us a function to load images from resources and we will be much closer to finally drop FreeImage.dll use

[mastintin]

Very Good Idea !!!

You might have worked with this change.
Any feedback about the quality and size ?

Size -> some as original
quality -> default 7 ...about 70% as original . . Quality control not implemented yet (TODO LIST ).

[lucasdebeltran]

Manuel,

Cual es tu email por favor?.

Gracias

[Enrico Maria Giordano]

Antonio,

I just emailed Manuel Alvarez (Mastintin) to know if GDI+ provides us a function to load images from resources and we will be much closer to finally drop FreeImage.dll use

Very good!

EMG

[nageswaragunupudi]

We should be able to read not only from resources, but directly from any image file and memory and save to file also.

[nageswaragunupudi]

Hi all,
I'm using the FWJPGTOPDF function to convert several jpg files in a single PDF file and it runs well.
I would like to know if there is a way to generate a PDF importing Tiff files.

Thank you in advance.

You can also consider using pdf libraries (contrib) of (x)Harbour. Using those libraries you can embed tiff, jpeg, png and bmp files into pdf.

We are not using these libraries for FWH because we like to restrict dependence on 3rd party libs.

[Horizon]

Marco,

You could convert the TIFF files to JPG files using the new FWH function GDIPlusConvertImage( cImageIni, cImageEnd ) and then use function FWJPGTOPDF()

Hi Antonio,

What about multipage tif files? It only converts first page to jpg file. Is there any workaround?

Thanks.