HAMLOG プログラム開発室

ＪＯ１ＳＩＭ　出島です。

説明書が間に合っていないので不親切極まりないのではありますが、一応新ＡＰＩセットを私のＨＰからダウンロードできるようにしました。トップ画面の右下のほうに「Hamlog50.dllをVB.NET…」と書いてありますので、そこからダウンロードしてみてください。

説明書はもう少々お時間くださいです。
すみません…。

簡単な使い方ですが、TThLogで定義していた箇所を数値の「ハンドル」で指定してする方法に変わっています。それから、ＡＰＩの使用前後に使用開始と使用終了の関数呼び出しが必要になります。

まずは、サンプルを入れてみましたのでご覧ください。
（サンプルは太田ＯＭから頂いたファイルを参考にしています。TNX!!）


> 各位
> ＪＯ１ＳＩＭ出島です。
>
> 構造体の中のポインタをVBとの間でやり取りしなくて済むように、VB.NET用のDLLをこしらえてみることにしました。強引ではありますが、DLLの側にバッファをもち、VBとのやり取りはあくまでも値のみの引き渡しですむようにしてみました。
>
> 実験の結果では、Updateが動作するところまでは確認できました。
>
> APIとして公開するにはエラーチェックや、今回のUpdateの件以外の部分も移植したりなんだりと、いろいろ必要なのでちょっと時間がかかりそうです…というより、自作のHAMLOG用SQLツールの改良も並行しているので、そちらにも時間とられてますけど!（笑）
>
> 技術的検証は出来ましたので、そう遠くないうちに、VB.NET用のAPIを公開できると思います。ただ、上記の技術検証の結果のように、従来のAPIとは少々違う部分も出てくるかもしれません。
>
>
> > JO1SIM 出島さん、ありがとうございます。
> >
> > > rd = THW_read(u_th, u_Rno, 0)
> > > rd = THW_read(u_th2, u_Rno, 0)
> > > という風に変数間のコピーではなく、2回呼び出してみてはいかがでしょうか?
> >
> > この事は書かなかったのですが、すでにテスト済みでした。　ＳＲＩ
> > 改めて試しましたが結果は変化無しでした。

ＶＢ２００８は始めて間も無いと言う事もありますがＶＢ６とは異なる事が多くて
上手く動作させるコードが掛けなくて苦労しています。
ここでの皆さんが投稿されたコードなどを参考にさせて頂いてのテスト中のソースコードのサンプルです。

．．．投稿しようとするとエラーではねられます。ＵＲＬを書かなければＯＫのようですが．．．．。
ＵＲＬを全角で書けばＯＫのようですので．．．。

ｈｔｔｐ：／／ｓｕｚｕｋｉ７．ｄｉｐ．ｊｐ／ｊａ２ｂｑｘ／ｊａ２ｂｑｘ／ＶｂＮｅｔ／ＶｂＮｅｔ．ｈｔｍｌ

ＪＯ１ＳＩＭ出島さん、こんにちは。

> 実験の結果では、Updateが動作するところまでは確認できました。
>
>APIとして公開するにはエラーチェックや、今回のUpdateの件以外の部分も移植したりなんだりと、いろいろ必要なのでちょっと時間がかかりそうです・・・・

大いに期待しております。ぜひ公開いただきますようお待ちしています。

こんにちは。

> 構造体の中のポインタをVBとの間でやり取りしなくて済むように、
> VB.NET用のDLLをこしらえてみることにしました。強引ではありますが、
> DLLの側にバッファをもち、VBとのやり取りはあくまでも値のみの引き渡しですむようにしてみました。

公開してくれるのを楽しみに待ちます。

各位
ＪＯ１ＳＩＭ出島です。

構造体の中のポインタをVBとの間でやり取りしなくて済むように、VB.NET用のDLLをこしらえてみることにしました。強引ではありますが、DLLの側にバッファをもち、VBとのやり取りはあくまでも値のみの引き渡しですむようにしてみました。

実験の結果では、Updateが動作するところまでは確認できました。

APIとして公開するにはエラーチェックや、今回のUpdateの件以外の部分も移植したりなんだりと、いろいろ必要なのでちょっと時間がかかりそうです…というより、自作のHAMLOG用SQLツールの改良も並行しているので、そちらにも時間とられてますけど!（笑）

技術的検証は出来ましたので、そう遠くないうちに、VB.NET用のAPIを公開できると思います。ただ、上記の技術検証の結果のように、従来のAPIとは少々違う部分も出てくるかもしれません。


> JO1SIM 出島さん、ありがとうございます。
>
> > rd = THW_read(u_th, u_Rno, 0)
> > rd = THW_read(u_th2, u_Rno, 0)
> > という風に変数間のコピーではなく、2回呼び出してみてはいかがでしょうか?
>
> この事は書かなかったのですが、すでにテスト済みでした。　ＳＲＩ
> 改めて試しましたが結果は変化無しでした。

ファイル拝見しました。

私がHamlogOpenで四苦八苦していましたが、DLLを呼び出す宣言部分のみ違ったようです。宣言の仕方でDLLの呼び方さえ違うとは…。

肝心の変更されない事象については確認しました。

確認ポイントとして…
THW_readを2回行ってTh、Th2いるのにかかわらず、
Th、Th2の先頭から 821(21+9+7+7+7+4+2?+764)バイト目以降に入っているはずのFreqやModeへのポインタ（6×4バイト?)が２つの構造体で同じになっていないか?ということかなぁと思っています。同じになってしまっていたとすると、ポインタを扱えるDLL側の改良が必要になるかもしれませんです。

まずはご一報まで…

> JO1SIM出島さん、色々とありがとうございます。
>
> > 私もVB.NETでのプログラミングを試そうとしてみましたが、Updateに至る前にHamlogOpenさえうまくいきませんでした。同関数を実行するとメモリ例外が起きてしまう始末…。
> > これは一筋縄ではいきませんね…。
>
> 別便でメールをお送りしました。
> よろしければ私が現在テスト中のソースをお送りしますが。

太田OM

ファイルご送付いただける件、了解しました。
是非拝見させていただきたいと思います。

よろしくお願いします。


> JO1SIM出島さん、色々とありがとうございます。
>
> > 私もVB.NETでのプログラミングを試そうとしてみましたが、Updateに至る前にHamlogOpenさえうまくいきませんでした。同関数を実行するとメモリ例外が起きてしまう始末…。
> > これは一筋縄ではいきませんね…。
>
> 別便でメールをお送りしました。
> よろしければ私が現在テスト中のソースをお送りしますが。

JO1SIM出島さん、色々とありがとうございます。

> 私もVB.NETでのプログラミングを試そうとしてみましたが、Updateに至る前にHamlogOpenさえうまくいきませんでした。同関数を実行するとメモリ例外が起きてしまう始末…。
> これは一筋縄ではいきませんね…。

別便でメールをお送りしました。
よろしければ私が現在テスト中のソースをお送りしますが。

JO1SIM出島です。

私もVB.NETでのプログラミングを試そうとしてみましたが、Updateに至る前にHamlogOpenさえうまくいきませんでした。同関数を実行するとメモリ例外が起きてしまう始末…。

これは一筋縄ではいきませんね…。

> JO1SIM 出島さん、こんばんは。
>
> > あと確認するとしたら、データのコピーのあたりですかねぇ。
>
> 下記のDebugプログラムを追加して確認した範囲では、u_th2には修正前のデータが正しくコピーされていることが確認できました。
>
> sd = THW_update(u_th, u_th2, u_Rno, IsQSOdata, mes)
>
> ' 以下は、u_thとu_th2の内容を確認するテスト部分です
>
> Dim Qtbl(16), Qtbl2(16), Tmp As String
> For t As Integer = 0 To 14
> Tmp = Space(160)
> ThwString(Tmp, u_th2, t)
> Qtbl(t) = Item_Edit(Tmp)
> Next
>
> For t As Integer = 0 To 14
> Tmp = Space(160)
> ThwString(Tmp, u_th, t)
> Qtbl2(t) = Item_Edit(Tmp)
> Next
>
> For p As Integer = 0 To 14
> Debug.Print("B4:" & Qtbl(p) & " After:" & Qtbl2(p))
> Next

JO1SIM 出島さん、こんばんは。

> あと確認するとしたら、データのコピーのあたりですかねぇ。

下記のDebugプログラムを追加して確認した範囲では、u_th2には修正前のデータが正しくコピーされていることが確認できました。

sd = THW_update(u_th, u_th2, u_Rno, IsQSOdata, mes)

' 以下は、u_thとu_th2の内容を確認するテスト部分です

Dim Qtbl(16), Qtbl2(16), Tmp As String
For t As Integer = 0 To 14
Tmp = Space(160)
ThwString(Tmp, u_th2, t)
Qtbl(t) = Item_Edit(Tmp)
Next

For t As Integer = 0 To 14
Tmp = Space(160)
ThwString(Tmp, u_th, t)
Qtbl2(t) = Item_Edit(Tmp)
Next

For p As Integer = 0 To 14
Debug.Print("B4:" & Qtbl(p) & " After:" & Qtbl2(p))
Next