Display Maps from online WMS Servers

News

Navigation

Display Maps from online WMS Servers

Web Map Service (WMS) adalah protokol standar untuk melayani rujukan geografis gambar peta melalui internet yang dihasilkan oleh server peta menggunakan data dari GIS database. Contoh WMS Server dari negeri sendiri yang bisa anda rujuk adalah :

- WMS Kementrian Kehutanan : http://appgis.dephut.go.id/appgis/

- WMS Kota Samarinda (Kalimantan Timur) : http://www.samarindacity.com/wms/

Sebagai contoh disini saya akan menampilkan Peta Kota Samarinda melalui WMS nya yang diatas. Untuk menampilkan peta tersebut saya masih menggunakan control ASPMap seperti yang saya tulis disini dan disini. Untuk detil informasi WMS Kota Samarinda dapat anda rujuk ke http://www.samarindacity.com/wms/?SERVICE=wms&VERSION=1.1.1&REQUEST=GetCapabilities

Berikut ini langkah-langkahnya menampilkan Peta Kota Samarinda dari WMS Servernya :

1. Buka Visual Studio anda. Buat New Website Beri nama dengan Samarinda. (disini menggunakan VB .Net)

2. Tambahkan control ASPMap dan control ZoomBar ke halaman Default.aspx, Seperti Berikut :

3. Ketikkan code berikut ini di Default.aspx.vb untuk menampilkan petanya ke control Map1

        1: Imports Microsoft.VisualBasic

       2: Imports System

       3: Imports System.Collections

       4: Imports System.ComponentModel

       5: Imports System.Data

       6: Imports System.Data.SqlClient

       7: Imports System.Drawing

       8: Imports System.Web

       9: Imports System.Web.SessionState

Imports System.Web.UI

Imports System.Web.UI.WebControls

Imports System.Web.UI.HtmlControls

Imports AspMap

Imports AspMap.Web

Partial Public Class _Default

    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DisplayMap()

    End Sub

    Sub DisplayMap()

        ' akses wms server

        Dim wms As WmsLayer = New WmsLayer("http://www.samarindacity.com/wms/", New AspMap.Rectangle(117.048, 0.319929, 117.302, -0.716833))

        ' menambahkan layer

        wms.AddLayer("kecamatan")

        wms.AddLayer("kelurahan")

        wms.AddLayer("jalan")

        wms.AddLayer("nama_jalan")

  

        wms.ImageFormat = ImageFormat.Png

        ' add the WMS layer to the map

        Dim wmsLayer As AspMap.Layer = Map1.AddLayer(wms)

        ' set the coordinate system of the map to the coordinate system of the TerraServer layer

        Map1.CoordinateSystem = CoordSystem.WGS1984

        ' make the map image transparent to display background WMS layers

        Map1.ImageOpacity = 0

    End Sub

End Class