Mitab c++ 事例

///**********************************************************************
// * $Id: mitab_csharp_test.cs,v 1.2 2003/09/09 21:22:41 dmorissette Exp $
// *
// * Name:     mitab_csharp_test.cs
// * Project:  MapInfo TAB Read/Write library
// * Language: C#
// * Purpose:  Test mainline for MITAB C API in Visual Basic
// * Author:   Bo Thomsen, [email protected]
// *
// **********************************************************************
// * 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_csharp_test.cs,v $
// * Revision 1.2  2003/09/09 21:22:41  dmorissette
// * Update from BVT to work with version 1.2.4
// *
// * Revision 1.1  2002/09/07 17:58:01  daniel
// * Initial revision (from BVT)
// *
// * Revision 1.0  2002/09/07 14:53:59  bvt
// * translation of mitabc_test.c to CSharp
// *
// */

///************************************************************************/
///*                              testReportFile                              */
///************************************************************************/

public void testReportfile()
{
  ReportFile( "c:\\temp\\testtab.tab" , "c:\\temp\\testtab.txt" );
}

///************************************************************************/
///*                              ReportFile                              */
///************************************************************************/

public void ReportFile( string pszFilename, string pszReportname)
{

    long dataset = 0;
    long feature_id = 0;
    long num_fields = 0;
    long feature = 0;
    long feature_type = 0;
    long num_parts = 0;
    long partno = 0;
    long pointno = 0;
    long fieldno = 0;
    long num_points = 0;
    double dX = 0;
    double dY = 0;
    string sTmp = null ;
    string sTmp2 = null ;
    long i1 = 0;
    long i2 = 0;

    dataset = mitab_c_open(pszFilename);

    if (dataset == 0)
    {
      sTmp = new string ( ' ' , 255);
      i1 = mitab_c_getlasterrormsg_vb(sTmp, 255);
      MessageBox.Show( "mitab_c_open: " + pszFilename + " failed." + Environment.NewLine + sTmp.Substring(0, i1));
      return ;
    }

    sTmp = new string ( ' ' , 255);
    i1 = mitab_c_get_mif_coordsys_vb(dataset, sTmp, 255);
    Print #1, "Coodsys Clause: " ; sTmp.Substring(0, i1);

    num_fields = mitab_c_get_field_count(dataset);

    feature_id = mitab_c_next_feature_id(dataset, -1);
    while (feature_id != -1)
    {

///* -------------------------------------------------------------------- */
///*      Read next feature object                                        */
///* -------------------------------------------------------------------- */
      feature = mitab_c_read_feature(dataset, feature_id);
      if (feature == 0)
      {
        sTmp = new string ( ' ' , 255);
        i1 = mitab_c_getlasterrormsg_vb(sTmp, 255);
        MessageBox.Show( "Failed to read feature " + Str$(feature_id) + Environment.NewLine + sTmp.Substring(0, i1));
        return ;
      }

      feature_type = mitab_c_get_type(feature);
      num_parts = mitab_c_get_parts(feature);

      Print #1, "" ;
      Print #1, "Read feature " + Str$(feature_id) + ": type=" + Str$(feature_type) + ", num_parts=" + Str$(num_parts);

///* -------------------------------------------------------------------- */
///*      Dump the feature attributes...                                  */
///* -------------------------------------------------------------------- */
      for (fieldno = 0; fieldno < num_fields; fieldno++)
      {
        sTmp = new string ( ' ' , 255);
        i1 = mitab_c_get_field_name_vb(dataset, fieldno, sTmp, 255);
        sTmp2 = new string ( ' ' , 255);
        i2 = mitab_c_get_field_as_string_vb(feature, fieldno, sTmp2, 255);
        Print #1, "  " + sTmp.Substring(0, i1) + "=" + sTmp2.Substring(0, i2);
      }

///* -------------------------------------------------------------------- */
///*      ... and coordinates.                                            */
///*      In real applications, we would probably want to handle each     */
///*      object type differently but we won't do it here.                */
///* -------------------------------------------------------------------- */
      for (partno = 0; partno < num_parts; partno++)
      {

        Print #1, "  Part no " + Str$(partno + 1);

        num_points = mitab_c_get_vertex_count(feature, partno);
        for (pointno = 0; pointno < num_points; pointno++)
        {
          dX = mitab_c_get_vertex_x(feature, partno, pointno);
          dY = mitab_c_get_vertex_y(feature, partno, pointno);
          Print #1, "    " ; dX; dY;
        }
      }

      mitab_c_destroy_feature (feature);
      feature_id = mitab_c_next_feature_id(dataset, feature_id);
    }

    mitab_c_close (dataset);

    if (mitab_c_getlasterrorno() != 0)
    {
      sTmp = new string ( ' ' , 255);
      i1 = mitab_c_getlasterrormsg_vb(sTmp, 255);
      MsgBox "Last Error: " + sTmp.Substring(0, i1);
    }

}

///************************************************************************/
///*                              CopyFile()                              */
///************************************************************************/

public void CopyFile( string pszSource, string pszDest)
{
  MessageBox.Show( "Copy File not implemented at this time." );
}

///************************************************************************/
///*                              testWriteFile                           */
///************************************************************************/

public void testWritefile()
{
  WriteFile( "c:\\temp\\testtab.tab" , "tab" );
}

///************************************************************************/
///*                             WriteFile()                              */
///************************************************************************/

public void WriteFile( string pszDest, string pszMifOrTab)
{

    long dataset = 0;
    long feature = 0;
    double [] x = new double [100];
    double [] y = new double [100];
    long field_index = 0;
    string sTmp = null ;
    long i1 = 0;
    long i2 = 0;

    dataset = mitab_c_create(pszDest, pszMifOrTab, "CoordSys Earth Projection 1, 0" , 90, 0, 180, -180);

    if (dataset == 0)
    {
      sTmp = new string ( ' ' , 255);
      i1 = mitab_c_getlasterrormsg_vb(sTmp, 255);
      MessageBox.Show( "Failed to create " + pszMifOrTab + " file: " + pszDest + Environment.NewLine + sTmp.Substring(0, i1));
      return ;
    }

///* -------------------------------------------------------------------- */
///*      Add a text, float and integer field.                            */
///* -------------------------------------------------------------------- */
    field_index = mitab_c_add_field(dataset, "TestInt" , TABFT_Integer, 8, 0, 0, 0);
    field_index = mitab_c_add_field(dataset, "TestFloat" , TABFT_Float, 12, 2, 0, 0);
    field_index = mitab_c_add_field(dataset, "TestString" , TABFT_Char, 10, 0, 0, 0);

///* -------------------------------------------------------------------- */
///*      Write a point.                                                  */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Point);

    x[0] = 98;
    y[0] = 50;

    mitab_c_set_points(feature, 0, 1, x[0], y[0]);
    i1 = 256;
    i2 = 255;
    i1 = i1 * i2;
    mitab_c_set_symbol(feature, 41, 15, i1);
    mitab_c_set_field(feature, 0, "100" );
    mitab_c_set_field(feature, 1, "100.5" );
    mitab_c_set_field(feature, 2, "12345678901234567890" );
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write a MultiPoint.                                                  */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_MultiPoint);

    x[0] = 90;
    y[0] = 51;
    x[1] = 90.5;
    y[1] = 51.5;
    x[2] = 91;
    y[2] = 52;

    mitab_c_set_points(feature, 0, 3, x[0], y[0]);
    i1 = 256;
    i2 = 255;
    i1 = i1 * i2;
    mitab_c_set_symbol(feature, 41, 15, i1);
    mitab_c_set_field(feature, 0, "100" );
    mitab_c_set_field(feature, 1, "100.5" );
    mitab_c_set_field(feature, 2, "12345678901234567890" );
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write a line.                                                   */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Polyline);

    x[0] = 100;
    y[0] = 49;
    x[1] = 101;
    y[1] = 48;

    mitab_c_set_points(feature, 0, 2, x[0], y[0]);
    mitab_c_set_pen(feature, 1, 2, 255);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write text.                                                     */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Text);

    x[0] = 101;
    y[0] = 51;

    mitab_c_set_points(feature, 0, 1, x[0], y[0]);
    mitab_c_set_text(feature, "My text" );
    mitab_c_set_font(feature, "Arial" );
    mitab_c_set_text_display(feature, 45, 1, 7, 255 * 65536, 0, -1, -1, -1);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write region (polygon).                                         */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Region);

    x[0] = 101;
    y[0] = 51;
    x[1] = 100;
    y[1] = 51;
    x[2] = 100;
    y[2] = 50;
    x[3] = 101;
    y[3] = 50;
    x[4] = 101;
    y[4] = 51;

    mitab_c_set_points(feature, 0, 5, x[0], y[0]);

    x[0] = 100.5;
    y[0] = 50.5;
    x[1] = 100.5;
    y[1] = 50.7;
    x[2] = 100.7;
    y[2] = 50.7;
    x[3] = 100.7;
    y[3] = 50.5;
    x[4] = 100.5;
    y[4] = 50.5;

    mitab_c_set_points(feature, 1, 5, x[0], y[0]);

    mitab_c_set_brush(feature, 255, 0, 2, 0);
    mitab_c_set_pen(feature, 1, 2, 65535);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write a second region with two polygon (polygon).               */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Region);

    x[0] = 101;
    y[0] = 41;
    x[1] = 100;
    y[1] = 41;
    x[2] = 100;
    y[2] = 40;
    x[3] = 101;
    y[3] = 40;
    x[4] = 101;
    y[4] = 41;

    mitab_c_set_points(feature, 0, 5, x[0], y[0]);

    x[0] = 100.5;
    y[0] = 40.5;
    x[1] = 100.5;
    y[1] = 40.7;
    x[2] = 100.7;
    y[2] = 40.7;
    x[3] = 100.7;
    y[3] = 40.5;
    x[4] = 100.5;
    y[4] = 40.5;

    mitab_c_set_points(feature, 1, 5, x[0], y[0]);

    x[0] = 100.2;
    y[0] = 40.2;
    x[1] = 100.2;
    y[1] = 40.4;
    x[2] = 100.4;
    y[2] = 40.4;
    x[3] = 100.4;
    y[3] = 40.2;
    x[4] = 100.2;
    y[4] = 40.2;

    mitab_c_set_points(feature, 2, 5, x[0], y[0]);

    x[0] = 96;
    y[0] = 46;
    x[1] = 95;
    y[1] = 46;
    x[2] = 95;
    y[2] = 45;
    x[3] = 96;
    y[3] = 45;
    x[4] = 96;
    y[4] = 46;

    mitab_c_set_points(feature, 0, 5, x[0], y[0]);

    x[0] = 95.5;
    y[0] = 45.5;
    x[1] = 95.5;
    y[1] = 45.7;
    x[2] = 95.7;
    y[2] = 45.7;
    x[3] = 95.7;
    y[3] = 45.5;
    x[4] = 95.5;
    y[4] = 45.5;

    mitab_c_set_points(feature, 4, 5, x[0], y[0]);

    mitab_c_set_brush(feature, 255, 0, 2, 0);
    mitab_c_set_pen(feature, 1, 2, 65535);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write multiple polyline (3 parts).                              */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Polyline);

    x[0] = 111;
    y[0] = 57;
    x[1] = 110;
    y[1] = 57;
    x[2] = 110;
    y[2] = 56;

    mitab_c_set_points(feature, 0, 3, x[0], y[0]);

    x[0] = 108;
    y[0] = 56;
    x[1] = 109;
    y[1] = 57;

    mitab_c_set_points(feature, 1, 2, x[0], y[0]);

    x[0] = 105;
    y[0] = 55;
    x[1] = 105;
    y[1] = 57;
    x[2] = 107;
    y[2] = 57;
    x[3] = 107;
    y[3] = 55;

    mitab_c_set_points(feature, 2, 4, x[0], y[0]);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write an arc                                                    */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Arc);

    mitab_c_set_arc(feature, 70, 75, 10, 5, 45, 270);
    mitab_c_set_field(feature, 0, "123" );
    mitab_c_set_field(feature, 1, "456" );
    mitab_c_set_field(feature, 2, "12345678901234567890" );
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write an ellipse                                                */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Ellipse);

    mitab_c_set_arc(feature, 70, 75, 10, 5, 0, 0);
    mitab_c_set_field(feature, 0, "1" );
    mitab_c_set_field(feature, 1, "2" );
    mitab_c_set_field(feature, 2, "3" );
    mitab_c_set_brush(feature, 255, 0, 2, 0);
    mitab_c_set_pen(feature, 1, 2, 65535);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Write rectangle.                                                */
///*      The MBR of the array of points will be used for the             */
///*      rectangle corners.                                              */
///* -------------------------------------------------------------------- */
    feature = mitab_c_create_feature(dataset, TABFC_Rectangle);

    x[0] = 91;
    y[0] = 61;
    x[1] = 90;
    y[1] = 61;
    x[2] = 90;
    y[2] = 60;
    x[3] = 91;
    y[3] = 60;
    x[4] = 91;
    y[4] = 61;

    mitab_c_set_points(feature, 0, 5, x[0], y[0]);

    mitab_c_set_brush(feature, 255, 0, 2, 0);
    mitab_c_set_pen(feature, 1, 2, 65535);
    mitab_c_write_feature(dataset, feature);
    mitab_c_destroy_feature(feature);

///* -------------------------------------------------------------------- */
///*      Cleanup                                                         */
///* -------------------------------------------------------------------- */
    mitab_c_close (dataset);

    if (mitab_c_getlasterrorno() != 0)
    {
      sTmp = new string ( ' ' , 255);
      i1 = mitab_c_getlasterrormsg_vb(sTmp, 255);
      MsgBox "Last Error: " + sTmp.Substring(0, i1);
    }

}