FiveTech Support Forums

Now is working fine after I am using FWH 9.04 + XHarbour Builder Pro Sep08
This is the code:

local hToolBar, hStandard, oMapPoint, nDist, oMap
oActiveX = TActiveX():New( oWnd, "MapPoint.Control.16" )


oMap := oActiveX:Do( "Newmap", 1 )
hToolBar = oActiveX:GetProp( "Toolbars" )
//hStandard = OleGetProperty( hToolBar, "Item", "Standard" )
//OleSetProperty( hStandard, "Visible", .T. )
//oActiveX:GetProp( "Toolbars" )

oMap := oActiveX:ActiveMap()
oStartLocation:= oMap:FindResults("205 Broadway, Lawrence, MA"):Item(1)
oEndLocation:= oMap:FindResults("77 Centre Street, Roxbury, MA"):Item(1)

msgInfo( oMap:Distance( oStartLocation, oEndLocation ), "Distance" )

Thanks everyone for your help.

Regards,

George

George,

Yea!

Just for clarity, I would change this line:

oMap := oActiveX:Do( "Newmap", 1 )

To this:

oActiveX:Do( "Newmap", 1 )

Congratulations on getting it working.

James