PC Toledo

Código: Selecionar todos

#include "FiveWin.ch" // Comente, se nao usa fivewin the best.

Function criapdf()

   LOCAL cMyRun, oPdf

   //->  Crie a pasta: c:\pdf para gravar
   opdf := tpdf():new('c:\pdf\meupdf.pdf')

   opdf:Pdfnewpage("A4","P")

   opdf:Pdfatsay( "OLA MUNDO!!!!!!!!!!!",800,10,.t. )

   opdf:Pdfclosepage()

   opdf:pdfclose()

   // Adobe deve estar instalado
   cMyRun := ( "C:\PDF\MEUPDF.PDF" )

   MYRUN( cMyRun )

return .t.


function filesize(cfile)

   LOCAL nfiles := directory(cfile)

return nfiles[1,2]


Function MYRUN( cComando )

   ***************************
   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk

Código: Selecionar todos

26/07/2004  05:32             5.407 fonts.dat
01/11/2004  08:38               411 Makefile
26/07/2004  05:32             2.829 Makefile.bc
26/07/2004  05:32             8.707 pdf.ch
08/10/2005  18:13            63.800 pdf1.prg
23/04/2005  10:52            19.111 pdfhbdoc.c
26/07/2004  05:32               959 pdfhbdoc.ch
20/11/2005  23:44            46.312 pdfhbdocs.prg
02/07/2004  08:32            24.474 pdflib.h