Como visualizar un documento PDF en un form

integral

2009-11-30 19:38:50 UTC

Que tal amigo :

No se si llegastes a resolver tu problema, pero de todos modos te
expongo un codigo que realize lo que piensar hacer.

Pero en VFP9 y XP cambias la linea de :

OLECLASS = "PDF.PdfCtrl.5"

por esta otra

OLECLASS = "AcroPDF.PDF.1"

y funciona perfectamente.

*********************************************************
* Vizualizar Archivos PDF desde un Formulario.
*********************************************************
PUBLIC oform1
oform1=NEWOBJECT("form1") <---Aqui me sale el error.
oform1.Show
RETURN
**************************************************
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "PdfForm"
Name = "Form1"
WindowState = 2

ADD OBJECT cmdfile AS commandbutton WITH ;
Top = 12, ;
Left = 12, ;
Height = 27, ;
Width = 144, ;
Caption = "Select File", ;
Name = "cmdfile"

ADD OBJECT cmdexit AS commandbutton WITH ;
Top = 12, ;
Left = 168, ;
Height = 27, ;
Width = 84, ;
Caption = "E\<xit", ;
Name = "cmdexit"

ADD OBJECT olecontrol1 AS olecontrol WITH ;
OLECLASS = "PDF.PdfCtrl.5", ;
Top = 48, ;
Left = 12, ;
Height = 192, ;
Width = 348, ;
Name = "Olecontrol1"

PROCEDURE Init
ThisForm.ReSize()
ENDPROC

PROCEDURE ReSize
Thisform.Olecontrol1.Height = Thisform.Height + 100
Thisform.Olecontrol1.Width = Thisform.Width + 285
Thisform.Olecontrol1.Refresh()
ENDPROC

PROCEDURE cmdfile.Click
LOCAL cFile
cFile = GETFILE([PDF])
IF !EMPTY(cFile)
Thisform.Olecontrol1.LoadFile([&cFile])
ENDIF
ENDPROC

PROCEDURE cmdexit.Click
ThisForm.Release()
ENDPROC

ENDDEFINE

Saludos,

Gabriel
(Lima-Perú)

Post by joel de jesus
Tengo varios documentos pdf en una carpeta y estoy elaborando una aplicacion
para organizarlos, hice en un form un control listbox la ruta de todos los
documentos y lo que quiero es que al pasar al seguiente documento me muestre
dicho documento en el formulario, mi problema es que no encuentro un activex
o ocx ole que pueda insertar en el form para visualizar el documento PDF.
si alguien sabe como visualizar un documento pdf en un form se lo
agradeceria si me ayudara.
Muchas Gracias.