ActiveX experiments

[esgici]

Hi all

In version 2.5.1 ( at July 15, 2008 ) Roberto introduced a new control : ActiveX. IMHO this is one of most important
advancements in HMG. Running IE, WMPlayer, Flash Player and Acrobat Reader into my program, this is wonderful !

I feel, with this new control there are many duties I can do. Roberto also give us examples (unfortunately only seven samples ). Problem is that I don't know almost anything ActiveX . From wasted years with VB left only hate in hand. "Do you want writing report?, use this .ocx !" Do you want open a table?, use this .ocx !" " Do you want build a list on a table?, use that .ocx !" " Do you want printing?, use that .ocx !"... etc.

Without understanding I may use a tool, but can't develop its usage. For example: in PROGID "shell.explorer.2" clause, what is meanings of "shell", "explorer" and "2" ? Does "explorer" stand for IE or Windows Explorer ? Instead of "2", can I specify 1, 3, 4, 5 ... and what will happen ?

This questions and similar ones are completely out of HMG. For responding an adequate Window Programing education is mandatory. I don't know there is anyone who have sufficent time for this.

The question I want to ask is : there isn't anyone experimented with ActiveX and want share with us

Regards

[luisvasquezcl]

Hello Esgici,
I think your words represent the feelings of many in this group.
You're right that the ActiveX control opens a whole new range of possibilities; unfortunately just as you believe that there was much that we have no clear theme and we will have to be investigated in order to learn to use it.
I think that will investigate and share knowledge.
Sincerely

Luis Vasquez.

[Rathinagiri]

Rightly said Esgici.

ActiveX is like a black underground world. Whatever you get may seem to be gold, but it is not so.

It increases the possibilities, yes. And also it creates dependencies on other system files which might not have been installed in the user's system.

It is a long way to go.

Also, I heard that, ActiveX controls are more prone to viruses. Is it so?

[andyglezl]

Demo.ACTIVEX.rar

(471.46 KiB) Downloaded 478 times

No se que pasó, pero parece que ya funciona...
---------------------------------------------------------------------
Do not know what happened, but it seems longer works ...

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Re: ActiveX experiments
Postby Rathinagiri » Sat Aug 09, 2008 3:57 am

Rightly said Esgici.

ActiveX is like a black underground world. Whatever you get may seem to be gold, but it is not so.

It increases the possibilities, yes. And also it creates dependencies on other system files which might not have been installed in the user's system.

It is a long way to go.

Also, I heard that, ActiveX controls are more prone to viruses. Is it so?

Bueno, estuve experimentando con el control ActiveX, y aquí les dejo un DEMO de lo que he visto.
( me enfoque mas en el RICHTEXTCTRL ). espero que les sea de utilidad y que entre todos sigamos mejorandolo.
--------------------------------------------------------------------------------------------------------------------------------------
Well, I experimented with the ActiveX control, and here I leave a DEMO of what I've seen.
(I focused more on the RichtextCtrl). hope you find it useful and that we all continue improving it.

ActiveX2.jpg (344.32 KiB) Viewed 7535 times

[danielmaximiliano]

Gracias por compartir ...
probando en 3. 2. 1......


1-11-2014- 21:15 compilacion ok. ejecucion con fallo...

la linea en cuestion es esta FormMain.RICHTEXT.Object:AutoVerbMenu:=.T.

Date:11/11/14 Time: 21:09:05
Error WINOLE/1008 No exported variable: AUTOVERBMENU (DOS Error -2147352570)

Called from TOLEAUTO:_AUTOVERBMENU(0)
Called from MAIN(35)

HMG.3.3.1 con patch 3 Windows 7 Home Premiun 64 bits.
la compilacion la hice en 32 bits.. voy a probar en 64 y comento...

[danielmaximiliano]

Hola Esgici y demas amigos de HMG.

no habia visto este tema pot algun motivo.... estoy utilizando un .ocx provisto por la empresa Hasar que vende impresoras fiscales en Argentina, estas impresoras son usadas por contribuyentes y queda registrada en su memoria interna por 10 años los datos que son impresos en el Ticket de venta de articulos...
yo usaba antes una libreria dinamica (.dll) provista por este mismo fabricante y hacia esto...

Code: Select all

#include 'hmg.ch'
Function Main 
public nHandler 
....
   If ( AbrirPuerto( .F. ) )     /* conecta la impresora a Comm1 */
       Principal.Center
       Principal.Activate
   Endif
....
Return

*-------------------------------------------------------------*
Function AbrirPuerto( lRetorno )
*-------------------------------------------------------------*
nHandler := CallDll32( "OpenComFiscal" , "WINFIS32.DLL" , 1 , 0 )

    If nHandler >= 0 
       Principal.StatusBar.Item(2) :="Puerto de impresora OK "
       nError := CallDll32( "InitFiscal"    , "WINFIS32.DLL" , nHandler )
       If nError = 0
         lRetorno :=  .T.
       Else 
         alerror( nError )
         Principal.StatusBar.Item(2) := " La impresora no se puede Inicializar"   
          lRetorno := .T.  
       Endif
   Else
    alerror( nHandler )
    Principal.StatusBar.Item(2) :=" Hubo un error de abrir puerto Comm "
    lRetorno := .T.      
   Endif

Return ( lRetorno )

al utilizar el componetes COM+ (.ocx) se utiliza de esta manera..

Code: Select all

#include 'hmg.ch'

#define c715F 'HASAR.Fiscal.1'
Function Main
Public  o715F 
Crea715f( )
....
...
Return 

*------------------------------------------------------------------------------*
Function Crea715f( )
*------------------------------------------------------------------------------*
Return
    IF ( o715F := CreateObject( c715F ) ) != NIL
       o715F:puerto := 1
	   If ( cModelo := o715F:AutodetectarModelo( ) ) != NIL
		      PrincipalOCX.STATUSBAR.Item(2) := 'Impresora ' + Alltrim ( cModelo ) + ' Conectada a  ' + ;
			                                     Alltrim ( STR ( nPuerto ) )
		    else 	
			  PrincipalOCX.STATUSBAR.Item(2) := 'Impresora desconocida ' + ' Conectada a COM1 ' 
       EndIf
    Else
		Msgbox ( ' No se puede inicializar la IMPRESORA ' , ' Mensaje de error !!! ' )
    endIf				   

no he notado diferencias en velocidad de ejecucion sino simplicidad en la comunicacion en todos los metodos asociados al objeto que encapsula el .ocx
igualemente tanto el .dll y el .ocx necesita estar registrado en Windows ....

[andyglezl]

Hola Max, se supone que esta linea te muestra el menu contextual.
Si la pones como comentario a ver que pasa ?
----------------------------------------------------------------------------------
Hi Max, this line is supposed to show you the shortcut menu.
If you put it as a comment and see what happens?

ActiveX3.jpg (245.62 KiB) Viewed 7484 times

Yo estoy utilizando HMG.3.3.1 con patch 3 Windows 7 PRO 32 bits.

[danielmaximiliano]

Hola Andres...
sigue con la linea siguiente el error... ahora da linea 36 y hay esto

Code: Select all

_DefineActivex("RICHTEXT", "FormMain", 295, 000, 660, 410, "RICHTEXT.RichtextCtrl" )				//  OK
	//	FormMain.RICHTEXT.Object:AutoVerbMenu:=.T.  // Cut, Copy, Paste    									//  OK
		FormMain.RICHTEXT.Object:LoadFile( "SPA.rtf", 0 ) // 0=RTF File  1= Tex File   

debe ser error del activeX RichTEXT que no debe existir en mi maquina.. mañaña voy a buscar info
igual gracias

[andyglezl]

guiado por la lógica, creo que se deberá tener instalado el FLASH PLAYER, IEXPLORER y OFFICE
para poder probarlo.
------------------------------------------------------------------------------------------------------------------
guided by logic, I think you should have installed FLASH PLAYER, IEXPLORER and OFFICE to try.

[Agil Abdullah]

Hi Andy,

Excellent demo.... Thanks.
--------------------------------------------------------------------------------------------------------

Hi Daniel,

I Don't speak Spanish/Portugese, could you explain what you were discussing?... Thanks