Nueva Clase TActiveX en FWH 12.06

[Antonio Linares]

Hemos implementado una nueva Clase TActiveX en FWH 12.06 que debe resolver algunos problemas con Harbour.

Confiamos en publicarla este fin de semana

[lucasdebeltran]

Hola Antonio,

Por favor, ¿podrías comprobar si este código funcioan con FW 12.06?.

Ahora mismo funciona correctamente.

Code: Select all  Expand view

#include "fivewin.ch"



FUNCTION main()


  local cUrl := "https://www.google.es/"
  local cParams := "#hl=es&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40"


  NavegadorWeb( "Titulo Ventana", cUrl, cParams )



RETURN NIL
// ------------------------------------------------------------------------




// ---------------------------------------------------------------------------
FUNCTION NavegadorWeb( cTituloVentana, cServidor, cParametros )


 LOCAL oDlg, oActiveX, lSave := .F.




 // Evito TAB
 //SetKey(VK_TAB, { || Nil })




 DEFINE DIALOG oDlg RESOURCE "NAVEGADORWEB" TITLE cTituloVentana


   REDEFINE ACTIVEX oActiveX ID 201 OF oDlg PROGID "Shell.Explorer"


   REDEFINE BUTTON ID 101 OF oDlg  ACTION( oActiveX:Do( "ExecWB", 6, 1 ) )
   REDEFINE BUTTON ID 102 OF oDlg  ACTION( lSave := .T., oDlg:End() )
   REDEFINE BUTTON ID 103 OF oDlg  ACTION( msgalert("Ayuda") )




   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oActiveX:Do( "Navigate2", cServidor + cParametros )



Return nil
// ---------------------------------------------------------------------------


 

rc:

Code: Select all  Expand view

NAVEGADORWEB DIALOG -1, -27, 501, 310
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_TABSTOP
CAPTION "FOLDER"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 201, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 9, 6, 482, 269
 PUSHBUTTON "&Imprimir", 101, 314, 284, 54, 14
 PUSHBUTTON "&Salir", 102, 377, 284, 54, 14
 PUSHBUTTON "&Ayuda", 103, 439, 284, 54, 14
}
 

Muchas gracias.

[lucasdebeltran]

Te lo subo también a Internet:

http://ul.to/8cdvshc7


El foro cambia el código de

oActiveX:Do

por oActiveX:Do

[lucasdebeltran]

Hola Antonio,

Por favor, ¿lo has podido verificar?.

Muchas gracias,

[Antonio Linares]

Lucas,

Aun estamos haciendo pruebas. Nos falta completar algunos métodos.

En FWH 12.06 vamos a incluir la anterior clase TActiveX, que funciona muy bien, y la nueva THActiveX que puede solucionar algunos problemas que pueden presentarse ocasionalmente.

[lucasdebeltran]

Antonio,

Estupendo, creo que es la mejor decisión.

Por cierto, ¿para cuándo estará disponible FW 12.06?.
Un saludo,

[Antonio Linares]

Hemos incluido un ejemplo completo del uso del scheduler de CodeJock y estamos finalizando las pruebas con la versión demo de CodeJock y listo, publicaremos la 12.06

[lucasdebeltran]

Antonio,

Por favor, ¿podríais también adjuntar la dll de la trial version de Codejock?.

Muchas gracias.

[Antonio Linares]

El problema es que con la versión de pruebas no funciona, posiblemente porque indicamos mal la licencia demo.

Con la versión comercial y su licencia, funciona correctamente

[lucasdebeltran]

Antonio,

En la versión demo no hay que indicarle ningún código.

Hay que registrar la DLL y da 30 días de evaluación. Y salta siempre el aviso al inicio de que es una demo.

¿Se puede poner el calendario en Castellano?.

Muchas gracias.

[Antonio Linares]

Lucas,

Asi es como funciona con la versión comercial:

CreateObject( "CodeJock.CalendarGlobalSettings.15.0.1" )

Qye cadena hay que usar para la versión demo ?

[lucasdebeltran]

Antonio,

Creo que el OCX de la demo es distinto:

"15.0.1")

Hay que ajustar eso a la versión demo disponible.

[Antonio Linares]

Esa es la cuestión, cual ?

[lucasdebeltran]

Antonio,

Cuando se registra un .ocx con regserver32. ¿cómo se ven los instalados en el sistema?.

Muchas gracias.

[Antonio Linares]

Si tienes instalado Office (yo no lo uso, uso Google Docs) puedes entrar en el entorno de programación y desde ahi puedes revisarlos