Como abrir un archivo pdf

[PEDRO DE LEON RODAS[3]]

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

[PEDRO DE LEON RODAS[3]]

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

[jfgimenez]

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

[jfgimenez]

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

[gerencia]

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
--