ASP.NET VB KMLジェネレータ

Question

Ionic圧縮クラス（Ionic = DotNetZip at Codeplex）を使用せずにKMLを生成できるKMZファイルを生成するハンドラ（ashx）ファイルです。このハンドラは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); 

}