Memory Leak issue in ArcPad 10

SumanChatterjee — Sat, 01 Feb 2014 01:36:54 GMT

We are developing a customised ArcPad Windows Mobile 6 application for utiliy industry. There are many layers - like Primary Conductor, Transformer, SEcondary Conductor etc which we are exporting as Background layers in AXF. There are some other 4 feature layers used for capturing data points in the field. Also we developed a custom arcPad form.
At each location we are adding many units in the same form. These are not connected to any database fields. We push the data to the database when the user clicks OK.
Besides we also have an applet with different tools and we also have different eventhandler code for the events associated with Map and GPS - like new feature added, on featuredeleted, onpointerdown etc.

But we are facing a memory issue in our application. When the memory consumption of ArcPad reaches 16.5 MB we start getting low memory warning and the map does not refresh properly. Even the map navigator sometimes does not show.
I also found that whenever I push data in the AXF tables through VBScript the memory consumption jumps by around 1 MB. But if the data is pushed through native forms without using any script the memory consumption does not increase.

So I want to know what is the best way to push data in AXF and what can be a better way way to handle the low memorywarnings. Also when the GPS is on the application becomes very slow.
.

Below is one method where there is memory leak. Even if I use Recordset AddNew method to add the record still the same behavior.

Sub SaveUnits
    Dim strSQL,nRecords,feature, unitsDatasource,locationForm,mode,unitsLayer,unitsRecords,comments,objid, delObj
    Set unitsLayer = Map.layers("GPSUnits")
    Set unitsDatasource = Application.Map.Layers("GPSUnits").DataSource
    Set locationForm = Map.Layers("GPSLocations").forms("EDITFORM")
     mode = locationForm.Mode

     If mode=3 then
         Application.UserProperties ("NewlocationX") = locationForm_X
         Application.UserProperties ("NewlocationY") = locationForm_Y
         Application.UserProperties ("NewlocationID") = locationID
         for each feature in existingAssemblies
                strSQL="insert into GPSUnits(CLASSNAME,QUANTITY,STATUS,LOCATIONID,NAME,BEHAVIOR,SHAPE_X,SHAPE_Y,AXF_TIMESTAMP,AXF_STATUS,COMMENTS,Type,JOBID) values ('" &_
                feature(3) & "'," & feature(1) & ",'" & feature(2) & "'," & locationID & ",'" & feature(0) & "','" & feature(5) & "'," & locationForm_X & "," &_
                locationForm_Y & ",'" & Now & "',1,'"& feature(6) & "','"& feature(7) & "','" & Application.UserProperties("JobID") & "')"

          nRecords = unitsDatasource.Execute(strSQL)
         Next
             else

         for each feature in existingAssemblies
           comments = feature(6)

             if comments = null then
              comments = ""
             end if

             objid = feature(4)
             if IsNull(objid) then
                           strSQL="insert into GPSUnits(CLASSNAME,QUANTITY,STATUS,LOCATIONID,NAME,BEHAVIOR,SHAPE_X,SHAPE_Y,AXF_TIMESTAMP,AXF_STATUS,COMMENTS,Type,JOBID) values ('" &_
                feature(3) & "'," & feature(1) & ",'" & feature(2) & "'," & Application.UserProperties ("locationID") & ",'" & feature(0) & "','" & feature(5) & "'," & locationForm.Fields.Shape.X & "," &_
                locationForm.Fields.Shape.Y & ",'" & Now & "',1,'"& feature(6) & "','"& feature(7) &"','" & Application.UserProperties("JobID") & "')"
                              nRecords = unitsDatasource.Execute(strSQL)
            else
                           strSQL = "update GPSUnits Set QUANTITY = " & feature(1) & ",STATUS = '" & feature(2) & "',COMMENTS = '" & comments & "' where AXF_OBJECTID= "& feature(4)
                           nRecords = unitsDatasource.Execute(strSQL)

            end if
          Next

          for each feature in deletedAssemblyList
                      delObj = feature(4)

             if Not (IsNull(delObj)) then
              strSQL = "Delete from GPSUnits where AXF_OBJECTID= "& feature(4)
              nRecords = unitsDatasource.Execute(strSQL)
             End if
          Next

      End if
      Map.Refresh(true)
    Application.Map.Layers("GPSLocations").Properties ("ShowEditForm") = True
   Set unitsLayer = Nothing
   Set unitsDatasource=Nothing
   Set locationForm = Nothing
   End Sub

Can anyone point me out how can I optimise the above method. We are going to take a decision on the application based on the memory leak issue.
Thanks for helping
Suman

topic Memory Leak issue in ArcPad 10 in ArcPad Questions

Memory Leak issue in ArcPad 10