OpenなGISのこと

vb.net 2010での動作も確認できました。
昨日のC#でMapscriptを使ってみると同じようにdll類をセットアップして、
vb.netのformプロジェクトを作成します。

コードはこんな感じです。

Imports OSGeo.MapServer
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
 
Public Class MapForm
 
    Const MAP_FILE As String = "C:\world\myworld.map"
	Private m_map As New mapObj(MAP_FILE)
	Private m_fullExtent As rectObj
 
	Private Sub MapForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
		m_map.width = picMap.Width
		m_map.height = picMap.Height
		RedrawMap()
		m_fullExtent = New rectObj(m_map.extent.minx, m_map.extent.miny, m_map.extent.maxx, m_map.extent.maxy, 0)
 
	End Sub
 
	Private Sub RedrawMap()
		Dim Image As imageObj
		Dim ms As System.IO.MemoryStream
		Dim img As Byte()
 
		Image = m_map.draw()
		img = Image.getBytes()
		ms = New MemoryStream(img)
 
		picMap.Image = System.Drawing.Image.FromStream(ms)
 
	End Sub
End Class

なんと、簡単にできるのか。 本当にうれしくなってきますよ。vb.netで動作するということは、ASP.netでも動くということでしょうかね。
CentOSでmonoを使って、mapseverを動かすこともできるのでしょう。
Visual Studioの開発環境を使ったMapServerのアプリケーションを作成できるということですね。
これは、おもしろくなってきましたね。

表示しただけではつまらないので、こちらにちょっこっと機能を付け加えたものをアップしています。
ご自由にダウンロードしてください。

今後の追加機能としては、最低限

• pan機能の拡張
• rubber band rectangleで拡大
• Identity
• Attribute view
• Attribute Query & Spatial Query

などでしょうか。
誰か、一緒に作らないかなぁ。。