Crear cuenta
PARAMETERS pdf
nAncho=Thisform.Width
nAlto=Thisform.Height
This.AddObject("owb","oleControl","Shell.Explorer.2")
This.oWb.Top = 0
This.oWb.Left = 0
This.oWb.Width = nAncho
This.oWb.Height = nAlto
This.oWb.Visible = .T.
This.oWb.Anchor = 240
* Display the name in the textboxThis.Caption = pdf
WITH thisform.owb.Object
.Navigate2("About:Blank")
=INKEY(0.70,"H")
DO WHILE (.busy OR .ReadyState <> 4)
DOEVENTS
ENDDO
.Navigate2(pdf)
=INKEY(0.70,"H")
DO WHILE (.busy OR .ReadyState <> 4)
DOEVENTS
ENDDO
ENDWITH
TRY
loDoc = Thisform.oWB.oBJECT.Document
WITH loDoc
.setPageMode("none")
.setLayoutMode("OneColumn")
.setView("FitH")
.setZoom(50)
.setShowToolbar(.F.)
.setShowScrollbars(.T.)
ENDWITH
CATCH TO oErr
FINALLY
loDoc = nullENDTRY
Local lnSeconds
Thisform.oWB.Object.Navigate2("About:Blank")
lnSeconds = Seconds()
Do While (Thisform.oWB.Object.Busy Or Thisform.oWB.Object.ReadyState <> 4) ;
AND (Seconds() - lnSeconds) < This.nPdfLoadTimeout
DoEvents
Enddo
Thisform.oWB.Object.Navigate2(Thisform.cPdfFileName)
lnSeconds = Seconds()
Do While (Thisform.oWB.Object.Busy Or Thisform.oWB.Object.ReadyState <> 4) ;
AND (Seconds() - lnSeconds) < This.nPdfLoadTimeout
DoEvents
ENDDO