mitab_dyn.pas

mitab,读取MapInfo的地图文件

// text spacing
  TABTS_Single      = 0;
  TABTS_1_5         = 1;
  TABTS_Double      = 2;

// test linetype
  TABTL_NoLine      = 0;
  TABTL_Simple      = 1;
  TABTL_Arrow       = 2;

type
  Tmitab_c_add_field                      = function(handle: mitab_handle; field_name: pchar; field_type, width, precision, indexed, unique: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_close                          = procedure(handle: mitab_handle); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_create                         = function(filename, mif_or_tab, mif_projectiondef: pchar; north, south, east, west: double): mitab_handle; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_create_feature                 = function(handle: mitab_handle; feature_type: longint): mitab_feature; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_destroy_feature                = procedure(feature: mitab_feature); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_getlasterrormsg                = function(): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_getlasterrormsg_vb             = function(errormsg: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_getlasterrorno                 = function(): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_getlibversion                  = function(): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_brush_bgcolor              = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_brush_fgcolor              = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_brush_pattern              = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_brush_transparent          = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_extended_mif_coordsys      = function(dataset: mitab_handle): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_feature_count              = function(feature: mitab_handle): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_as_double            = function(feature: mitab_feature; field: longint): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_as_string            = function(feature: mitab_feature; field: longint): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_as_string_vb         = function(feature: mitab_feature; field: longint; value: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_count                = function(handle: mitab_handle): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_name                 = function(handle: mitab_handle; field: longint): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_name_vb              = function(handle: mitab_handle; field: longint; name: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_precision            = function(handle: mitab_handle; field: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_type                 = function(handle: mitab_handle; field: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_field_width                = function(handle: mitab_handle; field: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_font                       = function(feature: mitab_feature): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_font_vb                    = function(feature: mitab_feature; font: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_mif_coordsys               = function(dataset: mitab_handle): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_mif_coordsys_vb            = function(dataset: mitab_handle; coordsys: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_parts                      = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_pen_color                  = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_pen_pattern                = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_pen_width                  = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_projinfo                   = function(dataset: mitab_handle): mitab_projinfo; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_symbol_color               = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_symbol_no                  = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_symbol_size                = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text                       = function(feature: mitab_feature): pchar; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_angle                 = function(feature: mitab_feature): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_bgcolor               = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_fgcolor               = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_height                = function(feature: mitab_feature): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_justification         = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_linetype              = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_spacing               = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_vb                    = function(feature: mitab_feature; text: pchar; l: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_text_width                 = function(feature: mitab_feature): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_type                       = function(feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_vertex_count               = function(feature: mitab_feature; part: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_vertex_x                   = function(feature: mitab_feature; part, vertex: longint): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_vertex_y                   = function(feature: mitab_feature; part, vertex: longint): double; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_is_interior_ring               = function(feature: mitab_feature; requestedringindex: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_load_coordsys_table            = function(filename: pchar): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_next_feature_id                = function(handle: mitab_handle; last_feature_id: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_open                           = function(filename: pchar): mitab_handle; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_read_feature                   = function(handle:  mitab_handle; feature_id: longint): mitab_feature; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_arc                        = procedure(feature: mitab_feature; center_x, center_y, x_radius, y_radius, start_angle, end_angle: double); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_brush                      = procedure(feature: mitab_feature; fg_color, bg_color, pattern, transparent: longint); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_field                      = procedure(feature: mitab_feature; field_index: longint; value: pchar); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_font                       = procedure(feature: mitab_feature; font_name: pchar); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_pen                        = procedure(feature: mitab_feature; width, pattern, color: longint); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_points                     = procedure(feature: mitab_feature; part, vertex_count: longint; var x,y: double); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_projinfo                   = function(dataset: mitab_handle; projinfo: mitab_projinfo): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_symbol                     = procedure(feature: mitab_feature; symbol_no, symbol_size, symbol_color: longint); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_text                       = procedure(feature: mitab_feature; text: pchar); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_text_display               = procedure(feature: mitab_feature; angle, height, width: double; fg_color, bg_color, justification, spacing, linetype: longint); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_write_feature                  = function(handle: mitab_handle; feature: mitab_feature): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_collection_region_ref      = function(feature: mitab_feature): mitab_feature; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_collection_polyline_ref    = function(feature: mitab_feature): mitab_feature; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_collection_multipoint_ref  = function(feature: mitab_feature): mitab_feature; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_collection_region          = function(feature,region: mitab_feature; make_copy: integer): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_collection_polyline        = function(feature,polyline: mitab_feature; make_copy: integer): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_collection_multipoint      = function(feature,multipoint: mitab_feature; make_copy: integer): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_projection_info            = procedure(projInfo: mitab_projinfo; var nProjId,nEllipsoidId,nUnitsId: longint; var adProjParams: TadProjParams); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_projection_info            = procedure(projInfo: mitab_projinfo; nProjId,nEllipsoidId,nUnitsId: longint; var adProjParams: TadProjParams); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_datum_info                 = procedure(projInfo: mitab_projinfo; var dDatumShiftX,dDatumShiftY,dDatumShiftZ: double; var adDatumParams: TadDatumParams); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_datum_info                 = procedure(projInfo: mitab_projinfo; dDatumShiftX,dDatumShiftY,dDatumShiftZ: double; var adDatumParams: TadDatumParams); {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_get_affine_params              = function(projInfo: mitab_projinfo; var nAffineUnits: longint; var adAffineParams: TadAffineParams): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_affine_params              = function(projInfo: mitab_projinfo; nAffineUnits: longint; var adAffineParams: TadAffineParams): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_is_field_indexed               = function(handle: mitab_handle; field: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_is_field_unique                = function(handle: mitab_handle; field: longint): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}
  Tmitab_c_set_quick_spatial_index_mode   = function(handle: mitab_handle): longint; {$IFDEF LINUX} cdecl; {$ELSE} stdcall; {$ENDIF}

var
  LibPath: string;        // Full path to the MITAB DLL, default value is just 'mitab.dll'
  MITAB_LoadErr: integer; //  0: Loaded OK
                          // -1: Not loaded yet (default)
                          // -2: DLL/SO not found
                          // -3: DLL/SO found, but mitab_c_getlibversion is missing
                          // -4: Wrong version of library

  mitab_c_add_field: Tmitab_c_add_field;
  mitab_c_close: Tmitab_c_close;
  mitab_c_create: Tmitab_c_create;
  mitab_c_create_feature: Tmitab_c_create_feature;
  mitab_c_destroy_feature: Tmitab_c_destroy_feature;
  mitab_c_getlasterrormsg: Tmitab_c_getlasterrormsg;
  mitab_c_getlasterrormsg_vb: Tmitab_c_getlasterrormsg_vb;
  mitab_c_getlasterrorno: Tmitab_c_getlasterrorno;
  mitab_c_getlibversion: Tmitab_c_getlibversion;
  mitab_c_get_brush_bgcolor: Tmitab_c_get_brush_bgcolor;
  mitab_c_get_brush_fgcolor: Tmitab_c_get_brush_fgcolor;
  mitab_c_get_brush_pattern: Tmitab_c_get_brush_pattern;
  mitab_c_get_brush_transparent: Tmitab_c_get_brush_transparent;
  mitab_c_get_extended_mif_coordsys: Tmitab_c_get_extended_mif_coordsys;
  mitab_c_get_feature_count: Tmitab_c_get_feature_count;
  mitab_c_get_field_as_double: Tmitab_c_get_field_as_double;
  mitab_c_get_field_as_string: Tmitab_c_get_field_as_string;
  mitab_c_get_field_as_string_vb: Tmitab_c_get_field_as_string_vb;
  mitab_c_get_field_count: Tmitab_c_get_field_count;
  mitab_c_get_field_name: Tmitab_c_get_field_name;
  mitab_c_get_field_name_vb: Tmitab_c_get_field_name_vb;
  mitab_c_get_field_precision: Tmitab_c_get_field_precision;
  mitab_c_get_field_type: Tmitab_c_get_field_type;
  mitab_c_get_field_width: Tmitab_c_get_field_width;
  mitab_c_get_font: Tmitab_c_get_font;
  mitab_c_get_font_vb: Tmitab_c_get_font_vb;
  mitab_c_get_mif_coordsys: Tmitab_c_get_mif_coordsys;
  mitab_c_get_mif_coordsys_vb: Tmitab_c_get_mif_coordsys_vb;
  mitab_c_get_parts: Tmitab_c_get_parts;
  mitab_c_get_pen_color: Tmitab_c_get_pen_color;
  mitab_c_get_pen_pattern: Tmitab_c_get_pen_pattern;
  mitab_c_get_pen_width: Tmitab_c_get_pen_width;
  mitab_c_get_projinfo: Tmitab_c_get_projinfo;
  mitab_c_get_symbol_color: Tmitab_c_get_symbol_color;
  mitab_c_get_symbol_no: Tmitab_c_get_symbol_no;
  mitab_c_get_symbol_size: Tmitab_c_get_symbol_size;
  mitab_c_get_text: Tmitab_c_get_text;
  mitab_c_get_text_angle: Tmitab_c_get_text_angle;
  mitab_c_get_text_bgcolor: Tmitab_c_get_text_bgcolor;
  mitab_c_get_text_fgcolor: Tmitab_c_get_text_fgcolor;
  mitab_c_get_text_height: Tmitab_c_get_text_height;
  mitab_c_get_text_justification: Tmitab_c_get_text_justification;
  mitab_c_get_text_linetype: Tmitab_c_get_text_linetype;
  mitab_c_get_text_spacing: Tmitab_c_get_text_spacing;
  mitab_c_get_text_vb: Tmitab_c_get_text_vb;
  mitab_c_get_text_width: Tmitab_c_get_text_width;
  mitab_c_get_type: Tmitab_c_get_type;
  mitab_c_get_vertex_count: Tmitab_c_get_vertex_count;
  mitab_c_get_vertex_x: Tmitab_c_get_vertex_x;
  mitab_c_get_vertex_y: Tmitab_c_get_vertex_y;
  mitab_c_is_interior_ring: Tmitab_c_is_interior_ring;
  mitab_c_load_coordsys_table: Tmitab_c_load_coordsys_table;
  mitab_c_next_feature_id: Tmitab_c_next_feature_id;
  mitab_c_open: Tmitab_c_open;
  mitab_c_read_feature: Tmitab_c_read_feature;
  mitab_c_set_arc: Tmitab_c_set_arc;
  mitab_c_set_brush: Tmitab_c_set_brush;
  mitab_c_set_field: Tmitab_c_set_field;
  mitab_c_set_font: Tmitab_c_set_font;
  mitab_c_set_pen: Tmitab_c_set_pen;
  mitab_c_set_points: Tmitab_c_set_points;
  mitab_c_set_projinfo: Tmitab_c_set_projinfo;
  mitab_c_set_symbol: Tmitab_c_set_symbol;
  mitab_c_set_text: Tmitab_c_set_text;
  mitab_c_set_text_display: Tmitab_c_set_text_display;
  mitab_c_write_feature: Tmitab_c_write_feature;
  mitab_c_get_collection_region_ref: Tmitab_c_get_collection_region_ref;
  mitab_c_get_collection_polyline_ref: Tmitab_c_get_collection_polyline_ref;