GdPicture Imaging

[Andy Trezise]

How can I save an image (multipage tiff) after one of the pages has been rotated? I am using the GDViewer ocx in foxpro.

eg:

ThisForm.oGdViewer.DisplayFromFile("myfile.tif")

*** my file has five pages

ThisForm.oGdViewer.DisplayLastFrame()

ThisForm.oGdViewer.Rotate90()

I now want to save the file with the last page rotated.

Similarly I would also like to delete one of the pages out of my document.

Can this be done?

[Loïc]

Hi,

The GdViewer can't write file.
If you want to create/edit image files you need to use the Imaging classe of the GdPicture Light or of the GdPicture Pro SDK.

Regards,

Loïc

[Andy Trezise]

So could you explain how to (for example) open a m/p tiff file - lets say it has 5 pages - rotate the 2nd page 180 degrees, delete the third page and then save the new file.

Thanks for your help in advance.

[Loïc]

Ok:

First Step: Extract all the pages into temporary image files.

Code: Select all

Imaging1.CreateImageFromFile sMultiPageTiffPath

nImageID = Imaging1.CreateImageFromFile("inputmultipage.tif")
nPageCount = Imaging1.TiffGetPageCount
 
For nCpt = 1 To nPageCount
     Imaging1.TiffSelectPage (nCpt)
     Imaging1.SaveAsTiff (Str(nCpt) & ".tif")
Next nCpt

Imaging1.CloseNativeImage

Second step: Recompose new multi page tif file from the desired temporary files and apply processing into desired page.

Code: Select all

nImageID = Imaging1.CreateImageFromFile("1.tif")
Imaging1.TiffSaveAsNativeMultiPage ("outputmultipage.tif")
 
For nCpt = 2 To nPageCount
    If nCpt <> 3 Then
       nImageID = Imaging1.CreateImageFromFile(str(nCpt) & ".tif")
       If nCpt = 2 Then
          Call Imaging1.Rotate (Rotate180FlipNone)
       End If
       Imaging1.TiffAddToNativeMultipage (nImageID)
       Imaging1.CloseImage (nImageID)
   End If
Next nCpt


Imaging1.TiffCloseNativeMultiPage

Regards,

Loïc

[Andy Trezise]

A big thank you Loïc !!

That has saved me hours of work.