Problem getting an ActiveX component to work

[HennekensSM]

Hello,

Just a few days a purchased an update of Fivewin in order to add GIS functionality to my program. The ActiveX component in questiopn is MapObjects. Most of the code seems to work fine (including events), but at one point I have no clue how to proceed. Please review the code below.

Regards,
Stephan

FUNCTION GIS()
LOCAL oWnd, oWndChild, oMap
LOCAL cEvents := ""
LOCAL oLayer, hLayers, nLayers
LOCAL hItem

DEFINE WINDOW oWndChild MDICHILD OF oWndMain()

oMap = TActiveX():New(oWndChild, "MapObjectsLT2.Map.1")

oMap:SetProp("Appearance", 1) // 3D
oMap:SetProp("ScrollBars", 1) // TRUE


oLayer := CreateObject("MapObjectsLT2.MapLayer")
oLayer:File := "d:\synbiosys\kaarten\prov2002.shp"

hLayers := oMap:GetProp("Layers")
// nLayers := OleGetProperty(hLayers, "Count")

// now we need to add the layer objects to the layers collection.
// using a VB-alike syntax it would be like 'oMap:Layers:Add(oLayer)'
// There is handle to the layers collection, hLayer, but how to add a layer
// to the layers collection????


oWndChild:oClient := oMap
oWndChild:Resize()

oWndChild:bResized := {|| oMap:Do("Refresh") }

oWndChild:bValid := {|| oMap:End(), oMap := NIL, TRUE }

RETURN(NIL)

[Silvio]

where I can found MapObjects ?

[HennekensSM]

http://www.esri.com/getting_started/dev ... jects.html

The lite version can be distributed royalty free.

I use MapObjects successfully with e.g Delphi, now I wish to include it in one of my Fivewin programs.

Regards,
Stephan

[Silvio]

can I see a function for delphi to translate in fw ?
you Know all methods of this activex

[HennekensSM]

Silvio,

as you have seen I got stuck with one important issue. I hope someone can help me out there. Before that I can not provide you with a working sample.


Regards,
Stephan

[Antonio Linares]

Stephan,

Please try this:

hLayers := oMap:GetProp("Layers")

OleInvoke( hLayers, "Add", oLayer )
// oMap:Layers:Add(oLayer)'

[HennekensSM]

Antonio,

I thing we made a step forward, but it's GPF's before showing the map. Scrollbars however already appear.

Regards,
Stephan

[Silvio]

I download Lt and install
I compiled your source test
it not found activex
you have the same error ?

[HennekensSM]

No, it does find the ActiveX component. For example CreateObject("MapObjectsLT2.MapLayer") works fine.

Stephan

[Silvio]

I have insert this but it call the activex copyright and then I can see only a white box

if you send me the completely test sample I can understand ...

[Silvio]

Antonio

can you help u please ?

[Antonio Linares]

Stephan,

What source code line is executing when it GPFs ?

[Silvio]

it not run DO method

Code: Select all  Expand view  RUN


  #include "FiveWin.ch"

   function Main()

      local oWnd, oActiveX,oLayer
      local cEvents := ""

      DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Gis Support"

      oActiveX = TActiveX():New( oWnd, "MapObjectsLT2.Map.1" )

      oWnd:oClient = oActiveX // To fill the entire window surface

      oActiveX:SetProp("Appearance", 1) // 3D
      oActiveX:SetProp("ScrollBars", 1) // TRUE

      oLayer := CreateObject("MapObjectsLT2.MapLayer")

      oLayer:Do( "Add", "d:\gis\karten\provincies.shp" )


     * hLayers :=  oActiveX:GetProp("Layers")
      * nLayers := OleGetProperty(hLayers, "Count")



     ACTIVATE WINDOW oWnd
                                                                                           
   return nil                                       


Application
===========
Path and name: C:\work\gis\gis.Exe (32 bits)
Size: 442,368 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 01/30/07, 13:49:27
Error description: Error MapObjectsLT2.MapLayer/16389 E_FAIL: DO
Args:
[ 1] = C Add
[ 2] = C d:\gis\karten\provincies.shp

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:DO(0)
Called from: gis.prg => MAIN(20)

[Antonio Linares]

Silvio,

CreateObject() returns an OLE object, not an ActiveX object that supports Do(). It has to be done the way we have pointed:

hLayers := oMap:GetProp("Layers")
OleInvoke( hLayers, "Add", oLayer )

[Silvio]

Now run ok

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

   function Main()

      local oWnd, oActiveX,oLayer
      local cEvents := ""

      DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Gis Support"

      oActiveX = TActiveX():New( oWnd, "MapObjectsLT2.Map.1" )

      oWnd:oClient = oActiveX // To fill the entire window surface

      oActiveX:SetProp("Appearance", 1) // 3D
      oActiveX:SetProp("ScrollBars", 1) // TRUE

      oLayer := CreateObject("MapObjectsLT2.MapLayer")
      oLayer:File := "d:\gis\sez_bari.shp"

       hLayers := oActiveX:GetProp("Layers")
       OleInvoke( hLayers, "Add", oLayer )

      oWnd:Resize()

      oWnd:bResized := {||  oActiveX:Do("Refresh") }

         ACTIVATE WINDOW oWnd
       return nil


Stephan,

the method refresh not run ok

How I can make to zoom it ?