Ver PDF dentro de la aplicación

User avatar
carlos vargas
Posts: 1421
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: Ver PDF dentro de la aplicación

Post by carlos vargas »

en su momento use este ocx para visualizar varios tipos de archivos,

El enlace de la descarga es:
http://www.oracle.com/technetwork/middl ... 97435.html

en el apartado que pone: Viewer Technology 8.3.5
Sección: Windows ActiveX (x86-32)

Code: Select all

PROCEDURE VisorDocumentos( nNumDoc )
   LOCAL oWnd, oOcx
   LOCAL cFileTemp, cExtension
   LOCAL cSql, oRow
   LOCAL nShellRet
   LOCAL lCont := FALSE

   WaitOn( "Recuperando archivo para visualizarlo..." )

   cSql := "SELECT TOP 1 NOMBRE, ARCHIVO FROM DOCUMENTOS WHERE NUM_DOCU=%1"
   oRow := KQueryROW( cSql, { nNumDoc } )

   IF HB_IsNil( oRow )
      WaitOff()
      MsgAlert( KErrorText(), "Alerta" )
   ELSE
      cFileTemp  := GetFolderMyTemp() + "\" + RTrim( oRow:NOMBRE )
      cExtension := Upper( cFileExt( cFileTemp ) )

      IF !( StrFile( HB_HexToStr( oRow:ARCHIVO ), cFileTemp ) > 0 )
         WaitOff()
         MsgAlert( "No se pudo extraer documento para visualizarlo.", "Alerta" )
      ELSE
         lCont := TRUE
      ENDIF
   ENDIF

   oRow := NIL

   WaitOff()

   IF !lCont .or. !File( cFileTemp )
      RETURN
   ENDIF

   IF !Empty( cExtension ) .and. cExtension $ "PDF_XLS_DOC_PPT_XLSX_DOCX_PPTX_JPG_PNG_BMP_TXT_RTF"
      nShellRet := ShellExecute( 0, "open", cFileTemp,,, 1 )
      IF nShellRet==31
         MsgAlert( "No existe programa asociado para visualizar el documento.", "Alerta" )
      ENDIF
   ELSE
      IF !IsActiveX( "oixctrl.oixctrl.2" )
         MsgAlert( "Visor no esta registrado en este equipo." + FINL + "Contacte con el administrador.", "Alerta" )
         RETURN
      ENDIF

      DEFINE WINDOW oWnd TITLE "Visor de documentos" ICON GetIcon()

      DEFINE BUTTONBAR OF oWnd 3D SIZE 60, 60 2010
      DEFINE BUTTON NAME "TB_EXIT" OF oWnd:oBar ACTION oWnd:END() PROMPT "&Salir"

      oOcx := TActiveX():new( oWnd, "oixctrl.oixctrl.2" )

      oWnd:oClient := oOcx
      oWnd:SetSize( 800, 600 )

      oOcx:ViewFile( FALSE, cFileTemp )

      ACTIVATE WINDOW oWnd ON INIT oWnd:MAXIMIZE() VALID ( oOcx:Close(), oOcx := NIL, FileDelete( cFileTemp ), TRUE )

   ENDIF

RETURN
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

Nueva version: ver ficheros .dbf

New version: view databases files .dbf

https://bitbucket.org/fivetech/fivewin- ... explor.exe

Image
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

Master,

Image

Saludos.
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

Siempre en el mismo fichero?
Puedes poner el final del fichero hb_out.log?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

Code: Select all

Application Internal Error - C:\FWH\samples\fwexplor.exe
Terminated at: 2016-07-04 12:06:44
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:004367D5
    EAX:00000000  EBX:00000002  ECX:001B6E30  EDX:00000000
    ESI:01B50054  EDI:76280E90  EBP:0012EE04
    CS:EIP:001B:004367D5  SS:ESP:0023:0012EDA8
    DS:0023  ES:0023  FS:003B  GS:0000
    Flags:00210206
    Exception Parameters: 00000000 00000000
    CS:EIP: FF 10 83 C4 08 66 C7 45 E4 0C 00 FF 75 BC E8 1C
    SS:ESP: 001B6E30 00000003 00629298 00000000 00734304 FF000000 00000000 001A3E10 00016A6B 01CD9B9C 00000000 001B6E30 0012FBE4 00562C5F 006D9F18 0012EDB0

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    004367D5 0012EE04   0012EE20 0049EEEC 0000005F 00000000 003F7BCC 00000000 00000000
    0049EEEC 0012EE20   0012EF34 00498D7A 00000003 006C4FCB 00000000 00734304 00000002 00000002 00734758 016022D8
    00498D7A 0012EF34   0012EF44 0040C720 00628D30 00627794
    0040C720 0012EF44   0012EF60 0049EEEC 00000059 00000000 003F7BCC 00000000 0000020A
    0049EEEC 0012EF60   0012F074 00498D7A 00000004 00568537 00000000 00567598 00734304 00000000 0069B590 01CD9B94
    00498D7A 0012F074   0012F084 00411CE8 006C4EA8 006BFBDC
    00411CE8 0012F084   0012F0A4 0049F0A9 00734304 00000051 00000000 003F7BCC 02760010 00000469
    0049F0A9 0012F0A4   0012F1B8 00498E38 00000001 005680B7 00000000 00734304 00000003 01CD9B34 0069B112 01CD9B94
    00498E38 0012F1B8   0012F1E0 004015F8 00568285 005670C8 0049EEEC 0000004D 00000000 003F7BCC 00000000 000000A8
    004015F8 0012F1E0   0012F2F4 00498D7A 00000001 00734304 FFFFFFFE 003F5BD4 00000000 006784B0 89011A04 75C57349
    00498D7A 0012F2F4   0012F32C 0049F265 005680B2 005670C8 00682BFC 00000000 00676680 0049F0A9 00734304 0000004A
    0049F265 0012F32C   0012F440 00498E38 00000002 00687100 00000000 00678B70 0068338C 01CD9944 003F5C34 00000006
    00498E38 0012F440   0012F450 0040F6A4 00682BC2 006761E0
    0040F6A4 0012F450   0012F470 0049F0A9 00734304 00000043 00000000 0149B55C 021D000C 00000643
    0049F0A9 0012F470   0012F584 00498E38 00000001 00685B92 00000000 00678820 00682E96 01CD9A34 003F5AF4 00000003
    00498E38 0012F584   0012F594 0040F98C 00686F1D 006761E0
    0040F98C 0012F594   0012F5B4 0049F0A9 00734304 0000003D 00000000 0149B55C 03CA000C 00000ED3
    0049F0A9 0012F5B4   0012F6C8 00498E38 00000000 00000028 00000100 0057127C 0012F5F4 0012F5E4 004AF295 00000000
    00498E38 0012F6C8   0012F6D8 0040F884 006859C1 006761E0
    0040F884 0012F6D8   0012F6F8 0049EF9C 00500001 00000038 00000000 0149B55C 0126000C 00000BF9


Modules:
00400000 00362000 C:\FWH\samples\fwexplor.exe
771B0000 00143000 C:\Windows\SYSTEM32\ntdll.dll
6CAF0000 0002E000 C:\Program Files\AVG\Av\avghookx.dll
75E20000 000D5000 C:\Windows\system32\kernel32.dll
74400000 0004B000 C:\Windows\system32\KERNELBASE.dll
745A0000 000A1000 C:\Windows\system32\ADVAPI32.DLL
75D70000 000AC000 C:\Windows\system32\msvcrt.dll
74B70000 00019000 C:\Windows\SYSTEM32\sechost.dll
75F10000 000A2000 C:\Windows\system32\RPCRT4.dll
737E0000 00009000 C:\Windows\system32\VERSION.DLL
73670000 00051000 C:\Windows\system32\WINSPOOL.DRV
75C50000 0004E000 C:\Windows\system32\GDI32.dll
74910000 000C9000 C:\Windows\system32\USER32.dll
75F00000 0000A000 C:\Windows\system32\LPK.dll
74650000 0009D000 C:\Windows\system32\USP10.dll
736D0000 00084000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7601.18837_none_ec86b8d6858ec0bc\COMCTL32.DLL
761A0000 0007B000 C:\Windows\system32\COMDLG32.DLL
75BF0000 00057000 C:\Windows\system32\SHLWAPI.dll
74B90000 00C4C000 C:\Windows\system32\SHELL32.dll
73760000 00005000 C:\Windows\system32\MSIMG32.DLL
76240000 0015D000 C:\Windows\system32\OLE32.DLL
75FC0000 0008F000 C:\Windows\system32\OLEAUT32.DLL
73650000 0001C000 C:\Windows\system32\OLEDLG.DLL
73090000 00190000 C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.23407_none_5c02a2f5a011f9be\GDIPLUS.DLL
76220000 0001F000 C:\Windows\system32\IMM32.DLL
75CA0000 000CC000 C:\Windows\system32\MSCTF.dll
72B40000 00040000 C:\Windows\system32\uxtheme.dll
727E0000 00013000 C:\Windows\system32\dwmapi.dll
73400000 0019E000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d\comctl32.DLL
625E0000 00094000 C:\Windows\system32\Msftedit.dll
74160000 0000C000 C:\Windows\system32\CRYPTBASE.dll
73C80000 00017000 C:\Windows\system32\CRYPTSP.dll
73A20000 0003B000 C:\Windows\system32\rsaenh.dll
670D0000 00031000 C:\Windows\system32\msls31.dll
760B0000 00083000 C:\Windows\system32\CLBCatQ.DLL
72650000 00131000 C:\Windows\system32\WindowsCodecs.dll

Called from GDIP_IMAGEFROMFILE(0)
Called from WNDREADPALBMPEX(522) in .\source\function\IMGTXTIO.PRG
Called from TRICHEDIT5:INSERTPICTUREFILE(1129) in .\source\classes\TRICHED5.PRG
Called from VERDOC(168) in D:\FWH\FWHTEAM\SAMPLES\fwexplor.prg
Called from (b)MAIN(79) in D:\FWH\FWHTEAM\SAMPLES\fwexplor.prg
Called from TXBROWSE:CHANGE(1603) in .\source\classes\XBROWSE.PRG
Called from TXBROWSE:GODOWN(3795) in .\source\classes\XBROWSE.PRG
Called from TXBROWSE:KEYDOWN(3065) in .\source\classes\XBROWSE.PRG
Called from TWINDOW:HANDLEEVENT(0)
Called from TCONTROL:HANDLEEVENT(1731) in .\source\classes\CONTROL.PRG
Called from TXBROWSE:HANDLEEVENT(14313) in .\source\classes\XBROWSE.PRG
Called from _FWH(3337) in .\source\classes\WINDOW.PRG
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(1073) in .\source\classes\WINDOW.PRG
Called from MAIN(95) in D:\FWH\FWHTEAM\SAMPLES\fwexplor.prg
------------------------------------------------------------------------
 
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

Siempre en el mismo fichero?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

cnavarro wrote:Siempre en el mismo fichero?

Si, Master.

Voy borrar el fichero. Puede ser que esté dañado.

Saludos.
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

Enviamelo por favor, puede ser las transparencias o el formato de jpg y asi lo analizo
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

cnavarro wrote:Enviamelo por favor, puede ser las transparencias o el formato de jpg y asi lo analizo

Cual tú correo(email) master?

Saludos.
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

Recibido, gracias
Last edited by cnavarro on Mon Jul 04, 2016 6:41 pm, edited 1 time in total.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

Que interessante:

https://www.google.com.br/url?sa=t&rct= ... pRM3oOpJ2A

jejejejejejejeje.
João Santos - São Paulo - Brasil
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

Enviado(send) - saludos.
João Santos - São Paulo - Brasil
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

karinha wrote:Que interessante:

https://www.google.com.br/url?sa=t&rct= ... pRM3oOpJ2A

jejejejejejejeje.
jejejejejeje,, :shock: :P :P :P :P :P
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ver PDF dentro de la aplicación

Post by cnavarro »

El fichero está dañado.
La aplicacion Fotos de Windows 10 no lo puede abrir tampoco
Con qué aplicación lo abres tú?
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Ver PDF dentro de la aplicación

Post by karinha »

és verdad, talvez se puede impedir el error asi:

http://fivewin.com.br/index.php?/topic/ ... ntry273986

Saludos.
João Santos - São Paulo - Brasil
Post Reply