HAMLOG プログラム開発室

おはようございます。
試しているのですが , DATE と DATE+TIME のレコード番号が取れません。
CALLS と CODE　は上手く取れるのですが、先に提示したコードでの
search_date　には search_date = "01/02/03" 形式で良いでしょうか？

浜田さん、こんにちは。
早速の返信ありがとうございました。

> ゼロで大丈夫なはずですよ。
> ゼロを指定すれば、内部で　Length(search_date) でサーチします。

分かりました。自宅に戻ったらテストして見ます。
今は山シャックでＫ１Ｎの追っかけ中です。
ＪＡからは中央アメリカ、カリブは遠い．．．．。

> idx_search 関数の使い方ですが下記の　？　には幾つを指定すれば良いでしょうか？
> rec_no_1st = idx_search(THindx, search_date, ？)

ゼロで大丈夫なはずですよ。
ゼロを指定すれば、内部で　Length(search_date) でサーチします。

こんにちは。　何時もお世話になります。

ＶＢ２０１０にて日付けを指定してレコード番号を取得しようとしています。
ソースの一部抜粋が下記です。

Declare Function MakeIndex Lib "Hamlog50.dll" (ByVal s As String, ByVal k As String, ByVal i As String) As int32
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

MakeIndex(hamlogpath, "DATE", "C:\Hamlog\Date.Ndx")
Ret = idx_open("C:\Hamlog\Date.Ndx", THindx)
search_date = "15/02/03"
rec_no_1st = idx_search(THindx, search_date, 8)
Call idx_close(THindx)


idx_search 関数の使い方ですが下記の　？　には幾つを指定すれば良いでしょうか？
rec_no_1st = idx_search(THindx, search_date, ？)

Th524ap の Hamlog50.txt にて下記の様に記載されている　len です。
search_date = "15/02/03"　なら　８　で良いと思いますが、今は山シャックなのでテスト出来ない．．．。

コールサインの時には　ゼロ　で上手くサーチ出来ましたが。
　
MakeIndex(hamlogpath, "TIME", "C:\Hamlog\Time.Ndx") の時には
"12:34U" なら　６　で良いでしょうか。



引 数：idx
dBASE互換インデックスファイルの構造体

key
検索するキー。THW_seek()と同様。

len
検索するキーの長さを指定する。コールサインの文字列が全部一致するキーを検索する場合は６。


プリフィックスだけ一致の場合は３。ゼロの場合は、key が通常のヌルターミネート文字列であるとして検索する
　

JA7UDE 大庭さん，

> 出島OM、太田OM、
>
> アイディアをありがとうございました。定期的なポーリングが必要ということと理解いたしました。
>
> ７３
> 大庭
> JA7UDE

もう解決されたかもしれませんが，
私も同様にHamlog のデータが更新されたかどうかのチェックをおこない，更新されていたら交信データを取り込んで処理をするプログラムを作りました．

もともと，入力画面のQTHのデータが変化するのを検知して，変化したら取り込んで処理をさせる目的で，500msごとにコマンドの112でQTHのデータを取り込んでいる処理をしていました．

この入力画面で，QTHのデータが空白になったタイミングというのは，入力データがSAVEされたかキャンセルされたかのいずれかです．

そこで，QTHのデータが，有意な文字列から空白文字列に変化した時点で，初めて交信データの総数を読みに行くようにしました．

直接毎回交信データの総数を読みに行くよりは，Hamlogおよび自作ソフトの負担が軽くなるのではないかということです．

参考にはならないかもしれませんが．

de JP7CZE

> 今回の川辺さんのソースでは　lpData As String * 3927 となっていた
> lpData As String に変えたらＴＨＷから取れましたので。

私が定義していたのが，

Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As String * 3927 ' void * のつもり
End Type

です（コメントは悪銭苦闘の残骸ですね...Hamadaさんのオリジナルの消し忘れ）．

あちこちのページを参考に，色々弄くってみて，
期待する結果が出るように，力ずくで弄くり倒した結果，
なんとかちゃんと結果は得られたか，と思っていたのですが，
Hamadaさんからダメだしをくらいまして(^^;

Dim cds As COPYDATASTRUCT

Call CopyMemory(cds, ByVal lParam, Len(cds))

で取得していたのですが，問題は cds.lpDataの中身．

THWからはcbDataの長さの文字列が帰ってきて最後はOx00が入ってくることはわかっていたのですが，うまく取れないので，戻り値をダンプしてみたら，14バイトの最後が0で終わるデータが本来のlpDataの前にくっついていることがわかりました．

その後は，VBの場合，文字列がunicode で2byteですが，(cbData-1)+1 で切り出してもなぜかうまく取り出せませんでした？？？

なので強引に先頭の14byteを除去して，0x00までを取得するようにしたわけです．

変数等の内部構造も何も知らずに，Web上の先人たちの情報と結果だけを頼りに弄くっているだけなので....

それでも，みなさんのおかげで，正しくWM_COPYDATA の結果が取れるようになりました．

ほんとにありがとうございました．

浜田さん、こんばんは。
私はWindowProcは理解して使っているでは無くて、他からのコピーで
動かしている状態。


> VBの場合の lpData は、Stringでいいのでしょうか。
> Longがいいのでしょうか。

私のＶＢ６のソースでは Long を使っています。
今回の川辺さんのソースでは　lpData As String * 3927 となっていた
lpData As String に変えたらＴＨＷから取れましたので。

ＶＢ２０１０では lpData As String で使っています。

．．．．．動作などを理解しての使用では無いので動けば良い．．．と言うレベルです、Ｈｉ。

VBの場合の lpData は、Stringでいいのでしょうか。
Longがいいのでしょうか。

私が書いたドキュメントでは、
　lpData As String ' void * のつもり
としましたが、本家では Long になってました。

http://support.microsoft.com/kb/176058/ja

ポインタが素直に使えない言語体系だと考えると、Longでアドレスを
直接渡した方がいいのかな、と考えました。

BASICはよくわからない・・・

こんばんは。
ソースを送っていただいたので試して見ました。
結論としては修正出来たようです。

> Type COPYDATASTRUCT
> dwData As Long
> cbData As Long
> lpData As String * 3927 ' void * のつもり
> End Type

lpData As String　で良く、以下が余分だったかと。
[　* 3927 ' void * のつもり ] <== この部分は余分。

下記で切り出しをしていたのですが　lpData As String　にすれば
cds.lpData　に THW からの情報が普通に取れていました。

For i = 1 To 3927
a = Mid(cds.lpData, i, 1)
　　　　　　．．．以下省略

JA2BQX 太田さん，
さっそくのメールの返答ありがとうございました．

プログラムを拝見させて頂きまして，私の理解不足の点がわかりました．
COPYDATASTRUCT構造体の定義自体が違ってたのですね．
単なる文字列でいいのかと思っていましたが，
アドレスでの受け渡しなのですね．

Type COPYDATASTRUCT_02
dwData As Long
cbData As Long
lpData As Long
End Type

CopyMemory bytReceiveDataBuffer(0), ByVal .lpData, .cbData

で，受け取りをbyte配列にして，bytReceiveDataBuffer(0)で受け取りアドレスの先頭を指定できるというのは，
知りませんでした．
また，Byte配列をVisualBasicの文字列の内部形式であるunicodeに変換する StrConv関数 も知りませんでした．

ということで，ありがとうございました．