Como hacer para abrir un PDF desde VFP

5,268 views
Skip to first unread message

rfsalasb

unread,
Aug 30, 2011, 11:51:05 AM8/30/11
to publicesvfoxpro
Hola amigos del foro.
Cómo sería para ABRIR un archivo PDF mediante un click en un botón ? Algo así como un hipervínculo.

NO es crear un reporte en un PDF sino ABRIR un PDF ya existente.

Saludos.
Roy Salas B.
Costa Rica.
--------------
rfsalasb
2011-08-30

Geovanny Quirós Castillo

unread,
Aug 30, 2011, 11:58:07 AM8/30/11
to publice...@googlegroups.com
Hola Roy,
para abrir cualquier archivo puedes usar este codigo:

LOCAL lcFile, loShell
lcFile = tuarchivo
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell

Saludos

-----Mensaje original-----
From: rfsalasb
Sent: Tuesday, August 30, 2011 9:51 AM
To: publicesvfoxpro
Subject: [vfp] Como hacer para abrir un PDF desde VFP

Hola amigos del foro.
C�mo ser�a para ABRIR un archivo PDF mediante un click en un bot�n ? Algo
as� como un hiperv�nculo.

Allan Raúl Acuña

unread,
Aug 30, 2011, 12:02:42 PM8/30/11
to publice...@googlegroups.com

Amigo, puedes usar la funcion SHELLEXECUTE, para abrirlo:


-----------------------------------------------------------------

DECLARE INTEGER ShellExecute IN "Shell32.dll"
;

INTEGER hwnd, ;

STRING lpVerb, ;

STRING lpFile, ;

STRING lpParameters, ;

STRING lpDirectory, ;

LONG nShowCmd


* Abre el documento  "c:\prueba.pdf"  Este documento debe existir

=Shellexecute(0,"Open","c:\prueba.pdf","","",0)


-------------------------------------------------------------------


Saludos desde Nicaragua

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com




> Date: Tue, 30 Aug 2011 09:51:05 -0600
> From: rfsa...@gmail.com
> To: publice...@googlegroups.com

> Subject: [vfp] Como hacer para abrir un PDF desde VFP
>

Ing.Daniel Bojorge

unread,
Aug 30, 2011, 3:23:42 PM8/30/11
to publice...@googlegroups.com
Ya en alguna ocasión dejé algo que yo uso y me ha resultado muy bien,.

El método que utilizo es casi como el que está acá:








Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

rfsalasb

unread,
Aug 31, 2011, 12:05:55 AM8/31/11
to publicesvfoxpro
Gracias a Ing. Daniel Bojorge, Allan Raúl Acuña y Geovanny Quirós, voy a probar sus aportes y estaré indicando como me resultó.
Saludos.
Muchas gracias.

Roy Francisco Salas Benavides
Director de Proyectos
Proditek Software
Tel. (506) 2460-3507
Cel. (506) 8911-8131

Si no consideras imprescindible imprimir este correo, evítalo, así proteges muchos árboles, protejamos la tierra, es nuestra fuente de vida, es nuestro mundo.
------------------
rfsalasb
2011-08-30

-------------------------------------------------------------
Remitente:Ing.Daniel Bojorge
Fecha:2011-08-30 13:24:33
Destinatario:publicesvfoxpro
CC:
Asunto:Re: [vfp] Como hacer para abrir un PDF desde VFP

Ya en alguna ocasión dejé algo que yo uso y me ha resultado muy bien,.

El método que utilizo es casi como el que está acá:

http://www.berezniker.com/content/pages/visual-foxpro/view-pdf-vfp-form







Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas,
pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)



El 30 de agosto de 2011 10:02, Allan Raúl Acuña
<allan...@hotmail.com>escribió:

> *Amigo, puedes usar la funcion SHELLEXECUTE, para abrirlo:*
>
> *
> *
>
> *-----------------------------------------------------------------*
>
> *DECLARE INTEGER ShellExecute IN "Shell32.dll"*
> *;*
>
> *INTEGER hwnd, ;*
>
> *STRING lpVerb, ;*
>
> *STRING lpFile, ;*
>
> *STRING lpParameters, ;*
>
> *STRING lpDirectory, ;*
>
> *LONG nShowCmd*
>
> *
> * Abre el documento "c:\prueba.pdf" Este documento debe existir
>
> =Shellexecute(0,"Open","c:\prueba.pdf","","",0)*
>
> *
> *
>
> *-------------------------------------------------------------------*
>
> Saludos desde Nicaragua
>
> *Lic. Allan R. Acuña*
> Desarrollador Independiente
> *msn*= allan...@hotmail.com
> *skype*= niceasysoft
> +(505) 8 831 8191
> www.NicEasySoft.com
>
> *
> *

Yerson Diaz

unread,
Mar 7, 2017, 6:00:40 PM3/7/17
to Comunidad de Visual Foxpro en Español
Buenas

Quisiera saber si se puede hacer el mismo procedimiento, pero el archivo pdf lo tengo guardado en al base de datos de visual fox pro, dentro de una tabla en un campo tipo blob.

Funcionaria el procedimiento, si tiene algun cambio me podrian ayudar por favor :D?

gracias, y buenas noches.
Reply all
Reply to author
Forward
0 new messages