Marshal (ID:146097)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

魔界の仮面弁士さん、ありがとうございます。

下記のようにして見ましたがファイルオープン時に
ｓｄの返値が５になり失敗しているようです。  ゼロで成功。
        sd = Vdbf_open("C:\HAMLOG\Hamlog.hdb", d)

お気づきの箇所があればご指摘いただければ幸いです。

Imports System
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Public Class Form1

<StructLayout(LayoutKind.Sequential, Pack:=1)> Structure TThLog
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=3928)> Public QSo() As Byte
    End Structure
    Private Declare Function Vdbf_rcount Lib "Thdll2Vb.dll" (ByRef qso As TThLog) As Integer

<DllImport("Thdll2Vb.dll")> _
    Private Shared Function Vdbf_open(ByRef s As String, ByRef d As TThLog) As Integer
    End Function

<DllImport("Thdll2Vb.dll")> _
    Private Shared Sub Vdbf_close(ByRef d As TThLog)
    End Sub

Public Th As TDBFh
    Dim d As TThLog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sd As Integer
        Dim recno As Integer

ReDim d.QSo(3927)

sd = Vdbf_open("C:\HAMLOG\Hamlog.hdb", d)
        recno = Vdbf_rcount(d)
        Vdbf_close(d)
        Label2.Text = recno

End Sub

End Class

←解決時は質問者本人がここをチェックしてください。

戻る