[gdal-dev] Reading NetCDF using VB.NET

[Siebe Bosch]

Hello all,

I'm trying to build a command line application in VB.NET that extracts 
parts from a NetCDF file.
For this I'm using the C# API as supplied with FWTools version 2.4.7. 
It's supposed to support VB.NET as well; am I right?

However, the application already crashes at the line Call GDAL.Registerall()
Here's the code:

Imports System
Imports OSGeo.GDAL
Imports OSGeo.OGR

Module MeteoBase

   'Copyright Siebe Bosch Hydroconsult, 2012
   'Lulofsstraat 55, unit 47 Den Haag, The Netherlands
   'this program creates subsets from precipitation data in NetCDF-files
   'as requested by the user. The program is designed to be called from
   'a PHP-script.

   Dim FileName As String
   Dim ds As Dataset

   Sub Main()
     Dim DebugMode As Boolean

     Console.WriteLine("This program extracts data from a NetCDF file")
     Console.WriteLine("Path to the NetCDF file (*.cn)")
     DebugMode = True

     'start reading the command line arguments
     If DebugMode Then
       FileName = "c:\GDAL\PM\1990\EVAP_PM_19901231.nc"
     Else
       If My.Application.CommandLineArgs.Count = 0 Then
         Console.WriteLine("Enter the path to the NetCDF-file:")
         FileName = Console.ReadLine()
       ElseIf My.Application.CommandLineArgs.Count <> 1 Then
         Console.WriteLine("Error: incorrect number of arguments presented")
       Else
         FileName = My.Application.CommandLineArgs(0)
       End If
     End If

     Try
       'start reading the NetCDF File
       Call Gdal.AllRegister()
       ds = Gdal.Open(FileName, Access.GA_ReadOnly)
       If ds Is Nothing Then
         Console.WriteLine("Cannot open NetCDF file: " & FileName)
         Throw New Exception
       Else
         Console.WriteLine("Raster dataset parameters:")
         Console.WriteLine("  Projection: " + ds.GetProjectionRef())
         Console.WriteLine("  RasterCount: " + ds.RasterCount)
         Console.WriteLine("  RasterSize (" + ds.RasterXSize + "," + 
ds.RasterYSize + ")")
       End If
     Catch ex As Exception
       Console.WriteLine("Error in sub Main of Meteobase")
     End Try

   End Sub

End Module