HAMLOG開発室BBS

HAMLOG開発室は、HAMLOGに関連したプログラム開発(C、パスカル、VB言語等、又はDLL)についての
専用BBSです。プログラム言語に関する投稿以外は通常のHAMLOG相談室に投稿して下さい。

Re: dbf_rcount 投稿者：jr1cpb/稲村

こんばんは、
やってみましたらうまくレコード件数取得できているようです。
構造体の定義を下記のようにしています。

Structure TThLog
<VBFixedArray(3927), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=3927)> Dim Qso() As Byte
Public Sub Initialize()
ReDim Qso(3927)
End Sub
End Structure
Structure TDBFh
<VBFixedArray(4), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=4)> Dim lupdt() As Byte
Dim Rcount As Integer
Dim hsize As Integer
Dim recnm As Integer
Dim fHdl As Integer
<VBFixedArray(260), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=260)> Dim Temp() As Byte
Public Sub Initialize()
ReDim lupdt(4)
ReDim Temp(260)
End Sub
End Structure

2009/07/21(Tue) 23:22:16 [No.112]

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）

★ - dbf_rcount - JA2BQX 太田 07/21-17:17 No.110
    ・  Re: dbf_rcount - JO1SIM 出島 07/21-22:05 No.111
      ・  Re: dbf_rcount - JA2BQX 太田 07/22-06:46 No.113
    ・   Re: dbf_rcount - jr1cpb/稲村 07/21-23:22 No.112
      ・  Re: dbf_rcount - JA2BQX 太田 07/22-06:50 No.114
        ・  Re: dbf_rcount - jr1cpb/稲村 07/22-08:20 No.115
          ・  Re: dbf_rcount - JA2BQX 太田 07/22-08:44 No.116
            ・  Re: dbf_rcount - JA2BQX 太田 07/22-10:04 No.117
              ・  Re: dbf_rcount - jr1cpb/稲村 07/22-12:38 No.118
              ・  Re: dbf_rcount - JO1SIM 出島 07/22-12:40 No.119
                ・  Re: dbf_rcount - JA2BQX 太田 07/22-13:12 No.120

- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

Call 名前 ※必須

文字色 ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■

Ｅメール

タイトル sage
ＵＲＬ

メッセージ 手動改行強制改行図表モード
メッセージには上記と同じURLを書き込まないで下さい
> こんばんは、 > やってみましたらうまくレコード件数取得できているようです。 > 構造体の定義を下記のようにしています。 > > Structure TThLog > <VBFixedArray(3927), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=3927)> Dim Qso() As Byte > Public Sub Initialize() > ReDim Qso(3927) > End Sub > End Structure > Structure TDBFh > <VBFixedArray(4), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=4)> Dim lupdt() As Byte > Dim Rcount As Integer > Dim hsize As Integer > Dim recnm As Integer > Dim fHdl As Integer > <VBFixedArray(260), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=260)> Dim Temp() As Byte > Public Sub Initialize() > ReDim lupdt(4) > ReDim Temp(260) > End Sub > End Structure

画像File (130kBまで)

暗証キー (英数字で8文字以内)

投稿キー （投稿時を入力してください）

プレビュー

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > こんばんは、 > やってみましたらうまくレコード件数取得できているようです。 > 構造体の定義を下記のようにしています。 > > Structure TThLog > <VBFixedArray(3927), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=3927)> Dim Qso() As Byte > Public Sub Initialize() > ReDim Qso(3927) > End Sub > End Structure > Structure TDBFh > <VBFixedArray(4), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=4)> Dim lupdt() As Byte > Dim Rcount As Integer > Dim hsize As Integer > Dim recnm As Integer > Dim fHdl As Integer > <VBFixedArray(260), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=260)> Dim Temp() As Byte > Public Sub Initialize() > ReDim lupdt(4) > ReDim Temp(260) > End Sub > End Structure
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー