今回GISのシェープファイルを作成するに当たり各データ用のクラスを作成してBinaryでデータを開いて書きだそうとしているのですが、「ファイル入出力 (I/O) は無効です」とでて終了してしまいます。
使用ソフトはSharpDevelop4.3です
現在の使用コード
Class3
lang
1Public Class Class3 2 Public class DbfHeaderStruct ' Dbf ファイルヘッダ 3 Public Mark As Byte 4 Public Year As Byte 5 Public Month As Byte 6 Public Day As Byte 7 Public RecordCount As Long 8 Public HeaderLength As Integer 9 Public RecordLength As Integer 10 Public Reserved0 As Long 11 Public Reserved1 As Long 12 Public Reserved2 As Long 13 Public Reserved3 As Long 14 Public Reserved4 As Long 15 End class 16End Class
Main
lang
1Dim strDbf As String 2Dim lngDbfPtr As Long 3Dim DbfHeader As New Class3.DbfHeaderStruct() 4lngDbfPtr = 0 5strTemp = textbox3.text & "\" & name1 6strDbf = strTemp & ".dbf" 7nDbf = FreeFile() 8fileOpen(nDbf,strDbf,OpenMode.Binary) 9DbfHeader.Mark = 3 10DbfHeader.Year = Year(dtmNow) - 1900 11DbfHeader.Month = Month(dtmNow) 12DbfHeader.Day = DateAndTime.Day(dtmNow) 13DbfHeader.HeaderLength = 32 * 1 + 33 14DbfHeader.RecordLength = 5 + 1 15FilePutObject(nDbf, DbfHeader,lngDbfPtr +1) 'ここでエラーが発生 16
以上がコードの抜粋です。 対処方法ご教授よろしくお願いします。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/03/11 02:55