Google Earth 网络链接

• 下载源代码 - 43.1 KB

引言

本文旨在展示如何为 Google Earth 创建网络链接。

源代码

创建一个新的 ASP.NET Web 应用程序，并在 Page_Load 中复制并粘贴此代码，或下载源代码。

网格创建：创建网格的构造函数

Imports System.Xml
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
        Me.Response.Clear()
        Me.Response.ContentType = "application/vnd.google-earth.kml+xml"
        'Para ver o documento XML
        'For view XML document
        'My.Response.ContentType = "plain/text"
        Me.Response.ContentEncoding = System.Text.Encoding.UTF8
        Dim stream As New System.IO.MemoryStream
        Dim XMLwrite As New XmlTextWriter(stream, System.Text.Encoding.UTF8)
        XMLwrite.WriteStartDocument()
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteStartElement("kml")
        XMLwrite.WriteAttributeString("xmlns",
           "http://earth.google.com/kml/2.0")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        '<Document>
        XMLwrite.WriteStartElement("Document")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("name", "Signal Control")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        '<Placemark>
        XMLwrite.WriteStartElement("Placemark")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("description", "MY DESCRIPTION/MINHA DESCRIÇÃO")
        XMLwrite.WriteElementString("name", "MY NAME/MEU NOME")
        XMLwrite.WriteStartElement("LookAt")
        XMLwrite.WriteElementString("longitude", "MY LONGITUDE/MINHA LONGITUDE")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("latitude", "MY LATITUDE/MINHA LATITUDE")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteEndElement()
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("visibility", "1")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        '<Style>
        XMLwrite.WriteStartElement("Style")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        '<IconStyle>
        XMLwrite.WriteStartElement("IconStyle")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        '<Icon>
        XMLwrite.WriteStartElement("Icon")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        'Meu ícone, mudar este diretório
        'My Icon, change this directory
        XMLwrite.WriteElementString("href", "C:\Code_Project\01.ico")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("w", "-1")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteElementString("h", "-1")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteEndElement()
        '</Icon>
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteEndElement()
        '</IconStyle>
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteEndElement()
        '</Style>
        '<Point>
        XMLwrite.WriteStartElement("Point")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        'Minhas coordenadas, mudar aqui
        'My Coordinates, change aqui
        XMLwrite.WriteElementString("coordinates", 
            "-25.4942072754", "-49.5426559491",
            "50")
        XMLwrite.WriteWhitespace(Environment.NewLine)
        XMLwrite.WriteEndElement()
        XMLwrite.WriteEndElement()
        '</Point>'Fim do XML
        'Finish XML
        XMLwrite.WriteEndDocument()
        XMLwrite.Flush()
        Dim reader As IO.StreamReader
        stream.Position = 0
        reader = New IO.StreamReader(stream)
        Dim bytes() As Byte = System.Text.Encoding.UTF8.GetBytes(reader.ReadToEnd())
        Me.Response.BinaryWrite(bytes)
        Me.Response.End()
    End Sub
End Class 

关注点

在 Google Earth 中前往地点，然后单击“添加网络链接”。

编译项目后，将出现此图标

我的链接已创建