mitab_dyn.pas

mitab,读取MapInfo的地图文件

{**********************************************************************
 * $Id: mitab_dyn.pas,v 1.16.2.1 2008/04/21 19:11:31 dmorissette Exp $
 *
 * Name:     mitab_dyn.pas
 * Project:  MapInfo TAB Read/Write library
 * Language: Pascal
 * Purpose:  Pascal interface unit for MITAB API prototypes using STDCALL
 *           calling convention. Used with MITAB dll compiled with
 *           the /Gz qualifier.
 * Author:   Bo Thomsen, [e-mail]
 *
 **********************************************************************
 * Copyright (c) 2002, Bo Thomsen
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 **********************************************************************
 *
 * $Log: mitab_dyn.pas,v $
 * Revision 1.16.2.1  2008/04/21 19:11:31  dmorissette
 * Updated contrib/mitab_dyn.pas for new 1.7.0 object types
 *
 * Revision 1.16  2007/12/11 04:26:28  dmorissette
 * Update for 1.6.4 release
 *
 * Revision 1.15  2007/09/14 19:42:39  dmorissette
 * Updated for 1.6.3-beta1
 *
 * Revision 1.14  2007/07/04 16:28:22  dmorissette
 * Updated to support both Delphi and Kylix (UffeK and MaximV, bug 1746)
 *
 * Revision 1.13  2007/06/12 14:49:34  dmorissette
 * Upgrade to Libversion = 1006002 (no API changes)
 *
 * Revision 1.12  2007/04/16 14:58:29  dmorissette
 * Added missing mitab_c_set_quick_spatial_index_mode defn in 1.6.1 (Uffe)
 *
 * Revision 1.11  2007/03/22 21:01:37  dmorissette
 * Update for v1.6.1
 *
 * Revision 1.10  2006/12/04 20:45:36  dmorissette
 * Upgrade for MITAB 1.6.0 from Uffe (bug 1621)
 *
 * Revision 1.9  2006/07/25 13:24:47  dmorissette
 * Updated for 1.5.1 release
 *
 * Revision 1.8  2006/02/16 15:13:38  dmorissette
 * Updated for 1.5.0 release
 *
 * Revision 1.7  2005/03/24 17:21:05  dmorissette
 * Updated Libversion to 1004000 for 1.4.0 release
 *
 * Revision 1.6  2004/07/05 18:45:24  dmorissette
 * Added mitab_c_load_coordsys_table defn (Uffe K.)
 *
 * Revision 1.5  2004/06/30 20:18:53  dmorissette
 * Update from Uffe K. for V1.3.0 release
 *
 * Revision 1.4  2003/08/07 03:24:30  dmorissette
 * Added function for checking of version of library (Uffe K. - bug 21)
 *
 * Revision 1.25  2003/08/06 22:50:00  uffe
 * Added function for checking of version of library
 *
 * Revision 1.24  2003/07/25  9:45:00  uffe
 * Updated to version 1.2.4 (mitab_c_add_field, now with correct function name)
 *
 * Revision 1.1  2002/08/01 13:56:01  daniel
 * Contributed by Uffe K. - header for dynamic loading of mitab.dll in Delphi
 *
 * Revision 1.22  2002/07/07 11:20:00  uffe
 * Updated to version 1.22 (mitab_c_is_interior_ring)
 *
 * Revision 1.21  2002/05/09  9:36:00  uffe
 * Changed to allow dynamic loading of DLL
 * Added subrange type definitions for constants
 *
 * Revision 1.21  2002/05/08 20:23:53  daniel
 * Update from Bo, and re-re-renamed mitab_vb.dll to mitab.dll (stdcall is default now)
 *
 * Revision 1.21  2002/05/07 13:43:30  bvt
 * changed the dll name to mitab_vb.dll. Changed the pas file name
 * to mitab_vb.pas to reflect the new name of the dll.
 *
 * Revision 1.2  2002/05/05 13:43:30  bvt
 * Added mitab_c_get_field_width and mitab_c_get_field_precision to api.
 *
 * Revision 1.1  2002/02/22 13:43:30  daniel
 * Initial Revision from Bo Thomsen
 *
 * Revision 1.00  2002/02/20 12:35:00  bvt
 * New - used in conjunction with mitab_capi.cpp,v 1.15 compiled with
 * /Gz (stdcall calling convention)
 *
 *}

unit mitab_dyn;

interface

// This define is missing in D5 and before
{$IFDEF VER130}
  {$DEFINE MSWINDOWS}
{$ENDIF}

Type
  mitab_handle = Longword;
  mitab_feature = Longword;
  mitab_projinfo = Longword;
  TABFC = 0..11;
  TABFT = 1..9;
  TABTJ = 0..2;
  TABTS = 0..2;
  TABTL = 0..2;
  TadProjParams = array [1..6] of double;
  TadDatumParams = array [1..5] of double;
  TadAffineParams = array [1..6] of double;

const
// update to match mitab.h (app. line 194), when new versions are released
  Libversion = 1007000;
  
// feature type values
  TABFC_NoGeom      = 0;
  TABFC_Point       = 1;
  TABFC_FontPoint   = 2;
  TABFC_CustomPoint = 3;
  TABFC_Text        = 4;
  TABFC_Polyline    = 5;
  TABFC_Arc         = 6;
  TABFC_Region      = 7;
  TABFC_Rectangle   = 8;
  TABFC_Ellipse     = 9;
  TABFC_Multipoint  = 10; // 1.2.0
  TABFC_Collection  = 11; // 1.7.0


// field types
  TABFT_Char        = 1;
  TABFT_Integer     = 2;
  TABFT_SmallInt    = 3;
  TABFT_Decimal     = 4;
  TABFT_Float       = 5;
  TABFT_Date        = 6;
  TABFT_Logical     = 7;
  TABFT_Time        = 8;  // 1.7.0
  TABFT_DateTime    = 9;  // 1.7.0


// text justification
  TABTJ_Left        = 0;
  TABTJ_Center      = 1;
  TABTJ_Right       = 2;