通过蛮力/锐利地图向geoserver发送wms请求以加载平铺地图(tiled=true)

Question

我想在SharpMap的地图盒中加载平铺地图。我有GeoServer和发送WMS请求，但我只收到单一的瓷砖地图。我怎样才能收到多瓦地图？这是我的代码：

    Dim wmsUrl As String = "http://192.168.21.202:8080/geoserver/threem/gwc/service/wms?tiled=true&version=1.1.0"
    Dim layWms As New SharpMap.Layers.WmsLayer("threem_zoom", wmsUrl)
    layWms.AddLayer("threem_zoom")
    layWms.SetImageFormat("image/png")
    layWms.TimeOut = 5000
    layWms.SRID = 4326
    layWms.Version = "1.1.0"
    MapBox1.Map.Layers.Add(layWms)
    MapBox1.PanOnClick = True
    MapBox1.Map.ZoomToExtents()
    MapBox1.Refresh()

Answer 1

使用SharpMap的TileLayerAsync是可能的。请参阅TileLayerAsync 这里的示例。您需要指定一个合适的瓷砖源。

使用GeoServer的tile=true 它看起来，您仍然可以将其作为一个普通的WMS发布，但要考虑标签的放置。在这种情况下，您需要类似于这个这里

也许更好的方法是使用GeoServer将其发布为使用TMS、WMTS或WMS的合适的瓷砖层。在这种情况下，您需要通过BruTile的HttpTileSource访问它。

Answer 2

从文档上看，似乎支持简单的WMS层--因此您需要自己处理瓷砖边界的构造，并发出多个WMS请求才能得到一个平铺图像。

WMS层支持目前是非常基本的。您必须自己破译服务器功能，并在资源属性中指定必要的层和其他属性。

Answer 3

我用以下代码解决了这个问题：

Try
        form1.Mapbox1.Map.Layers.Clear()
        Dim Map As Map = New Map()
        Dim xmlDoc As New XmlDocument()
        If My.Settings.Cache Then
            xmlDoc.Load("http://" & My.Settings.ServerIP & ":" & My.Settings.ServerPort & "/" & My.Settings.ServerName & "/gwc/service/wms?SERVICE=WMS&VERSION=" & My.Settings.WMSVer & "&REQUEST=getcapabilities&TRANSPARENT=TRUE&TILED=true")
        Else
            xmlDoc.Load("http://" & My.Settings.ServerIP & ":" & My.Settings.ServerPort & "/" & My.Settings.ServerName & "/wms?SERVICE=WMS&VERSION=" & My.Settings.WMSVer & "&REQUEST=getcapabilities&TRANSPARENT=TRUE&TILED=true")
        End If
        Dim xDoc = Program.ConvertToXDocument(xmlDoc)
        Dim source As List(Of ITileSource)
        source = WmscTileSource.CreateFromWmscCapabilties((xDoc))
        Dim tileSource = source.FirstOrDefault(Function(x) x.Schema.Name = My.Settings.WorkSapce & ":" & My.Settings.LayerName)
        Dim tileLayer = New TileAsyncLayer(tileSource, My.Settings.WorkSapce & ":" & My.Settings.LayerName) With {.SRID = My.Settings.SRIDNum}
        tileLayer.OnlyRedrawWhenComplete = True
        form1.Mapbox1.Map.Layers.Add(tileLayer)
        form1.Mapbox1.PanOnClick = True
        Dim env = New Envelope(44.0509701, 25.0652748, 63.3556599, 39.796795)
        form1.Mapbox1.Map.ZoomToBox(env)
        form1.Mapbox1.Map.ZoomToExtents()
        form1.Mapbox1.Map.Center = New Coordinate(53.682362, 32.420654)
        form1.Mapbox1.Refresh()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try