ASP.NET VB KML 生成器

Question

下面是一个生成 KMZ 文件的处理程序 (ashx) 文件（可以通过不使用 Ionic 压缩类（Codeplex 上的 Ionic = DotNetZip）来生成 KML）。该处理程序使用 SQL 表来填充地点标记，但它是 ashx 处理程序的一个很好的示例使用、自定义图标使用、正确压缩文件以及填充位置标记通过使用 context.Response.OutputStream，这在 .NET 引擎中非常高效。

<%@ WebHandler Language="VB" Class="YourKML" %>

Imports System
Imports System.Web
Imports System.Web.Configuration
Imports System.Xml
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.SqlServer.Types
Imports MySql.Data.MySqlClient
Imports Ionic.Zip

Public Class YourKML : Implements IHttpHandler

    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.AppendHeader("Connection", "close")
        'Response.ContentType = "application/vnd.google-earth.kml+xml"
        'Response.ContentEncoding = System.Text.Encoding.UTF8
        context.Response.ContentType = "application/vnd.google-earth.kmz"
        context.Response.Cache.SetCacheability(System.Web.HttpCacheability.NoCache)

        Dim outzip As New ZipOutputStream(context.Response.OutputStream)
        outzip.EnableZip64 = Zip64Option.Never
        outzip.CompressionLevel = Ionic.Zlib.CompressionLevel.BestCompression
        outzip.PutNextEntry("doc.kml")

        Dim kmlout As New XmlTextWriter(outzip, System.Text.Encoding.UTF8)
        kmlout.WriteStartDocument()
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("kml")
        kmlout.WriteAttributeString("xmlns", "http://www.opengis.net/kml/2.2")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("Document")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteElementString("name", "doc.kml")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("Style")
        kmlout.WriteAttributeString("id", "yoursym")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("IconStyle")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("Icon")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteElementString("href", "http://youriconimage")
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteEndElement()
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteStartElement("hotSpot")
        kmlout.WriteAttributeString("x", "0.5")
        kmlout.WriteAttributeString("y", "0.5")
        kmlout.WriteAttributeString("xunits", "fraction")
        kmlout.WriteAttributeString("yunits", "fraction")
        kmlout.WriteEndElement()
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteEndElement()
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteEndElement()
        kmlout.WriteWhitespace(vbCrLf)
        PlacesKML(kmlout)
        kmlout.WriteEndElement()
        kmlout.WriteWhitespace(vbCrLf)
        kmlout.WriteEndDocument()
        kmlout.Flush()
        outzip.Close()
    End Sub

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return True
        End Get
    End Property

    Sub PlacesKML(ByVal kmlout As XmlTextWriter)
        Using connection As New SqlConnection(WebConfigurationManager.ConnectionStrings("YourConnectionString").ConnectionString)
            connection.Open()
            Dim cmd As New SqlCommand("SELECT yourkey, Location FROM yourtable", connection)
            Dim positrs As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            Dim curkey As String = ""
            Dim comment As StringBuilder = New StringBuilder()
            Dim loc As New SqlGeography()
            With positrs
                While .Read()
                    Dim yourkey As String = .GetString(.GetOrdinal("yourkey"))
                    If String.IsNullOrEmpty(yourkey) Then Continue While
                    If yourkey <> curkey Then
                        If Not String.IsNullOrEmpty(curkey) Then
                            kmlout.WriteStartElement("Placemark")
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteElementString("name", curkey)
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteStartElement("description")
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteCData(comment.ToString())
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteEndElement() ' End Description
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteElementString("styleUrl", "#yoursym")
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteStartElement("Point")
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteElementString("coordinates", loc.Long.ToString() & ", " & loc.Lat.ToString() & ", 0")
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteEndElement() ' End Point
                            kmlout.WriteWhitespace(vbCrLf)
                            kmlout.WriteEndElement() ' End Place Mark
                            kmlout.WriteWhitespace(vbCrLf)
                        End If
                        curkey = yourkey
                        comment.Length = 0
                        comment.Append(yourkey)
                        loc = .GetProviderSpecificValue(.GetOrdinal("Location"))
                    Else
                        comment.Append("<br/>").Append(yourkey)
                    End If
                End While
                If Not String.IsNullOrEmpty(curkey) Then
                    kmlout.WriteStartElement("Placemark")
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteElementString("name", curkey)
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteStartElement("description")
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteCData(comment.ToString())
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteEndElement() ' End Description
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteElementString("styleUrl", "#yoursym")
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteStartElement("Point")
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteElementString("coordinates", loc.Long.ToString() & ", " & loc.Lat.ToString() & ", 0")
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteEndElement() ' End Point
                    kmlout.WriteWhitespace(vbCrLf)
                    kmlout.WriteEndElement() ' End Place Mark
                    kmlout.WriteWhitespace(vbCrLf)
                End If
            End With
            positrs.Close()
        End Using
    End Sub
End Class

Answer 1

这是一个例子，不是一个问题。希望它能帮助其他想要使用 VB.net 和 ASP.NET 创建 kml/kmz 文件的人。

Answer 2

我还有另一个严格使用 SharpKml 的例子。

public void ProcessRequest(HttpContext context)
{

    context.Response.AppendHeader("Connection", "close");
    context.Response.ContentType = "application/vnd.google-earth.kmz";
    context.Response.Cache.SetCacheability(System.Web.HttpCacheability.NoCache);
    context.Response.AddHeader("Content-Disposition", "attachment; filename=mykmz.kmz");

    Point point = new Point();
    point.Coordinate = new Vector(-13.163959, -72.545992);

    Placemark placemark = new Placemark();
    placemark.Geometry = point;
    placemark.Name = "Machu Picchu";

    KmlFile kml = KmlFile.Create(placemark, false);

    KmzFile kmz = KmzFile.Create(kml);
    kmz.Save(context.Response.OutputStream);

}