Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff"       && Input file
m.lcDestination="output.tiff" && Output file
m.tnFrom=1                    && from page
m.tnTo=2                      && to page
m.tnAllEvenOdd=1              && even or odd or all pages
m.liFlags=1                   && 1 - Append to existing file, 2 - selected pages to one file

SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags)

Extract  pages 5.,6.,7.,8. and 10, each page create new file 

...

Code Block
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff"       && Input file
m.lcDestination="output.tiff" && Output file
m.tnFrom=1                    && from page
m.tnTo=2                      && to page
m.tnAllEvenOdd=1              && even or odd or all pages
m.liFlags=2                   && 1 - Append to existing file, 2 - selected pages to one file

SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags)