HAMLOG プログラム開発室

お世話になります。
先程の「Th521APIアップしました 」で上手く動作した　cmmd = 119 は
ＶＢ６　でのコードでした。

ＶＢ2010で　ＵＲＬ　のページの「ソース１　　2009.08.17　getHamlog」にコードを追加して
試しています。　
cmmd = 118 は上手く動作しましたが　cmmd = 119 が上手く行きません。

cds.cbData 　と cds.lpData のセットの仕方がＶＢ６とＶＢ２０１０では
異なるからなのかも知れませんが、どなたかご指導いただければ幸いです。

http://ja2bqx.web.ｆｃ２.com/VbNet/VbNet.html

（ 注 ）　ＵＲＬがＥＲＲＯＲになるために一部全角にしてありますが実際には全て半角です。


------　一部抜粋　-----

Dim cds As COPYDATASTRUCT
Private Const WM_COPYDATA = &H4A
Dim cbuff As String



' Th521api で追加されたコマンド
'　119 = lpDataにレコード番号の文字列へのポインタを渡すと、そのレコード番号の
' データの、コールサインからRemarks2までが、それぞれ改行されたテキス
' トとして得ることができる。指定レコード番号が範囲外の場合は、最終レ
'　　　　コード番号のデータ。(v5.20b)

cmmd = 119
cds.dwData = cmmd

'cds.cbData = 0

'cds.cbData = 0 だと最終レコードを表示する。　他では表示されない？？

cbuff = "32959" '指定レコード番号

cds.cbData = Microsoft.VisualBasic.Strings.Len(cbuff) ' 文字列の長さ

cds.lpData = cbuff

Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)

> お世話になります。
> 先程の「Th521APIアップしました 」で上手く動作した　cmmd = 119 は
> ＶＢ６　でのコードでした。
>
> ＶＢ2010で　ＵＲＬ　のページの「ソース１　　2009.08.17　getHamlog」にコードを追加して
> 試しています。　
> cmmd = 118 は上手く動作しましたが　cmmd = 119 が上手く行きません。
>
> cds.cbData 　と cds.lpData のセットの仕方がＶＢ６とＶＢ２０１０では
> 異なるからなのかも知れませんが、どなたかご指導いただければ幸いです。
>
> http://ja2bqx.web.ｆｃ２.com/VbNet/VbNet.html
>
> （ 注 ）　ＵＲＬがＥＲＲＯＲになるために一部全角にしてありますが実際には全て半角です。
>
>
> ------　一部抜粋　-----
>
> Dim cds As COPYDATASTRUCT
> Private Const WM_COPYDATA = &H4A
> Dim cbuff As String
>
>
>
> ' Th521api で追加されたコマンド
> '　119 = lpDataにレコード番号の文字列へのポインタを渡すと、そのレコード番号の
> ' データの、コールサインからRemarks2までが、それぞれ改行されたテキス
> ' トとして得ることができる。指定レコード番号が範囲外の場合は、最終レ
> '　　　　コード番号のデータ。(v5.20b)
>
> cmmd = 119
> cds.dwData = cmmd
>
> 'cds.cbData = 0
>
> 'cds.cbData = 0 だと最終レコードを表示する。　他では表示されない？？
>
> cbuff = "32959" '指定レコード番号
>
> cds.cbData = Microsoft.VisualBasic.Strings.Len(cbuff) ' 文字列の長さ
>
> cds.lpData = cbuff
>
> Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)

はじめまして

マネージメモリ配下なので
アンマネージメモリではない
よって

Public lpData As IntPtr->Public lpData As String

ついでに戻りにおいても

TextBox1.Text = Marshal.PtrToStringAnsi(cds.lpData)
なってましたが
TextBox1.Text = cds.lpData
になります

VBは10年以上触ってませんでしたが、Expressはどうなのか
興味があって動作させてみました
コメント文に手こずりますね　VBは　つい//としてしまう
最後;をつける癖が

おそらく動作すると思います
VB2010で動作確認してみました

と宣言下さい

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


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

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


Structure TIDXh ' インデックスファイル用
Dim p As Int32
Dim fHdl As Int32
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）

> おかげさまでＷｉｎＸｐでのＶＢ２０１０とＷｉｎ７（６４ｂｉｔ版）のＶＢ２０１０でも　cmmd = 119　は出来ました。
>
>
> 続けてで恐縮ですが、下記はＷｉｎＸｐでのＶＢ２０１０では動くのですが
> Ｗｉｎ７（６４ｂｉｔ版）では、
> cmmd = 27 でクローズしてから　Hamlog.dx0　をオープンしようとすると
> 「間違ったフォーマットのプログラムを読み込もうとしました」のエラ－が出てしまいます。（ＶＢ６ではＯＫだが．．．）
>
> どこかおかしなところがあればご指摘をお願いします。
>
>
> Structure TIDXh ' インデックスファイル用
> Dim p As Int32
> Dim fHdl As Int32
> 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）

読むだけならHAMLOGとプログラムがデータをシェアのフラグを立ててれば27,28のコマンドは必要ないと思います

当方はWindows7HOME64bitですが

HAMLOG共有オープンしていない場合やってみました

Hwnd1 = FindWindow("TThwin", vbNullString)
'// Hwnd1 = FindWindow("#32770", vbNullString)
If Hwnd1 < 1 Then ' ハムログが起動していない
Exit Sub
End If

Dim cds As COPYDATASTRUCT
cmmd = 27
cds.dwData = cmmd
cbuff = vbNullString
cds.cbData = 0
cds.lpData = ""
Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)
Ret = idx_open("Hamlog.dx0", THindx)
Ret = idx_search(THindx, "------", 0)
-----はコールサインで

Windows764bitで動作しました
レコード番号も返ってきてます

質問のエラーが不明です
ファンクションの戻り値を質問に書くと良いんですがね

JJ8LSI 水本さん、ありがとうございます。

ビルド　構成マネージャー　プラットフォームを Any CPU から x86 に変更したらエラーが出なくなり
おかげさまでＷｉｎ７　Ｈｏｍｅ ６４ｂｉｔ版のパソコンでＶＢ２０１０でも
idx_open , idx_search , idx_next , idx_close を使用して
レコード番号を取得出来るようになりました。　　

SetDbsShare　に関しては改めて試してみようと思います。　ＭＮＩ　ＴＮＸ

> idx_open , idx_search , idx_next , idx_close を使用して
> レコード番号を取得出来るようになりました。　　

こちらに結果書いていたんですね
お疲れ様でした

>
> 「間違ったフォーマットのプログラムを読み込もうとしました」のエラ－が出てしまいます。（ＶＢ６ではＯＫだが．．．）
>
ネットで調べてみると
64bitでコンパイルしたものから32bitのDLLをコールすると出るようですね

前記で
答えは出島OMが記述したとおりだと思いますけど
前記の質問でExpressと書いていたので、64bitコンパイルではなく32bitでコンパイルされているはずなんで不思議です

その状態であれば、HAMLOG50.DLLはすべてコールできないと思います

VB2010はインストールしたままの状態でのテストしました
Expressには64bitでコンパイルするオプションは見つけれませんでした

JJ8LSI 水本さん、ありがとうございます。
ＮＯ　３１５で お返事をいただいた件はもう少し時間を下さい。
今日、これからテストしてみます。

> VB2010はインストールしたままの状態でのテストしました
> Expressには64bitでコンパイルするオプションは見つけれませんでし
た

私の書き方が悪かったのでしょうね。パソコンがＷｉｎ７の６４Ｂｉｔ版であるというだけで
VB2010 Express のコンパイルは　Any CPU となっていまして　32 Bit でしょうね。
　

> JJ8LSI 水本さん、ありがとうございます。
> ＮＯ　３１５で お返事をいただいた件はもう少し時間を下さい。
> 今日、これからテストしてみます。
>
> > VB2010はインストールしたままの状態でのテストしました
> > Expressには64bitでコンパイルするオプションは見つけれませんでし
> た
>
> 私の書き方が悪かったのでしょうね。パソコンがＷｉｎ７の６４Ｂｉｔ版であるというだけで
> VB2010 Express のコンパイルは　Any CPU となっていまして　32 Bit でしょうね。
> 　

MSDNのドキュメントでは
http://msdn.microsoft.com/ja-jp/library/5b4eyb0k.aspx

前記でx86を選べと書いていましたが、やってないということでしょうかね


数日前にVB2010をインストールしたものは
詳細コンパイルオプションまででるが
それ以降のビルドの詳細設定が出てこないので
説明できませんけど

素直にx86にしては如何でしょう

> お世話になります。
> 先程の「Th521APIアップしました 」で上手く動作した　cmmd = 119 は
> ＶＢ６　でのコードでした。
>
> ＶＢ2010で　ＵＲＬ　のページの「ソース１　　2009.08.17　getHamlog」にコードを追加して
> 試しています。　
> cmmd = 118 は上手く動作しましたが　cmmd = 119 が上手く行きません。
>
> cds.cbData 　と cds.lpData のセットの仕方がＶＢ６とＶＢ２０１０では
> 異なるからなのかも知れませんが、どなたかご指導いただければ幸いです。
>
> http://ja2bqx.web.ｆｃ２.com/VbNet/VbNet.html
>
> （ 注 ）　ＵＲＬがＥＲＲＯＲになるために一部全角にしてありますが実際には全て半角です。
>
>
> ------　一部抜粋　-----
>
> Dim cds As COPYDATASTRUCT
> Private Const WM_COPYDATA = &H4A
> Dim cbuff As String
>
>
>
> ' Th521api で追加されたコマンド
> '　119 = lpDataにレコード番号の文字列へのポインタを渡すと、そのレコード番号の
> ' データの、コールサインからRemarks2までが、それぞれ改行されたテキス
> ' トとして得ることができる。指定レコード番号が範囲外の場合は、最終レ
> '　　　　コード番号のデータ。(v5.20b)
>
> cmmd = 119
> cds.dwData = cmmd
>
> 'cds.cbData = 0
>
> 'cds.cbData = 0 だと最終レコードを表示する。　他では表示されない？？
>
> cbuff = "32959" '指定レコード番号
>
> cds.cbData = Microsoft.VisualBasic.Strings.Len(cbuff) ' 文字列の長さ
>
> cds.lpData = cbuff
>
> Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, Me.Handle, cds)

ついでに
stringはUnicodeなんでわざわざ文字列変換してC#で動作しませんでした
変換せずに送ると受け取るみたいでした
VC++6.0でSendMesageを受けてみたらAPIの方で変換しているような動きでした　あまり詳しく調べてないので返答には困りますが
VC++2010ではUTF-16で処理しています
読むには気になりませんね　HAMLOGでSJISですが内部でコード変換しているようです　HAMLOGへ書き込む時はコード変換しています