ups otra vez yo con otro problemita con el PDF

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

ups otra vez yo con otro problemita con el PDF
Posted: Wed Nov 05, 2008 04:42 AM

HOLA

OTRA VEZ DANDO LATA

Vi el ejemplo PDF.PRG y lo acople a mi programita todo funciona bien abre y presenta muy bien el archivito .PDF pero si quiero abrirlo por segunda vez, ya no responde tengo que cerrar el programa para que pueda abrirlo por segunda ocasión

Que tengo que hacer para que pueda abrir el archito.pdf cuanta veces quiera sin tener que cerrar el programita.

Este es el ejemplo a si lo use sin modificar nada

Saluditos

Code: Select all Collapse

// FiveWin ActiveX support demo - Using Adobe Acrobat Reader

#include "FiveWin.ch"

function Main()

   local oWnd, oBtn

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
   
   @ 2, 2 BUTTON oBtn PROMPT "Show PDF" SIZE 80, 20 ACTION ShowPDF( oWnd, oBtn )

   ACTIVATE WINDOW oWnd 

return nil

function ShowPDF( oWnd, oBtn )

   local oActiveX
   
   oActiveX = TActiveX():New( oWnd, "AcroPDF.PDF.1" ) // Use "AcroPDF.PDF.1" for Acrobat Reader 7 

   oWnd:oClient = oActiveX // To fill the entire window surface

   oActiveX:Do( "LoadFile", "fwintro.pdf" )
   oActiveX:Do( "SetCurrentPage", 1 )
   
   oBtn:Hide()
   oWnd:ReSize()

return nil

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

ups otra vez yo con otro problemita con el PDF
Posted: Wed Nov 05, 2008 10:16 AM

Aida:

function ShowPDF( oWnd, oBtn )

local oActiveX

oActiveX = TActiveX():New( oWnd:oWndClient, "AcroPDF.PDF.1" ) // Use "AcroPDF.PDF.1" for Acrobat Reader 7

oWnd:oClient = oActiveX // To fill the entire window surface

oActiveX:Do( "LoadFile", "fwintro.pdf" )
oActiveX:Do( "SetCurrentPage", 1 )

oBtn:Hide()
oWnd:ReSize()

return nil

Aida, para abrir outro documento experimente finalizar o objeto exemplo:
oActiveX:end()
Veja se funciona !

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLA
Posted: Wed Nov 05, 2008 06:15 PM

Gracias SGS

Ya intente usando oActiveX:end() pero no funciona :cry:

Debe ser de otra manera, alguien del foro que sepa y que me pueda indicar que hacer porfis

Saluditos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

ups otra vez yo con otro problemita con el PDF
Posted: Wed Nov 05, 2008 09:17 PM

Hola Aída:
Yo lo hago de la siguiente manera y me abre el fichero cuantas veces quiera en ventanas diferentes:

Code: Select all Collapse

..................

    REDEFINE BUTTONBMP oBj5[2]  ID 502 OF oDlg;
              ACTION (VerPDF(DOCU->Ubicado),oBj5[9]:SetFocus());
              BITMAP "VER" PROMPT "    Ver" TEXTRIGHT

.......................
*********************************
 STATIC FUNCTION VerPDF(cFichero)
*********************************
Local oDlg, oActiveX
//
DEFINE DIALOG oDlg RESOURCE "IMAGEN2" TITLE cFichero
oDlg:lHelpIcon:=.F.
REDEFINE ACTIVEX oActiveX ID 800 OF oDlg PROGID "AcroPDF.PDF.1"
ACTIVATE DIALOG oDlg  CENTERED ;
ON INIT (oActiveX:Do( "LoadFile", cFichero ),oActiveX:Do( "SetCurrentPage", 1 )  ) NOMODAL

RETURN NIL


Nota: el ID 800 es un objeto TBitmap dentro del diálogo IMAGEN2

De cualquier manera, por si se sirve de algo, prefiero abrir los archivos usando ShellExecute, que permite abrir cualquier archivo que tenga asociada una aplicación en windows (.pdf, .jpg,.xml,.doc,.....)

ShellExecute( ,"open", DOCU->Ubicado,,,1 )

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLA
Posted: Fri Nov 07, 2008 12:24 AM

Gracias Manuel

Pondre atencion a tu ejemplo y lo pondre en practica y te comento despues como me fue.

te agradesco mucho

Saludos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLA MUCHAS GRACIAS
Posted: Fri Nov 07, 2008 03:05 AM

Gracias Manuel

Si funciono muy bien muchas gracias por tu ayuda

una preguntita mas, se puede hacer que el control del bitmap
donde sale el pdf se pueda maximizar :roll:

Gracias por todo

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

ups otra vez yo con otro problemita con el PDF
Posted: Fri Nov 07, 2008 05:40 PM

Hola de nuevo Aida:

Para poder maximizar tendrías que hacerlo en una ventana windows. Algo así como esto:

Code: Select all Collapse

************************
function VerPDF(cFichero)
************************
 local oWnd, oActiveX

 DEFINE WINDOW oWnd TITLE "Ver archivo PDF"
     oActiveX = TActiveX():New( oWnd, "AcroPDF.PDF.1" )
     oWnd:oClient = oActiveX 
     oActiveX:Do( "LoadFile", cFichero )
     oActiveX:Do( "SetCurrentPage", 1 )
 ACTIVATE WINDOW oWnd

return nil

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLA
Posted: Sat Nov 08, 2008 08:45 PM

Gracias

hare una pruebita y si no me quedo con el primer ejemplo que funciona muy bien

Gracias

Saluditos :wink:

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion