Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
PDF file viewing
Message
From
25/10/2003 11:04:36
 
 
To
25/10/2003 08:33:27
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00842586
Message ID:
00842600
Views:
18
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
Previous
Reply
Map
View

Click here to load this message in the networking platform