Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PDF file viewing
Message
De
25/10/2003 11:04:36
 
 
À
25/10/2003 08:33:27
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00842586
Message ID:
00842600
Vues:
19
Hi Aritra

You have to ways to do that.

1. You just drop an Adobe PDF control in your forms. It´s is very easy because when you install Adobre Acrobat in your PC, it install an OCX control called ADOBE PDF CONTROL, you can install them into your ActiveX Controls. I used the control in the following way:

When I want to see a PDF: 
****************************
m.lcPDFdoc=ALLTRIM ("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM.visorPDF.LoadFile(ALLTRIM(lcPDFdoc))

When I want to index a PDF in my table
******************
m.lcPicFile=GETFILE('PDF')
IF !EMPTY(m.lcPicFile)
m.lcExt=RIGHT(ALLTRIM(m.lcPicFile),4)
m.lcUnico=vr_documentos_pdf.unico
m.lcTarget="\eisvisualsystems\documentos\pdf\"+m.lcUnico+m.lcext

m.lcCopy="COPY FILE '"+lcPicFile+ "' TO "+lcTarget
&lcCopy

REPLACE vr_documentos_pdf.PATH WITH m.lcUnico+m.lcExt
m.lcPDFdoc=ALLTRIM("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM.visorPDF.LoadFile(ALLTRIM(lcPDFdoc))
THISFORM.REFRESH()
ENDIF

**********************


2. You simple drop the ._shellexecute class in your form. You find out about this class in the solution samples application. Whit this class you are capable to run all windows applications not only PDF.


TRY
m.lcPDFDoc=ALLTRIM("\eisvisualsystems\documentos\pdf\"+vr_documentos_pdf.PATH)
THISFORM._shellexecute.shellexecute(lcPDFDoc)
THISFORM.REFRESH()

CATCH TO loException
MESSAGEBOX(Exception_Error(loException),0+16,THISFORM.CAPTION)
FINALLY

ENDTRY



I hope this resolve your problem, If you have more questions please let me note.

Good Luck

Carlos
Carlos A. Miranda
E.I.S.lnc
President
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform