prague12

Protected Sub Button_kml_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_kml.Click
Dim gpsdata = sqlAction_CollectGpsdata(User.Identity.Name)

Dim Lng_Lat_Collection As New List(Of String)
Dim Lng_Lat_strALL As New StringBuilder

For i = 0 To gpsdata.flow.Count - 1
Dim Lng = gpsdata.Lng(i).ToString
Dim Lat = gpsdata.Lat(i).ToString
Lng_Lat_Collection.Add(Lng + "," + Lat)
Lng_Lat_strALL.Append(Lng + "," + Lat + vbNewLine)
Next
Dim kml_content_point = Class_GPS.create_kml_points(Lng_Lat_Collection.ToArray)
Dim kml_content_track = Class_GPS.create_kml_track(Lng_Lat_strALL.ToString)

Directory.CreateDirectory("C:\inetpub\wwwroot\carlog\kml_temp")
Dim temp_path = "C:\inetpub\wwwroot\carlog\kml_temp\"


Dim filename_kml_track = User.Identity.Name + "_track.kml"
Dim path_kml_track = temp_path + filename_kml_track

Dim filename_kml_point = User.Identity.Name + "_point.kml"
Dim path_kml_point = temp_path + filename_kml_point

Dim w_kmltrack As New StreamWriter(path_kml_track, False)
Dim w_kmlpoint As New StreamWriter(path_kml_point, False)
w_kmltrack.Write(kml_content_track)
w_kmltrack.Flush()
w_kmltrack.Close()

w_kmlpoint.Write(kml_content_point)
w_kmlpoint.Flush()
w_kmlpoint.Close()

'-----------------------
' Dim rootPath = HttpContext.Current.Request.MapPath("~/") '取得當前目錄PATH
'Dim url_kmlpoint = "http://" + Class_netIP.getServerIP + "/carlog/kml_temp/" + filename_kml_point '欲下載圖的連結URL
'Dim url_kmltrack = "http://" + Class_netIP.getServerIP + "/carlog/kml_temp/" + filename_kml_track '欲下載圖的連結URL

'------使用者下載檔案視窗模式------------
Response.ContentType = "text/plain"
Response.AppendHeader("Content-Disposition", "Attachment; FileName=point_kml.kml")
Response.TransmitFile(path_kml_point) '要給server端的本機實體存檔路徑 (ex: c:/ aaa.txt)
Response.End()
'------/使用者下載檔案視窗模式/------------



End Sub