HAMLOG開発室BBS

Re: VB2010 Th521api cmmd = 119 投稿者：JA2BQX 太田

おかげさまでＷｉｎＸｐでのＶＢ２０１０とＷｉｎ７（６４ｂｉｔ版）のＶＢ２０１０でも　cmmd = 119　は出来ました。

続けてで恐縮ですが、下記はＷｉｎＸｐでのＶＢ２０１０では動くのですが
Ｗｉｎ７（６４ｂｉｔ版）では、
cmmd = 27 でクローズしてから　Hamlog.dx0　をオープンしようとすると
「間違ったフォーマットのプログラムを読み込もうとしました」のエラ－が出てしまいます。（ＶＢ６ではＯＫだが．．．）

どこかおかしなところがあればご指摘をお願いします。

Structure TIDXh ' インデックスファイル用
Dim p As Int32
Dim fHdl As Int32
<VBFixedArray(260), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=260)> Dim Temp() As Byte
Public Sub Initialize()
ReDim Temp(260)
End Sub
End Structure

Declare Function idx_open Lib "Hamlog50.dll" (ByVal s As String, ByRef p As TIDXh) As Int32
Declare Sub idx_close Lib "Hamlog50.dll" (ByRef p As TIDXh)
Declare Function idx_search Lib "Hamlog50.dll" (ByRef p As TIDXh, ByVal s As String, ByVal l As Int32) As Int32
Declare Function idx_next Lib "Hamlog50.dll" (ByRef p As TIDXh) As Int32

Public THindx As TIDXh

（idx_open , idx_search , idx_next , idx_close も同じエラーが出る）

Ret = idx_open("C:\Hamlog\Hamlog.dx0", THindx) 'DbsCallDX でＱＳＯデータ、コールサイン順（*.DX0）

2012/10/13(Sat) 22:05:20 [No.314]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > おかげさまでＷｉｎＸｐでのＶＢ２０１０とＷｉｎ７（６４ｂｉｔ版）のＶＢ２０１０でも　cmmd = 119　は出来ました。 > > > 続けてで恐縮ですが、下記はＷｉｎＸｐでのＶＢ２０１０では動くのですが > Ｗｉｎ７（６４ｂｉｔ版）では、 > cmmd = 27 でクローズしてから　Hamlog.dx0　をオープンしようとすると > 「間違ったフォーマットのプログラムを読み込もうとしました」のエラ－が出てしまいます。（ＶＢ６ではＯＫだが．．．） > > どこかおかしなところがあればご指摘をお願いします。 > > > Structure TIDXh ' インデックスファイル用 > Dim p As Int32 > Dim fHdl As Int32 > <VBFixedArray(260), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=260)> Dim Temp() As Byte > Public Sub Initialize() > ReDim Temp(260) > End Sub > End Structure > > Declare Function idx_open Lib "Hamlog50.dll" (ByVal s As String, ByRef p As TIDXh) As Int32 > Declare Sub idx_close Lib "Hamlog50.dll" (ByRef p As TIDXh) > Declare Function idx_search Lib "Hamlog50.dll" (ByRef p As TIDXh, ByVal s As String, ByVal l As Int32) As Int32 > Declare Function idx_next Lib "Hamlog50.dll" (ByRef p As TIDXh) As Int32 > > Public THindx As TIDXh > > （idx_open , idx_search , idx_next , idx_close も同じエラーが出る） > > Ret = idx_open("C:\Hamlog\Hamlog.dx0", THindx) 'DbsCallDX でＱＳＯデータ、コールサイン順（*.DX0）
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー