Page Comparison

LOCAL m.loSession, m.lnRetVal
m.loSession= xfrx("XFRX#INIT")
       
*

       * nothing is sent as the file name, so only a memory cursor is created
    
   *
        m.lnRetVal =m.loSession.SetParams(,,,,,,"XFF")                           
        If IF m.lnRetVal = 0
               m.loSession.ProcessReport("invoices")                         
         local m.loXFF,            m.lnI, m.lnJpegQuality
   *
        
      * the finalize method returns a XFRX#DRAW object reference,
        
      * which will be used to save the pictures
  
            *
               m.loXFF = loSession.finalize()
               LOCAL lnI, lnJpegQuality
               m.lnJpegQuality = 80
           
   *
   
           * loXFF.pagecount contains the number of pages of the 
   
           * report that 
           
   * was just generated
     
    	*
      
        * we are now going to save all pages one by one as 
      
        * separate jpeg pictures

              *
           
   FOR m.lnI = 1 TO m.loXFF.pagecount
                       m.loXFF.savePicture("page"+ALLTRIM(STR(m.lnI))+".jpg", ;
                                      "jpg",m.lnI,m.lnI,24,m.lnJpegQuality)
               ENDFOR
               =MESSAGEBOX("Pictures saved.")
        Endif ENDIF