form1.frm

包含详细例子的c#创建shape文件的开源码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   720
      TabIndex        =   0
      Top             =   840
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim hDBF As Long
    Dim lRet As Long
    Dim i As Long
    Dim sPath As String
    
    sPath = "test"
    
    ' create dbase file
    hDBF = DBFCreate(ByVal sPath)
    
    lRet = DBFAddField(ByVal hDBF, ByVal sPath, FTInteger, 5, 0)
    lRet = (DBFAddField(ByVal hDBF, ByVal "log", FTLogical, 1, 0))
    lRet = (DBFAddField(ByVal hDBF, ByVal "name", FTString, 10, 0))
    lRet = (DBFAddField(ByVal hDBF, ByVal "xCoord", FTDouble, 11, 2))

    For i = 0 To 2
        lRet = (DBFWriteIntegerAttribute(ByVal hDBF, i, 0, i * 10))
        lRet = (DBFWriteLogicalAttribute(ByVal hDBF, i, 1, ByVal (StrConv("q", vbFromUnicode))))
        lRet = (DBFWriteStringAttribute(ByVal hDBF, i, 2, ByVal "hello"))
        lRet = (DBFWriteDoubleAttribute(ByVal hDBF, i, 3, CDbl(100 * Rnd)))
    Next i
    DBFClose ByVal hDBF
    
    Exit Sub
    
    ' create shape files
    Dim hShp As Long
    Dim shpObj As SHPObject
    Dim dfX(3) As Double
    Dim dfY(3) As Double
    Dim pShpObj As Long
   
    hShp = SHPCreate(ByVal sPath, SHPT_POLYGON)
    
    dfX(0) = 0
    dfX(1) = 1
    dfX(2) = 1
    dfX(3) = dfX(0)
    dfY(0) = 0
    dfY(1) = 1
    dfY(2) = 0
    dfY(3) = dfY(0)
    pShpObj = SHPCreateSimpleObject(SHPT_POLYGON, 4, VarPtr(dfX(0)), VarPtr(dfY(0)), 0&)
    MoveMemory shpObj, ByVal pShpObj, Len(shpObj)
    SHPWriteObject hShp, 0, shpObj
    SHPDestroyObject shpObj
    
    dfX(0) = 10
    dfX(1) = 11
    dfX(2) = 11
    dfX(3) = dfX(0)
    dfY(0) = 10
    dfY(1) = 11
    dfY(2) = 10
    dfY(3) = dfY(0)
    pShpObj = SHPCreateSimpleObject(SHPT_POLYGON, 4, VarPtr(dfX(0)), VarPtr(dfY(0)), 0&)
    MoveMemory shpObj, ByVal pShpObj, Len(shpObj)
    SHPWriteObject hShp, 1, shpObj
    SHPDestroyObject shpObj
    
    dfX(0) = 20
    dfX(1) = 21
    dfX(2) = 21
    dfX(3) = dfX(0)
    dfY(0) = 20
    dfY(1) = 21
    dfY(2) = 20
    dfY(3) = dfY(0)
    pShpObj = SHPCreateSimpleObject(SHPT_POLYGON, 4, VarPtr(dfX(0)), VarPtr(dfY(0)), 0&)
    MoveMemory shpObj, ByVal pShpObj, Len(shpObj)
    SHPWriteObject hShp, 2, shpObj
    SHPDestroyObject shpObj
    
    SHPClose hShp


End Sub