ActiveX support is already working 
Now we are building some tests and we will publish a new build asap
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Pocket PC ActiveX support!
Greetings Antonio,
This is great news!! I look forward to seeing some examples of to implement ActiveX.
Bill Simmeth
Merchant Software Corp
Marshall, Virginia USA
Merchant Software Corp
Marshall, Virginia USA
Bill,
We use the same syntax as in FWH. Quite simple
:
We use the same syntax as in FWH. Quite simple
:#include "FWCE.ch"
function Main()
local oWnd, oActiveX
local cEvents := ""
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "WMPlayer.OCX" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:SetProp( "url", CurDir() + "\clapping.wav" )
oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) }
ACTIVATE WINDOW oWnd ;
VALID ( MsgInfo( cEvents ), .t. )
return nil
function EventInfo( event, aParams, pParams, oActiveX )
local cMsg := "Event: " + cValToChar( event ) + CRLF
local n
cMsg += "Params: " + CRLF
for n = 1 to Len( aParams )
cMsg += cValToChar( aParams[ n ] ) + CRLF
next
return cMsg + CRLF
Dear Antonio,
I am getting an illegal operation trying to perform the following ActiveX call on Win CE 4. What am I doing wrong?
//--------------------------------------------------------------------
DEFINE WINDOW oWnd2 TITLE Ptitle + " - Transmit"
oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" )
oWnd2:oClient = oActiveX
oActiveX:SetProp( "url", , Pdd + cPost + ".HTM" )
ACTIVATE WINDOW oWnd2