ThinkGeo.com    |     Documentation    |     Premium Support

InMemoryMarkerOverlay causes errors

#1

I am using a custom image marker overlay on my maps. The overlay is shown down to specified zoom level, then I switch to a different overlay. The high level marker overlay causes errors when using any buttons with server side calls. The error I get is very vague:



 



 


Server Error in '/' Application. 


Error binding to target method.



 


Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 



Exception Details: System.ArgumentException: Error binding to target method.



Source Error: 




    
        
            An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.
        
    



Stack Trace: 




    
        
            
            
[ArgumentException: Error binding to target method.]
   System.Delegate.CreateDelegate(Type type, Object target, String method, Boolean ignoreCase, Boolean throwOnBindFailure) +7575934
   System.Delegate.CreateDelegate(Type type, Object target, String method) +12
   ThinkGeo.MapSuite.WebEdition.MarkerOverlay.x7f7af3ab7e11f7b1(Object x28db80135f012008) +160
   ThinkGeo.MapSuite.WebEdition.Map.x8fada0c5bad2e61c() +362
   ThinkGeo.MapSuite.WebEdition.Map.LoadViewState(Object savedState) +264
   System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +183
   System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +134
   System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +221
   System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +134
   System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +221
   System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +134
   System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +221
   System.Web.UI.Control.LoadChildViewStateByIndex(ArrayList childState) +134
   System.Web.UI.Control.LoadViewStateRecursive(Object savedState) +221
   System.Web.UI.Page.LoadAllState() +312
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +1661

            
        
    


 


 Here is the code I am using to build the overlay:                          Dim immO As New InMemoryMarkerOverlay("mapMarkers")


    Private Sub DefineIndoorMapMarkerLayer()

        'Define imm (indoor map marker) layer

        immO.IsBaseOverlay = False

        immO.FeatureSource.Open()


        'Set display options

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage = New WebImage("../media/images/blueprint_60.png", 50, 55, -10.5F, -25.0F)

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.Popup.AutoSize = True

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.Popup.ContentHtml = "[#MAPNAME#]"

        immO.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level14


        Dim colMAPNAME As New FeatureSourceColumn("MAPNAME")

        immO.Columns.Add(colMAPNAME)

    End Sub


    Protected Function AddIndoorMapMarker(ByVal mapMarkerOverlay As InMemoryMarkerOverlay, _

                                      ByVal Lon As Double, ByVal Lat As Double, _

                                      ByVal MapName As String) As InMemoryMarkerOverlay

        'mapMarkerOverlay.Markers.Add(New Marker(Lon, Lat, New WebImage("/theme/default/img/ap_60.png", 21, 25, -10.5F, -25.0F)))


        Dim values(0) As String

        values(0) = "MAPNAME:" & MapName.Trim


        Dim fMap As New Feature(New Vertex(Lon, Lat), MapName.Trim, values)

        mapMarkerOverlay.Features.Add(fMap)


        Return mapMarkerOverlay


    End Function





'Called from another sub:

        DefineIndoorMapMarkerLayer()


        immO = AddIndoorMapMarker(immO, -119.764329, 39.446474, "Reno Office")


        thisMap.CustomOverlays.Add(immO)


What am I doing wrong here? I guess I will try to use a simple marker overlay for now and just leave it there for low zoom levels.


 


 




#2

Here is my code: 


Dim immO As New InMemoryMarkerOverlay("mapMarkers")


    Private Sub DefineIndoorMapMarkerLayer()

        'Define imm (indoor map marker) layer

        immO.IsBaseOverlay = False

        immO.FeatureSource.Open()


        'Set display options

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage = New WebImage("../media/images/blueprint_60.png", 50, 55, -10.5F, -25.0F)

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.Popup.AutoSize = True

        immO.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.Popup.ContentHtml = "[#MAPNAME#]"

        immO.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level14


        Dim colMAPNAME As New FeatureSourceColumn("MAPNAME")

        immO.Columns.Add(colMAPNAME)

    End Sub


    Protected Function AddIndoorMapMarker(ByVal mapMarkerOverlay As InMemoryMarkerOverlay, _

                                      ByVal Lon As Double, ByVal Lat As Double, _

                                      ByVal MapName As String) As InMemoryMarkerOverlay

        'mapMarkerOverlay.Markers.Add(New Marker(Lon, Lat, New WebImage("/theme/default/img/ap_60.png", 21, 25, -10.5F, -25.0F)))


        Dim values(0) As String

        values(0) = "MAPNAME:" & MapName.Trim


        Dim fMap As New Feature(New Vertex(Lon, Lat), MapName.Trim, values)

        mapMarkerOverlay.Features.Add(fMap)


        Return mapMarkerOverlay


    End Function




'Called from another sub:

        DefineIndoorMapMarkerLayer()


        immO = AddIndoorMapMarker(immO, -119.764329, 39.446474, "Reno Office")


        thisMap.CustomOverlays.Add(immO)



#3

David, 
  
 Through the call stack, I can only find the issue is caused by the events of your map; I’m not sure if you hooked some events on markers or context menus or etc. Please provide us a small demo to help us recreate your issue. 
  
 Thanks and let me know if you have more questions. 
  
 Thanks, 
 Howard

#4

I am trying to hook an event to the marker layer to zoom to the extent of the lower level map when you click on the marker. However this is not active in my code. There is an event section i the mapbuilder class that shows what I want to do with that. Again, this is not set up in any of my current pages and I still get the exception when using any button. The sample demonstrates this. Thanks for your help.


*Trying to upload my sample project, but max file size is 500K. My zip is 5MB.



#5

How do I upload a file larger than 500KB?

#6

David, 
  
 Please send your project to support@thinkgeo.com and ask them to forward to me, I’ll check this issue out then. 
  
 Thanks, 
 Howard

#7

Just emailed. Thanks Howard



#8

David, 
  
 I’ll check it out when I receive your files. Thanks. 
  
 Howard

#9

Support informed me that they forwarded yesterday afternoon.



#10

David,


This issue is caused by the event handler cannot be found in the context of the nomaster.aspx.vb. By a normal web control, the event is hooked when the control is initialized; but on our control it’s not a easy to understand to write code in that step of life circle. So we simulate hooking the event in the runtime. Whenever doing a postback, the event will lost; even if a normal web control such as a button. So we need to re-hook the event again. In you application, adding a popup is a postback operation and we are trying to find the event handler back in current context, but it’s not there; so this issue happened.


To solve this issue, please copy the following code from nexrfmapbuilder.vb to nomaster.aspx.vb:

Private Sub immOverlay_Click(ByVal sender As Object, ByVal e As MarkerOverlayClickEventArgs)
        Dim immOverlay As InMemoryMarkerOverlay = Map1.CustomOverlays("indoorMapMarkers")
        immOverlay.FeatureSource.Open()
        Dim featureClicked As Feature = immOverlay.FeatureSource.GetFeatureById(e.FeatureId, New String() {"MAPNAME"})
        Dim mmPoint As PointShape = featureClicked.GetShape.GetCenterPoint
        Dim endPoint As PointShape = mmPoint.CloneDeep
        endPoint.TranslateByOffset(0.001, -0.001)

        Dim featureExtent = New RectangleShape(mmPoint, endPoint)
        Map1.CurrentExtent = featureExtent
End Sub 


Hope you understand; and use this trick temporary. I think we’ll find a better way to satisfy both operations in the further version.


Thanks,

Howard