0

我想在 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()
4

3 回答 3

1

这可以使用 SharpMap 的 TileLayerAsync 来实现。在此处查看 TileLayerAsync 示例。您需要指定合适的瓦片源。

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

也许更好的是使用 GeoServer 使用 TMS、WMTS 或 WMS-C 将其发布为适当的切片图层。在这种情况下，您需要通过 BruTile 的 HttpTileSource 访问它。

于 2016-11-14T05:58:57.500 回答
0

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

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
于 2016-11-22T09:36:42.020 回答
0

从文档来看，似乎支持简单的 WMS 图层 - 因此您需要自己处理平铺边界的构建并发出多个 WMS 请求以获取平铺图像。

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

于 2016-11-09T08:44:45.947 回答