NOTICE: This version of the NSF Unidata web site (archive.unidata.ucar.edu) is no longer being updated.
Current content can be found at unidata.ucar.edu.
To learn about what's going on, see About the Archive Site.
NOTICE: This version of the NSF Unidata web site (archive.unidata.ucar.edu) is no longer being updated.
Current content can be found at unidata.ucar.edu.
To learn about what's going on, see About the Archive Site.
Sandy: Thanks very much for your work! I have put this into our "contributed" area at ftp://ftp.unidata.ucar.edu/pub/netcdf/contrib/borland/DelphiDeclarations.pas and added a reference to it in our FAQ. John Caron "Ballard, Sanford" wrote: > > In the process of developing a code to read netCDF files with Borland Delphi > I created a Delphi unit that contains everything a Delphi programmer would > need (I think!) to use netCDF. The source code for the unit that implements > the interface follows. > > Sandy Ballard > > unit DelphiDeclarations; > > (* > These declarations facilitate the use of netCDF.dll with Delphi v 5.0 > To use it, all you need is this file and netCDF.dll. Put both of these > files into the same directory as your project and compile. In any of your > units that call these functions add 'DelphiDeclarations' to your uses > clause. > After that, you should be able to call the routines in the straightforward > manner. > > I created this file by taking the information in Appendix C - Summary of > C Interface of the NetCDF User's Guide for C, Version 3, June 1997, and > converting all the C function calls to pascal calls. > > I have done very little testing. The only functions I have tested are > nc_open, nc_strerror, nc_inq_libvers, nc_inq, nc_inq_dimid, nc_inq_varid, > nc_get_var_float and nc_close which are basically the ones you need to read > a netCDF file. I have not tried to write a file using these calls. I make > no > guarantees that any of this will work properly. > > Good luck, hope it works for you. > Sandy Ballard > Sandia National Laboratories > Albuquerque, New Mexico, USA > sballar@xxxxxxxxxx > 2/8/2001 > *) > > interface > > type size_t = cardinal; > ptrdiff_t = integer; > nc_type = (NC_NAT, { NAT = 'Not A Type' (c.f. NaN) } > NC_BYTE, { signed 1 byte integer } > NC_CHAR, { ISO/ASCII character } > NC_SHORT, { signed 2 byte integer } > NC_INT, { signed 4 byte integer } > NC_FLOAT, { single precision floating point number } > NC_DOUBLE); { double precision floating point number } > > function nc_inq_libvers : pchar; cdecl; external 'netcdf.DLL'; > function nc_strerror (ncerr : integer) : pchar; cdecl; external > 'netcdf.DLL'; > function nc_create (path : pchar; cmode : integer; var ncidp : integer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_open (path : pchar; mode : integer; var ncidp : integer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_set_fill (ncid : integer; fillmode : integer; var old_modep : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_redef (ncid : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_enddef (ncid : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_sync (ncid : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_abort (ncid : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_close (ncid : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq (ncid : integer; var ndimsp : integer; var nvarsp : integer; > var ngattsp : integer; var unlimdimidp : integer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_inq_ndims (ncid : integer; var ndimsp : integer) : integer; > cdecl; external 'netcdf.DLL'; > function nc_inq_nvars (ncid : integer; var nvarsp : integer) : integer; > cdecl; external 'netcdf.DLL'; > function nc_inq_natts (ncid : integer; var ngattsp : integer) : integer; > cdecl; external 'netcdf.DLL'; > function nc_inq_unlimdim (ncid : integer; var unlimdimidp : integer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_def_dim (ncid : integer; name : pchar; len : size_t; var idp : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_dimid (ncid : integer; name : pchar; var idp : integer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_inq_dim (ncid : integer; dimid : integer; name : pchar; var lenp > : size_t) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_dimname (ncid : integer; dimid : integer; name : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_inq_dimlen (ncid : integer; dimid : integer; var lenp : size_t) > : integer; cdecl; external 'netcdf.DLL'; > function nc_rename_dim (ncid : integer; dimid : integer; name : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_def_var (ncid : integer; name : pchar; xtype : nc_type; ndims : > integer; var dimidsp : integer; var varidp : integer) : integer; cdecl; > external 'netcdf.DLL'; > function nc_inq_var (ncid : integer; varid : integer; name : pchar; var > xtypep : nc_type; var ndimsp : integer; var dimidsp : integer; var nattsp : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_varid (ncid : integer; name : pchar; var varidp : integer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_inq_varname (ncid : integer; varid : integer; name : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_inq_vartype (ncid : integer; varid : integer; var xtypep : > nc_type) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_varndims (ncid : integer; varid : integer; var ndimsp : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_vardimid (ncid : integer; varid : integer; var dimidsp : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_varnatts (ncid : integer; varid : integer; var nattsp : > integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_rename_var (ncid : integer; varid : integer; name : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_text (ncid : integer; varid : integer; op : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_text (ncid : integer; varid : integer; ip : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_uchar (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_uchar (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_schar (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_schar (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_short (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_short (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_int (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_int (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_long (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_long (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_float (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_float (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var_double (ncid : integer; varid : integer; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_var_double (ncid : integer; varid : integer; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_text (ncid : integer; varid : integer; var indexp : > size_t; op : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_text (ncid : integer; varid : integer; var indexp : > size_t; ip : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_uchar (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_uchar (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_schar (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_schar (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_short (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_short (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_int (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_int (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_long (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_long (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_float (ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_float (ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_var1_double(ncid : integer; varid : integer; var indexp : > size_t; op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_var1_double(ncid : integer; varid : integer; var indexp : > size_t; ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_vara_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pchar) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pchar) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vara_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; op : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_vara_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; ip : pointer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_put_vars_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pchar) : integer; > cdecl; external 'netcdf.DLL'; > function nc_get_vars_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pchar) : integer; > cdecl; external 'netcdf.DLL'; > function nc_put_vars_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_vars_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; op : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_get_vars_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; ip : pointer) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_text (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_uchar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_schar (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_short (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_int (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_long (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_float (ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_varm_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > op : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_varm_double(ncid : integer; varid : integer; var startp : > size_t; var countp : size_t; var stridep : ptrdiff_t; var imapp : ptrdiff_t; > ip : pointer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_att (ncid : integer; varid : integer; name : pchar; var > xtypep : nc_type; var lenp : size_t) : integer; cdecl; external > 'netcdf.DLL'; > function nc_inq_attid (ncid : integer; varid : integer; name : pchar; var > idp : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_atttype (ncid : integer; varid : integer; name : pchar; var > xtypep : nc_type) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_attlen (ncid : integer; varid : integer; name : pchar; var > lenp : size_t) : integer; cdecl; external 'netcdf.DLL'; > function nc_inq_attname (ncid : integer; varid : integer; attnum : integer; > name : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_copy_att (ncid_in : integer; varid_in : integer; name : pchar; > ncid_out : integer; varid_out : integer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_rename_att (ncid : integer; varid : integer; name : pchar; > newname : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_del_att (ncid : integer; varid : integer; name : pchar) : > integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_text (ncid : integer; varid : integer; name : pchar; len > : size_t; op : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_get_att_text (ncid : integer; varid : integer; name : pchar; ip > : pchar) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_uchar (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : byte) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_uchar (ncid : integer; varid : integer; name : pchar; > var ip : byte) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_schar (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : shortint) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_schar (ncid : integer; varid : integer; name : pchar; > var ip : shortint) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_short (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : smallint) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_short (ncid : integer; varid : integer; name : pchar; > var ip : smallint) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_int (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : integer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_int (ncid : integer; varid : integer; name : pchar; var > ip : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_long (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : integer) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_long (ncid : integer; varid : integer; name : pchar; var > ip : integer) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_float (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : single) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_float (ncid : integer; varid : integer; name : pchar; > var ip : single) : integer; cdecl; external 'netcdf.DLL'; > function nc_put_att_double (ncid : integer; varid : integer; name : pchar; > xtype : nc_type; len : size_t; var op : double) : integer; cdecl; external > 'netcdf.DLL'; > function nc_get_att_double (ncid : integer; varid : integer; name : pchar; > var ip : double) : integer; cdecl; external 'netcdf.DLL'; > > implementation > > end.
netcdfgroup archives: