mitab.def

mitab,读取MapInfo的地图文件

' **********************************************************************
' * $Id: mitab.def,v 1.8 2005/04/01 16:22:54 dmorissette Exp $
' *
' * Name:     mitab.def
' * Project:  MapInfo TAB Read/Write library
' * Language: MapBasic
' * Purpose:  MapBasic include file 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.def,v $
' * Revision 1.8  2005/04/01 16:22:54  dmorissette
' * Updated to Libversion = 1004000 for 1.4.0 release
' *
' * Revision 1.7  2004/07/07 22:10:32  dmorissette
' * Update for 1.3.0 release by BVT
' *
' * Revision 1.7  2004/07/06 18:51:00  bvt
' * Added declaration for:
' * mitab_c_load_coordsys_table
' * mitab_c_get_extended_mif_coordsys_vb
' * mitab_c_get_feature_count
' * mitab_c_get_field_as_double
' *
' * Revision 1.6  2003/08/07 18:51:00  dmorissette
' * Added mitab_c_getlibversion declaration (BVT - Bug 21)
' *
' * Revision 1.6  2003/07/29 14:39:26  dmorissette
' * Update for v1.2.4 from BVT (mitab_c_add_field declaration changed)
' *
' * Revision 1.5  2003/07/29 13:53:11  daniel
' * Update for v1.2.4 from BVT (mitab_c_add_field declaration changed)
' *
' * Revision 1.4  2002/08/01 13:53:11  daniel
' * Update for v1.2.2 from BVT
' *
' * Revision 1.4  2002/07/07 22:04:22  bvt
' * Added declaration for mitab_c_is_interior_ring
' *
' * Revision 1.3  2002/05/09 22:04:22  daniel
' * Added missing TABFC_MultiPoint=10
' *
' * Revision 1.2  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 def file name
' * to mitab_vb.def 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)
' *
' *

Type mitab_projinfo
  ph(255) As Logical
End Type

Define TABFC_NoGeom  0
Define TABFC_Point  1
Define TABFC_FontPoint  2
Define TABFC_CustomPoint  3
Define TABFC_Text  4
Define TABFC_Polyline  5
Define TABFC_Arc  6
Define TABFC_Region  7
Define TABFC_Rectangle  8
Define TABFC_Ellipse  9
Define TABFC_MultiPoint 10
Define TABFT_Char  1
Define TABFT_Integer  2
Define TABFT_SmallInt  3
Define TABFT_Decimal  4
Define TABFT_Float  5
Define TABFT_Date  6
Define TABFT_Logical  7
Define TABTJ_Left  0
Define TABTJ_Center  1
Define TABTJ_Right 2
Define TABTS_Single  0
Define TABTS_1_5  1
Define TABTS_Double  2
Define TABTL_NoLine  0
Define TABTL_Simple  1
Define TABTL_Arrow  2

Define Libversion 1004000

Declare Function mitab_c_add_field Lib "mitab.dll" Alias "_mitab_c_add_field@28" (ByVal handle  As Integer, ByVal field_name As String, ByVal field_type  As Integer, ByVal width  As Integer, ByVal precision  As Integer, ByVal indexed As Integer, ByVal unique As Integer)  As Integer
Declare Sub mitab_c_close Lib "mitab.dll" Alias "_mitab_c_close@4" (ByVal handle  As Integer)
Declare Function mitab_c_create Lib "mitab.dll" Alias "_mitab_c_create@44" (ByVal filename As String, ByVal mif_or_tab As String, ByVal mif_projectiondef As String, ByVal north As Float, ByVal south As Float, ByVal east As Float, ByVal west As Float)  As Integer
Declare Function mitab_c_create_feature Lib "mitab.dll" Alias "_mitab_c_create_feature@8" (ByVal handle  As Integer, ByVal feature_type  As Integer)  As Integer
Declare Sub mitab_c_destroy_feature Lib "mitab.dll" Alias "_mitab_c_destroy_feature@4" (ByVal feature  As Integer)
Declare Function mitab_c_get_brush_bgcolor Lib "mitab.dll" Alias "_mitab_c_get_brush_bgcolor@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_brush_fgcolor Lib "mitab.dll" Alias "_mitab_c_get_brush_fgcolor@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_brush_pattern Lib "mitab.dll" Alias "_mitab_c_get_brush_pattern@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_brush_transparent Lib "mitab.dll" Alias "_mitab_c_get_brush_transparent@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_field_as_string_vb Lib "mitab.dll" Alias "_mitab_c_get_field_as_string_vb@16" (ByVal feature As Integer, ByVal field As Integer, ByVal value As String, ByVal l as Integer) As Integer
Declare Function mitab_c_get_field_count Lib "mitab.dll" Alias "_mitab_c_get_field_count@4" (ByVal handle  As Integer)  As Integer
Declare Function mitab_c_get_field_name_vb Lib "mitab.dll" Alias "_mitab_c_get_field_name_vb@16" (ByVal handle As Integer, ByVal field As Integer, ByVal name As String, ByVal l As Integer) As Integer
Declare Function mitab_c_get_field_type Lib "mitab.dll" Alias "_mitab_c_get_field_type@8" (ByVal handle  As Integer, ByVal field  As Integer)  As Integer
Declare Function mitab_c_get_font_vb Lib "mitab.dll" Alias "_mitab_c_get_font_vb@12" (ByVal feature  As Integer, ByVal font As String, ByVal l As Integer)  As Integer
Declare Function mitab_c_getlibversion  Lib "mitab.dll" Alias "_mitab_c_getlibversion@0"  () As Integer
Declare Function mitab_c_get_mif_coordsys_vb Lib "mitab.dll" Alias "_mitab_c_get_mif_coordsys_vb@12" (ByVal dataset As Integer, ByVal coordsys As String) As Integer
Declare Function mitab_c_get_extended_mif_coordsys_vb Lib "mitab.dll" Alias "_mitab_c_get_extended_mif_coordsys_vb@12" (ByVal dataset As Integer, ByVal coordsys As String) As Integer
Declare Function mitab_c_get_parts Lib "mitab.dll" Alias "_mitab_c_get_parts@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_pen_color Lib "mitab.dll" Alias "_mitab_c_get_pen_color@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_pen_pattern Lib "mitab.dll" Alias "_mitab_c_get_pen_pattern@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_pen_width Lib "mitab.dll" Alias "_mitab_c_get_pen_width@4" (ByVal feature  As Integer)  As Integer
'Declare Function mitab_c_get_projinfo Lib "mitab.dll" Alias "_mitab_c_get_projinfo@4" (ByVal dataset  As Integer) As mitab_projinfo
Declare Function mitab_c_get_symbol_color Lib "mitab.dll" Alias "_mitab_c_get_symbol_color@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_symbol_no Lib "mitab.dll" Alias "_mitab_c_get_symbol_no@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_symbol_size Lib "mitab.dll" Alias "_mitab_c_get_symbol_size@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_vb Lib "mitab.dll" Alias "_mitab_c_get_text_vb@12" (ByVal feature As Integer, ByVal text As String, ByVal l As Integer) As Integer
Declare Function mitab_c_get_text_angle Lib "mitab.dll" Alias "_mitab_c_get_text_angle@4" (ByVal feature  As Integer) As Float
Declare Function mitab_c_get_text_bgcolor Lib "mitab.dll" Alias "_mitab_c_get_text_bgcolor@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_fgcolor Lib "mitab.dll" Alias "_mitab_c_get_text_fgcolor@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_height Lib "mitab.dll" Alias "_mitab_c_get_text_height@4" (ByVal feature  As Integer) As Float
Declare Function mitab_c_get_text_justification Lib "mitab.dll" Alias "_mitab_c_get_text_justification@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_linetype Lib "mitab.dll" Alias "_mitab_c_get_text_linetype@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_spacing Lib "mitab.dll" Alias "_mitab_c_get_text_spacing@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_text_width Lib "mitab.dll" Alias "_mitab_c_get_text_width@4" (ByVal feature  As Integer) As Float
Declare Function mitab_c_get_type Lib "mitab.dll" Alias "_mitab_c_get_type@4" (ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_vertex_count Lib "mitab.dll" Alias "_mitab_c_get_vertex_count@8" (ByVal feature  As Integer, ByVal part  As Integer)  As Integer
Declare Function mitab_c_get_vertex_x Lib "mitab.dll" Alias "_mitab_c_get_vertex_x@12" (ByVal feature  As Integer, ByVal part, ByVal vertex  As Integer) As Float
Declare Function mitab_c_get_vertex_y Lib "mitab.dll" Alias "_mitab_c_get_vertex_y@12" (ByVal feature  As Integer, ByVal part, ByVal vertex  As Integer) As Float
Declare Function mitab_c_getlasterrormsg_vb Lib "mitab.dll" Alias "_mitab_c_getlasterrormsg_vb@8" (ByVal errormsg As String, ByVal l As Integer) As Integer
Declare Function mitab_c_getlasterrorno Lib "mitab.dll" Alias "_mitab_c_getlasterrorno@0" ()  As Integer
Declare Function mitab_c_next_feature_id Lib "mitab.dll" Alias "_mitab_c_next_feature_id@8" (ByVal handle  As Integer, ByVal last_feature_id  As Integer)  As Integer
Declare Function mitab_c_open Lib "mitab.dll" Alias "_mitab_c_open@4" (ByVal filename As String)  As Integer
Declare Function mitab_c_read_feature Lib "mitab.dll" Alias "_mitab_c_read_feature@8" (ByVal handle  As Integer, ByVal feature_id  As Integer)  As Integer
Declare Sub mitab_c_set_arc Lib "mitab.dll" Alias "_mitab_c_set_arc@52" (ByVal feature  As Integer, ByVal center_x, ByVal center_y, ByVal x_radius, ByVal y_radius, ByVal start_angle, ByVal end_angle As Float)
Declare Sub mitab_c_set_brush Lib "mitab.dll" Alias "_mitab_c_set_brush@20" (ByVal feature  As Integer, ByVal fg_color, ByVal bg_color, ByVal pattern, ByVal transparent  As Integer)
Declare Sub mitab_c_set_field Lib "mitab.dll" Alias "_mitab_c_set_field@12" (ByVal feature  As Integer, ByVal field_index  As Integer, ByVal value As String)
Declare Sub mitab_c_set_font Lib "mitab.dll" Alias "_mitab_c_set_font@8" (ByVal feature  As Integer, ByVal font_name As String)
Declare Sub mitab_c_set_pen Lib "mitab.dll" Alias "_mitab_c_set_pen@16" (ByVal feature  As Integer, ByVal width  As Integer, ByVal pattern  As Integer, ByVal color  As Integer)
Declare Sub mitab_c_set_points Lib "mitab.dll" Alias "_mitab_c_set_points@20" (ByVal feature  As Integer, ByVal part  As Integer, ByVal vertex_count  As Integer, x As Float, y As Float)
'Declare Function mitab_c_set_projinfo Lib "mitab.dll" Alias "_mitab_c_set_projinfo@8" (ByVal dataset  As Integer, ByVal projinfo As mitab_projinfo)  As Integer
Declare Sub mitab_c_set_symbol Lib "mitab.dll" Alias "_mitab_c_set_symbol@16" (ByVal feature  As Integer, ByVal symbol_no, ByVal symbol_size, ByVal symbol_color  As Integer)
Declare Sub mitab_c_set_text Lib "mitab.dll" Alias "_mitab_c_set_text@8" (ByVal feature  As Integer, ByVal text As String)
Declare Sub mitab_c_set_text_display Lib "mitab.dll" Alias "_mitab_c_set_text_display@48" (ByVal feature  As Integer, ByVal angle, ByVal height, ByVal width As Float, ByVal fg_color, ByVal bg_color, ByVal justification, ByVal spacing, ByVal linetype  As Integer)
Declare Function mitab_c_write_feature Lib "mitab.dll" Alias "_mitab_c_write_feature@8" (ByVal handle  As Integer, ByVal feature  As Integer)  As Integer
Declare Function mitab_c_get_field_width Lib "mitab.dll" Alias "_mitab_c_get_field_width@8" (ByVal handle  As Integer, ByVal field  As Integer)  As Integer
Declare Function mitab_c_get_field_precision Lib "mitab.dll" Alias "_mitab_c_get_field_precision@8" (ByVal handle  As Integer, ByVal field As Integer)  As Integer
Declare Function mitab_c_is_interior_ring Lib "mitab.dll" Alias "_mitab_c_is_interior_ring@8" (ByVal feature As Integer, ByVal requestedringindex As Integer) As Integer
Declare Function mitab_c_load_coordsys_table Lib "mitab.dll" Alias "_mitab_c_load_coordsys_table@4" (ByVal filename As String) As Integer
Declare Function mitab_c_get_feature_count Lib "mitab.dll" Alias "_mitab_c_get_feature_count@4" (ByVal handle As Integer) As Integer
Declare Function mitab_c_get_field_as_double Lib "mitab.dll" Alias "_mitab_c_get_field_as_double_vb@8" (ByVal feature As Integer, ByVal field As Integer) As Float