<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000">
<font face="Helvetica, Arial, sans-serif">Hello,<br>
<br>
I have added some of the source I am using in VB.net to do exactly as
what you are requesting. There are a couple of things you have to keep
in mind:<br>
- Build enumerators that mimic the enumerators that are in the original
OGR dll's<br>
- Be careful, base for featurecount are different for shape files or
mapinfo tab (the first starts at 0, the other at 1)<br>
<br>
Let me be honest, I am not giving you the code in detail. Google Earth
content is core business for my own little company (3DSite,
<a class="moz-txt-link-freetext" href="http://www.3dsite.nl">http://www.3dsite.nl</a>) <br>
<br>
I have spent a lot of time getting it to what it is now, I am not
working for a boss beside this and nobody is funding my effort. Maybe
you can give me some insight on what you are going to use it for?
Perhaps we can partner in the business, Greece is not to far away from
the Netherlands and I am a great fan of Greece!<br>
<br>
<br>
First, at the loading of my vb.net application I register all OGR file
types:<br>
<br>
'Register all filetypes for use with OGR<br>
OGR.ogr.RegisterAll()<br>
<br>
I have a Class that holds the following objects:<br>
<br>
Datasets Collection of type Dataset (selfmade class)<br>
<br>
Dataset looks something like this:<br>
<br>
Public Class Dataset<br>
Private _DataSource As OGR.DataSource<br>
Private _Driver As OGR.Driver<br>
Private _Name As String<br>
Private _Path As String<br>
Private _Extension As String<br>
Private _FileName As String<br>
Private _Layers As Layers<br>
Private _NameField As String<br>
Private _GroupField As String<br>
Private _SortField As String<br>
<br>
where I turn all these private variables into public properties<br>
<br>
Then I have 2 constructors in the dataset object:<br>
<br>
Public Sub New(ByVal name As String, ByVal path As String,
ByVal extension As String)<br>
_Name = name<br>
_Path = path<br>
_Extension = extension<br>
_FileName = _Path & "\" & _Name & _Extension<br>
_DataSource = OGR.ogr.Open(_FileName, 0)<br>
_Driver = _DataSource.GetDriver()<br>
<br>
End Sub<br>
Public Sub New(ByVal FileName As String)<br>
Dim j As Integer<br>
_Layers = New Layers<br>
_FileName = FileName<br>
_Path = System.IO.Path.GetDirectoryName(FileName)<br>
_Extension = System.IO.Path.GetExtension(FileName)<br>
_Name = System.IO.Path.GetFileNameWithoutExtension(FileName)<br>
_DataSource = OGR.ogr.Open(_FileName, 0)<br>
_Driver = _DataSource.GetDriver()<br>
For j = 0 To _DataSource.GetLayerCount - 1<br>
Dim lyr As New Layer(_DataSource.GetLayerByIndex(j))<br>
_Layers.Add(lyr)<br>
Next<br>
End Sub<br>
<br>
The Layer object is an enhanced version of the OGR.Layer object:<br>
<br>
Public Class Layer<br>
Private _fieldtable As DataTable = New DataTable("Fields")<br>
Private _sr As New OGR.SpatialReference("")<br>
Private _ogrLayer As OGR.Layer<br>
Private _name As String<br>
Private _def As OGR.FeatureDefn<br>
Private _FeatureCount As Integer<br>
Private _Type As Integer<br>
<br>
The Layer Object also has an advanced constructor:<br>
<br>
Public Sub New(ByVal lyr As OGR.Layer)<br>
<br>
' Create DataColumns and set various properties. <br>
Dim fName As DataColumn = New DataColumn<br>
fName.DataType = System.Type.GetType("System.String")<br>
fName.AllowDBNull = True<br>
fName.Caption = "Name"<br>
fName.ColumnName = "name"<br>
fName.DefaultValue = ""<br>
' Add the column to the table. <br>
_fieldtable.Columns.Add(fName)<br>
<br>
Dim fNum As DataColumn = New DataColumn<br>
fNum.DataType = System.Type.GetType("System.String")<br>
fNum.AllowDBNull = True<br>
fNum.Caption = "Type"<br>
fNum.ColumnName = "type"<br>
fNum.DefaultValue = 0<br>
' Add the column to the table. <br>
_fieldtable.Columns.Add(fNum)<br>
<br>
Dim tmp As String = ""<br>
_ogrLayer = lyr<br>
<br>
_def = _ogrLayer.GetLayerDefn()<br>
_name = _def.GetName<br>
_FeatureCount = _ogrLayer.GetFeatureCount(1)<br>
_Type = _def.GetGeomType<br>
Dim i As Integer<br>
For i = 0 To _def.GetFieldCount() - 1<br>
Dim row As DataRow<br>
row = _fieldtable.NewRow()<br>
Dim FieldDef As OGR.FieldDefn = _def.GetFieldDefn(i)<br>
row("name") = FieldDef.GetName<br>
row("type") = FieldDef.GetFieldType<br>
_fieldtable.Rows.Add(row)<br>
Next<br>
_sr = _ogrLayer.GetSpatialRef<br>
_sr.ExportToProj4(tmp)<br>
If tmp = "" Then<br>
Dim ATproj4 As String = "+proj=tmerc +lat_0=12.51697
+lon_0=-69.994775 +k=0.9996 +x_0=10000 +y_0=15000
+towgs84=0,0,0,0,0,0,0 +units=m +no_defs"<br>
' 'Pop up a dialog stating that the source
projection is invalid!<br>
' '"No Source coordinate system defined, proceed?"<br>
_sr.ImportFromProj4(ATproj4)<br>
Else<br>
Debug.Print("Source coordinate system: " & tmp)<br>
End If<br>
End Sub<br>
<br>
Then, for the conversion to KML, I loop through this Dataset-Layer
object<br>
Dim lyr As ClassData.Layer<br>
For Each lyr In _ds.Layers<br>
count = lyr.Count<br>
For j = i To count<br>
Dim feat As OGR.Feature = lyr.Feature(j)<br>
If Not feat Is Nothing Then<br>
Dim geom As OGR.Geometry = feat.GetGeometryRef<br>
If Not geom Is Nothing Then<br>
Dim geomType As wkbGeometryType<br>
geomType = geom.GetGeometryType<br>
If geomType = wkbGeometryType.wkbLineString
Or geomType = wkbGeometryType.wkbPolygon Or geomType =
wkbGeometryType.wkbPoint Or geomType = wkbGeometryType.wkbMultiPolygon
Then<br>
..... Now you have reached the point
where you have a valid object!, use it to convert to a kml string<br>
<br>
<br>
Next<br>
<br>
IMPORTANT:<br>
<br>
If you are using non US system settings: You can use this code to make
sure comma's are interpreted correctly:<br>
<br>
Sub DoTheThing<br>
'First, store the CurrentCulture so it can be reset after the
routine is done<br>
Dim originalCulture As System.Globalization.CultureInfo<br>
originalCulture = CultureInfo.CurrentCulture<br>
<br>
'Google Earth needs the locale to be set to US so the . and
, are interpreted correctly<br>
Thread.CurrentThread.CurrentCulture = New
CultureInfo("en-US", True)<br>
<br>
DoTheConversionHere<br>
<br>
'Reset the CurrentCulture<br>
Thread.CurrentThread.CurrentCulture = originalCulture<br>
end sub<br>
<br>
<br>
Kind regards,<br>
<br>
Milo van der Linden</font> <br>
<div class="moz-signature">
<title>3DSite</title>
<meta http-equiv="Content-Type" content="text/html; ">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
margin-left: 5px;
margin-top: 5px;
margin-right: 5px;
margin-bottom: 5px;
}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #333333;
}
.style4 {font-size: 9px; }
.style5 {font-size: 9px; color: #CCCCCC; }
-->
</style>
<meta content="MSHTML 6.00.2900.2912" name="GENERATOR">
<br>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody>
<tr>
<td colspan="1" align="left" height="78" valign="middle" width="0">
<p class="style4">3DSite - Milo van der Linden - CTO<br>
Groenedijk 12, 4441 TJ Ovezande (Zeeland, Nederland)<br>
<a href="mailto:milo@3dsite.nl">milo@3dsite.nl</a><br>
<a href="http://www.3dsite.nl">http://www.3dsite.nl</a><br>
</p>
</td>
</tr>
<tr>
<td align="left" bgcolor="#163551" height="38"><a
href="skype:milovanderlinden?chat"><br>
</a></td>
</tr>
<tr>
<td colspan="1" align="left" height="14" valign="bottom"> </td>
</tr>
</tbody>
</table>
<map name="Map">
<area shape="RECT" target="_blank" coords="25,25,100,100"
href="http://www.3dsite.nl">
</map>
<br>
<table cellpadding="17" cellspacing="0">
<tbody>
<tr height="5">
<td valign="top">
<p class="style5"><span lang="NL">De informatie verzonden met dit
e-mail bericht is uitsluitend bestemd voor de geadresseerde(n). Gebruik
van deze informatie door andere dan de geadresseerde(n) is verboden.
Openbaarmaking, vermenigvuldiging, verspreiding en/of verstrekking van
deze informatie aan derde is niet toegestaan. Kopiëren en/of misbruiken
van ingesloten afbeeldingen en/of bestanden is wettelijke verboden en
strafbaar. 3DSite staat niet in voor de juiste en volledige
overbrenging van de inhoud van een verzonden e-mail, noch voor tijdig
ontvangst daarvan. Op al onze leveringen, aanbiedingen en verkopen zijn
van toepassing onze Algemene Voorwaarden, zoals gedeponeerd bij de
K.v.K. te Middelburg. 3DSite</span></p>
</td>
</tr>
</tbody>
</table>
</div>
</body>
</html>