The problem lies with making the polygon blob as this Sub shows:
Public Sub TestPolygon
Dim strSQL As String
Dim SPL_Stmt As Spatialite_Stmt
strSQL = "select 'Point: ' || hex(MakePoint(-2, 52, 4326)) || " & _
"', Polygon: ' || hex(polygonfromtext('POLYGON(-2 52, -2.5 53, -3 52, -2 52)', 4326))"
SPL_Stmt = SPL_DB.Prepare(strSQL)
SPL_Stmt.Step
Log("Hex Point and Polygon: " & SPL_Stmt.ColumnString(0))
SPL_Stmt.Close
End Sub
I get this result:
Hex Point and Polygon: Point: 0001E610000000000000000000C00000000000004A4000000000000000C00000000000004A407C0100000000000000000000C00000000000004A40FE, Polygon:
I take it polygonfromtext produces Null, but MakePoint works OK.
So, how should I produce this polygon blob?
RBS