MapForums

Started getting a really weird error today. This is a VB6 add-in. Error occurs with MapPoint 2006, but not 2004. I've tried completely uninstalling and re-installing MapPoint 2006.

I have code that is reading some waypoint data. First waypoint, I can read the name, time, distance, etc. fine.
But as soon as I try to access the Waypoint.Location property I get an Exception -21474188113 (8000FFFF) and one of two messages: usually "Method '~' of object '~' failed", or occasionally one that talks of a catastrophic COM error.

It smells of a bad COM reference, or a reference to a COM library that has changed.
However I can't see what it is, and uninstalling, rebooting and re-installing should fix it but doesn't.

I'm building against MapPoint 2002, but that has been fine for 2002/4/6 operations in the past.

Has anyone seen anything like this? It is really strange. I'm beginning to think that recent Microsoft updates might have broken something?


Richard

__________________
Winwaed Software Technology LLC
http://www.winwaed.com
See http://www.mapping-tools.com for MapPoint Tools
See the Geoweb Guru for online mapping

One thought is that I've had to switch from my original disks to the ones supplied in the Action Pack because one of the original disks died on me.

However this should be identical - there's nothing to suggest it isn't.
The Action Pack ships with build 13.00.15.2800.

Richard

__________________
Winwaed Software Technology LLC
http://www.winwaed.com
See http://www.mapping-tools.com for MapPoint Tools
See the Geoweb Guru for online mapping

I'm not sure if I understand why it suddently started failing, but it now looks like a data problem (in two different map files!?) and I have a workaround.
Instead of using the Waypoint.Location property, I am now using the Anchor property. The troublesome waypoint returns a duff Location object, but has a null object for the Anchor property. The following works:


Dim obj As Object
Set obj = oRoute.Waypoints.Item(iWay).Anchor

If (obj Is Nothing) Then
Set oPin = Nothing
ElseIf (TypeOf obj Is MapPoint.Pushpin) Then
Set oPin = obj
Else ' Location
Set oLoc = obj
' Do something cunning and proprietary with oLoc, here
End If


Richard

__________________
Winwaed Software Technology LLC
http://www.winwaed.com
See http://www.mapping-tools.com for MapPoint Tools
See the Geoweb Guru for online mapping