Saludos a todos.
Alguien sabe como abrir un archivo pdf y visualizar el contenido en un
formulario ?
He visto el ejemplo que trae xailer con ocx pero no funciona.
Por su ayuda, gracias
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Como abrir un archivo pdf
-
- Mensajes: 266
- Registrado: Mar Oct 28, 2008 4:41 am
-
- Mensajes: 266
- Registrado: Mar Oct 28, 2008 4:41 am
Como abrir un archivo pdf
Jose, buen dia.
Te agradezco la pronta respuesta.
Y perdona mi ignorancia en este tema, pero no se como usar IWebBrowser.
Si pudieras apoyarme con un ejemplo, te lo agradesco.
Saludos
Te agradezco la pronta respuesta.
Y perdona mi ignorancia en este tema, pero no se como usar IWebBrowser.
Si pudieras apoyarme con un ejemplo, te lo agradesco.
Saludos
Como abrir un archivo pdf
Pedro,
> Alguien sabe como abrir un archivo pdf y visualizar el contenido en un
> formulario ?
>
> He visto el ejemplo que trae xailer con ocx pero no funciona.
No funciona porque Adobe cambió hace tiempo el OCX. Lo que puedes hacer
es instanciar un IWebBrowser y abrir la URL "file://<archivo.pdf>",
donde <archivo.pdf> es la ruta completa del archivo pero cambiando las
barras de directorio () por barras de dividir (/).
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
> Alguien sabe como abrir un archivo pdf y visualizar el contenido en un
> formulario ?
>
> He visto el ejemplo que trae xailer con ocx pero no funciona.
No funciona porque Adobe cambió hace tiempo el OCX. Lo que puedes hacer
es instanciar un IWebBrowser y abrir la URL "file://<archivo.pdf>",
donde <archivo.pdf> es la ruta completa del archivo pero cambiando las
barras de directorio () por barras de dividir (/).
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
Como abrir un archivo pdf
Pedro,
> Jose, buen dia.
> Te agradezco la pronta respuesta.
> Y perdona mi ignorancia en este tema, pero no se como usar IWebBrowser.
> Si pudieras apoyarme con un ejemplo, te lo agradesco.
Te vale el mismo ejemplo de Xailer (xailersamplesocxtest1). Es el
navegador web que aparece directamente. Sólo tienes que cambiar la URL
poniendo el archivo PDF que quieres abrir.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
> Jose, buen dia.
> Te agradezco la pronta respuesta.
> Y perdona mi ignorancia en este tema, pero no se como usar IWebBrowser.
> Si pudieras apoyarme con un ejemplo, te lo agradesco.
Te vale el mismo ejemplo de Xailer (xailersamplesocxtest1). Es el
navegador web que aparece directamente. Sólo tienes que cambiar la URL
poniendo el archivo PDF que quieres abrir.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
Como abrir un archivo pdf
METHOD CreateForm( lCreate ) CLASS TviewPdf
IF lCreate
::SetBounds( 332, 139, 701, 489 )
::SetClientSize( 685, 451 )
::cText := "Viendo documento"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::lParentIcon := .F.
::oIcon := "Pdf"
::lCentered := .T.
::OnInitialize := "FormInitialize"
::OnPaint := "FormPaint"
::Create()
ENDIF
::Super:CreateForm( .F. )
WITH OBJECT ::oReBar1 := TReBar():New( Self )
:SetBounds( 0, 0, 685, 30 )
:AddItem( )
:Create()
END
WITH OBJECT ::Otoolbar := TToolBar():New( ::oReBar1 )
:SetBounds( 11, 0, 62, 28 )
:lList := .T.
WITH OBJECT :oImageList
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit" )
END
WITH OBJECT :oImageListHot
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit" )
END
WITH OBJECT :oImageListDis
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit", .T. )
END
:AddItem( "&Cerrar", 1 ):OnClick := {|| ::Close()}
:Create()
END
RETURN Self
--
IF lCreate
::SetBounds( 332, 139, 701, 489 )
::SetClientSize( 685, 451 )
::cText := "Viendo documento"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::lParentIcon := .F.
::oIcon := "Pdf"
::lCentered := .T.
::OnInitialize := "FormInitialize"
::OnPaint := "FormPaint"
::Create()
ENDIF
::Super:CreateForm( .F. )
WITH OBJECT ::oReBar1 := TReBar():New( Self )
:SetBounds( 0, 0, 685, 30 )
:AddItem( )
:Create()
END
WITH OBJECT ::Otoolbar := TToolBar():New( ::oReBar1 )
:SetBounds( 11, 0, 62, 28 )
:lList := .T.
WITH OBJECT :oImageList
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit" )
END
WITH OBJECT :oImageListHot
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit" )
END
WITH OBJECT :oImageListDis
:nWidth := 16
:nHeight := 16
:Add( "Bar_Exit", .T. )
END
:AddItem( "&Cerrar", 1 ):OnClick := {|| ::Close()}
:Create()
END
RETURN Self
--
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Auditoria y Sistemas Ltda.
Cartagena-Colombia