FiveTech Software tech support forums

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.

Milan,

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

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.

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

#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


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.

Event supporting is included at March 2006 release

Milan Mehta wrote: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.

Milan,

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

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

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.

Milan,

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

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.

Antonio Linares wrote:Milan,

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

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