Page 1 of 1
Third party ActiveX control users
Posted: Tue Mar 21, 2006 5:09 am
by 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.
Posted: Tue Mar 21, 2006 10:15 am
by Antonio Linares
Milan,
Please upload it to
www.hyperupload.com and post here the download url they provide you. Thanks.
Posted: Tue Mar 21, 2006 11:36 am
by 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.
Posted: Tue Mar 21, 2006 1:04 pm
by 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
#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
Posted: Tue Mar 21, 2006 3:20 pm
by 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.
Posted: Tue Mar 21, 2006 3:51 pm
by ask
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.
Posted: Tue Mar 21, 2006 4:59 pm
by Antonio Linares
Milan,
With the FWH that you are using, please comment this line:
// oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }
Posted: Wed Mar 22, 2006 4:27 am
by 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.
Posted: Wed Mar 22, 2006 8:19 am
by 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.
Posted: Wed Mar 22, 2006 9:16 am
by 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.
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.
Posted: Wed Mar 22, 2006 10:28 am
by Antonio Linares
march build is needed to manage events. For properties and methods, january-february build is ok.