Third party ActiveX control users

[Milan Mehta]

Hello All,

Has anybody used third party ActiveX control with FWH application ? I need help to use the same. I need to send the control (ocx) file to private mail as it is little bigger and cannot be post here.

Expecting kind co-operation,

Milan.

[Antonio Linares]

Milan,

Please upload it to www.hyperupload.com and post here the download url they provide you. Thanks.

[Milan Mehta]

Hello Antonio,

This is the link
http://hyperupload.com/download/3eed9f9 ... l.zip.html

It contains the activex control (demo version) along with its documentation. Any help would be highly appreciated.

TIA
Milan.

[Antonio Linares]

Milan,

Here you have a working sample using that ActiveX. Remember you have to do a regsvr32.exe GSN.ocx to register it in your computer, before using it. Also, you may register it from your application (do a search on these forums for regsvr*)

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX
   local cEvents := ""

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

   oActiveX = TActiveX():New( oWnd, "GSN.GSNCtrl.1" )
   oActiveX:nWidth = 0
   oActiveX:nHeight = 0

   oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

   @ 3, 3 BUTTON "About" ACTION oActiveX:Do( "AboutBox" ) SIZE 80, 25

   ACTIVATE WINDOW oWnd ;
      VALID ( MemoEdit( cEvents ), .t. )

return nil

function EventInfo( event, aParams )

   local cMsg := "Event: " + cValToChar( event ) + CRLF
   local n
   
   cMsg += "Params: "
   
   for n = 1 to Len( aParams )
      cMsg += cValToChar( aParams[ n ] ) + CRLF
   next

return cMsg + CRLF


[Milan Mehta]

Dear Antonio,

Greattttt ! Now I am lot more hopeful about the possibilities.

But in the working sample of yours I get following error. Mine is Nov-2005 buid of FWH.

Error description: Error BASE/1005 Message not found: TACTIVEX:_BONEVENT

Stack Calls
===========
Called from: => TACTIVEX:ERROR(175)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TACTIVEX:MSGNOTFOUND(0)
Called from: ACTIVEX.PRG => TACTIVEX:_BONEVENT(167)
Called from: R.PRG => MAIN(14)

Eagerly awaiting your reply.

Milan.

[ask]

Event supporting is included at March 2006 release

Dear Antonio,

Greattttt ! Now I am lot more hopeful about the possibilities.

But in the working sample of yours I get following error. Mine is Nov-2005 buid of FWH.

Error description: Error BASE/1005 Message not found: TACTIVEX:_BONEVENT

Stack Calls
===========
Called from: => TACTIVEX:ERROR(175)
Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105)
Called from: => TACTIVEX:MSGNOTFOUND(0)
Called from: ACTIVEX.PRG => TACTIVEX:_BONEVENT(167)
Called from: R.PRG => MAIN(14)

Eagerly awaiting your reply.

Milan.

[Antonio Linares]

Milan,

With the FWH that you are using, please comment this line:

// oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

[Milan Mehta]

Dear Antonio,

Ok. What are the advantages of Mar-2006 release as regards ActiveX control ? Will it be beneficial to me t buy that one ?

TIA
Milan.

[Antonio Linares]

Milan,

FWH march build has support for ActiveX events management. If you need to manage ActiveX events, then you need the march build.

[Milan Mehta]

Dear Antonio,

I do want to use the methods of the class (and also property). Will I need March build for that ?

Just guide me further.

TIA
Milan.

Milan,

FWH march build has support for ActiveX events management. If you need to manage ActiveX events, then you need the march build.

[Antonio Linares]

march build is needed to manage events. For properties and methods, january-february build is ok.