ActiveX support!

ActiveX support!

Postby Antonio Linares » Wed Apr 11, 2007 6:15 am

ActiveX support is already working :-)

Now we are building some tests and we will publish a new build asap
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Bill Simmeth » Tue Apr 17, 2007 7:11 pm

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
Bill Simmeth
 
Posts: 42
Joined: Wed Oct 26, 2005 1:20 pm
Location: Marshall, Virginia, USA

Postby Antonio Linares » Wed Apr 18, 2007 2:56 pm

Bill,

We use the same syntax as in FWH. Quite simple :-) :
Code: Select all  Expand view
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ActiveX support!

Postby cdmmaui » Thu Oct 06, 2011 1:58 am

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
*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
User avatar
cdmmaui
 
Posts: 689
Joined: Fri Oct 28, 2005 9:53 am
Location: Houston ∙ Chicago ∙ Los Angeles ∙ Miami ∙ London ∙ Hong Kong


Return to FiveWin for Pocket PC

Who is online

Users browsing this forum: No registered users and 4 guests