ActiveX

[Pablo César]

Is there any function in Harbour equivalent IsActivex() of FiveWin ?
I would like to know if Adobe is already installed before execute load() of object of TActiveX() ?
I have looking for a solution but I dont foud it, like this in FiveWin:

Code: Select all

    Function test PDFActivex(oWnd)
       MyProgID := ""
       if IsActivex( "PDF.PdfCtrl.1" ); MyProgID := "PDF.PdfCtrl.1"; endif
       if IsActivex( "PDF.PdfCtrl.2" ); MyProgID := "PDF.PdfCtrl.2"; endif
       if IsActivex( "PDF.PdfCtrl.3" ); MyProgID := "PDF.PdfCtrl.3"; endif
       if IsActivex( "PDF.PdfCtrl.4" ); MyProgID := "PDF.PdfCtrl.4"; endif
       if IsActivex( "PDF.PdfCtrl.5" ); MyProgID := "PDF.PdfCtrl.5"; endif
       if IsActivex( "PDF.PdfCtrl.6" ); MyProgID := "PDF.PdfCtrl.6"; endif
       if IsActivex( "PDF.PdfCtrl.7" ); MyProgID := "PDF.PdfCtrl.7"; endif
       if Empty( MyProgID )
          MsgStop( 'No PDF Activex installed' )
          return .f.
       endif
       ActiveX = TActiveX():New( oWnd, MyProgID )
       return .t.

There are also in Java, VBasic and JScript but I do not found for Harbour. Otherwise system is reporting error:

Error WINOLE/1009 No exported method: LOADFILE (DOS Error -2147352570)

Called from TOLEAUTO:LOADFILE(0)
Called from FOPENACTIVEX(69)

[Pablo César]

I did not know that GetActiveObject() also existed in the Harbour ... so it was easy to implement with my own function of IsActivex() and created and new command just to make equivalence from xHarbour to Harbour with TRY / CATCH by BEGIN SEQUENCE / RECOVER and the code stayed like this:

Code: Select all

#xcommand TRY              => BEGIN SEQUENCE WITH { |e| break( e ) }
#xcommand CATCH [] => RECOVER [USING ] <-oErr->

..//..
   MyProgID := ""
   For i=1 to 9
       if IsActivex( "PDF.PdfCtrl."+Str(i,1,0) ); MyProgID := "PDF.PdfCtrl."+Str(i,1,0); endif
   Next
   if IsActivex( "AcroPDF.PDF.1" ); MyProgID := "AcroPDF.PDF.1"; endif
   If Empty( MyProgID )
      MsgStop( 'Deve instalar o Adobe Reader !' )
      Return .f.
   Endif
..//..

FUNCTION IsActivex(cACTIVEX)
TRY
   oWord := GetActiveObject( cACTIVEX )
CATCH e
   TRY
      oWord := CreateObject( cACTIVEX )
   CATCH e
      RETURN(.F.)
   END
END
RETURN(.T.)

Who is interested to see how it is, see at this new topic: http://hmgforum.com/viewtopic.php?f=9&t=2130

[tave2009]

Hola Pablo,
Excelente !
Aquí hay un Activex gratis. Generador de reportes, Vista previa e Impresión http://www.catchysoft.com/
Muy simple pero efectivo.
Si alguien tiene otro link que lo publique. Gracias.
Saludos.
Walter

[Pablo César]

Gracias Walter, muy interesante !