FiveTech Software tech support forums

Code: Select all | Expand

Static Function ShowPDF1 oBrw )
  local oPdf,oWnd
    local nOpc      := 0                   
   local lText     := .F.                  
   local cFile     := if( Len( oBrw:aArrayData ) > 0, AllTrim( oBrw:aRow[ 2 ] ), "" )
      local hWebView,arq,cReport
     
DEFINE WINDOW oWnd
  oWnd:oClient = oPdf
   oPdf := TActiveX():New( oWnd, "acroPDF.PDF.1" )
   oWnd:oClient := oPdf

   oPdf:Do( "LoadFile", cFile )
   //oPdf:Do( "SetCurrentPage", 1 )

   oPdf:SetZoom( 80 )
    ACTIVATE WINDOW oWnd;
             MAXIMIZED     

 Return //oPdf

 //----------------------------------------------------------------------------//

 

Code: Select all | Expand

// C:\FWH\SAMPLES\SHOWPDF3.PRG

#include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oActiveX, oPdf, oIco, oBar, oBmp, cFile

   cFile := "C:\TEMP\MODELO.PDF"

   SkinButtons()

   DEFINE ICON oIco FILE "..\icons\fax.ico"

   // mdichild ...no puede ser mdichild sin pertenecer a una ventana mdi
   DEFINE WINDOW oWnd TITLE "Abrir un archivo *.pdf" COLOR "B/W" ICON oIco

   DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd 2007

   oActiveX := TActiveX():New( oWnd, "AcroPDF.PDF.1" )
   oWnd:oClient := oActiveX

   // oActiveX:Do( "LoadFile", "Prueba.pdf" )

   oActiveX:Do( "LoadFile", cFile )
   oActiveX:Do( "SetCurrentPage", 1 )


   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION( oWnd:End() ) TOOLTIP "Exit this app" GROUP

   DEFINE MESSAGE OF oWnd PROMPT FWVERSION + " <-kapiabafwh@gmail.com-> " + ;
      FWCOPYRIGHT NOINSET CENTERED KEYBOARD DATE CLOCK 2007

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

/* O:
   ShellExecute( ,"open", cFicheroPdf,,,1 )
*/

// FIN / END
 

Code: Select all | Expand

// C:\FWH\SAMPLES\SHOWPDF.PRG

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar, oIco

   HB_GCALL( .F. )

   DEFINE ICON oIco FILE "..\icons\person.ico"

   DEFINE WINDOW oWnd TITLE "ShowPdf Acrobat" COLOR "B/W" ICON oIco

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT GROUP  ;
      ACTION( ShowPDF_READER() )

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT           ;
      ACTION( oWnd:End(), LIBERA_TUDO() ) TOOLTIP "Exit this app" GROUP

   SET MESSAGE OF oWnd TO "ShowPdf Acrobat" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION ShowPDF_READER()

   LOCAL oWndPdf, oPdf, cTmp, VisualPDF

   VisualPDF := "C:\TEMP\FWINTRO.PDF"

   IF .NOT. File( VisualPDF )

      ? "OOOPPSS!!"

      RETURN NIL

   ENDIF

   DEFINE WINDOW oWndPdf TITLE "FiveWin ActiveX Support"

   oPdf = TActiveX():New( oWndPdf, "AcroPDF.PDF.1", 1, 1, 20, 50 )

   oWndPdf:oClient := oPdf

   oPdf : src = VisualPDF

   // Mostra Preview Pequeno no lado esquerdo da tela...
   // oPdf:Do( "SetPageMode", "thumbnail and pages" )

   oPdf:SetProp( "Src", cTmp )

   oPdf:Do( "LoadFile", Lfn2Sfn( cTmp ) )

   oPdf:Do( "GetVersions" )

   oPdf:Do( "SetCurrentPage", 1 )

   // oPdf:Do( "PrintAll" )  // Assim funciona. pede a impressao

   // Mostra a Barra de Botoes do ADOBE READER
   oPdf:Do( "SetShowToolbar", .T. )

   oPdf:Do( "SetShowScrollbars", .T. )  // Liga/Desliga Scroll

   ACTIVATE WINDOW oWndPdf MAXIMIZED ;
      ON INIT( PDFActivex( oPdf ) )  ;
      VALID( oWndPdf := NIL, oPdf:End(), .T. )

RETURN NIL

FUNCTION PDFActivex( MyProgID )

   LOCAL aDretor := .T.

   IF IsActivex( "PDF.PdfCtrl.1" ); MyProgID := "PDF.PdfCtrl.1"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.2" ); MyProgID := "PDF.PdfCtrl.2"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.3" ); MyProgID := "PDF.PdfCtrl.3"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.4" ); MyProgID := "PDF.PdfCtrl.4"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.5" ); MyProgID := "PDF.PdfCtrl.5"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.6" ); MyProgID := "PDF.PdfCtrl.6"; ENDIF
   IF IsActivex( "PDF.PdfCtrl.7" ); MyProgID := "PDF.PdfCtrl.7"; ENDIF
   IF IsActivex( "acroPDF.PDF.1" ); MyProgID := "acroPDF.PDF.1"; ENDIF
   IF IsActivex( "acroPDF.PDF.2" ); MyProgID := "acroPDF.PDF.2"; ENDIF

   IF Empty( MyProgID )

      MsgInfo( "PDF Activex não instalado!" + CRLF + " É necessário que seja instalado o programa ADOBE READER, consulte o suporte do sistema.", .F. )

      aDretor := .F.

   ENDIF

RETURN( aDretor )

FUNCTION LIBERA_TUDO()

   /*
   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()
   FreeResources()
   */
   Release All
   SysRefresh()

   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL

// FIN / END - kapiabafwh@gmail.com