HAMLOG プログラム開発室

JO1SIM 出島さん
おはようございます。

> ・・・・、以前の「Updateされない」項目のみの変更の場合、これが出ずにUpdateされるかもしれません。


私が行った方法では、すべてのデータ項目を変更なしでUpdataしたときは確かに、確認のダイアログ画面が表示されずにUpdate完了します。

現在までのテスト結果では、格別異常は出ていませんのでもう少しいろいろテストしてみることにいたします。

有り難うございました。

吉田OM
JO1SIMでしまです。こんばんは。

実際の結果については、実行してみていただいた結果がすべてではあるのですが、仕組み上、THW_readした結果をTHWVB_CopyBufferでコピーすると、以前の「Updateされない」項目のチェックがうまくいかなくなるかもしれません。

ThとTh2が異なる場合、ダイアログが出て「データを登録してよろしいですか？」と出るはずですが、以前の「Updateされない」項目のみの変更の場合、これが出ずにUpdateされるかもしれません。

といっても、Hamlog50.dllの説明書でも丸ごとコピーしているようなので、吉田OMの方法でOKであれば、まったく問題ないと思います！


> JO1SIM 出島さん、こんばんは。
>
> Updateに関してですが、
>
> THW_read(Th, u_Rno, 0)
>
> THWVB_CopyBuffer(Th2, Th)
>
> For d As Integer = 0 To 14
> UpdateQsoData = u_DataTbl(d)
> THWVB_SetBuffer(Th, UpdateQsoData, d)
> Next
>
> sd = THW_update(Th, Th2, u_Rno, IsQSOdata, 0)
>
> とするだけで、Updateできましたが何か問題が生じましょうか。
>
> つまり、Th2側への読み込み処理(THW_read(Th2, u_Rno, 0))を行わなくても一見正常にUpdateできています。????

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

Updateに関してですが、

THW_read(Th, u_Rno, 0)

THWVB_CopyBuffer(Th2, Th)

For d As Integer = 0 To 14
UpdateQsoData = u_DataTbl(d)
THWVB_SetBuffer(Th, UpdateQsoData, d)
Next

sd = THW_update(Th, Th2, u_Rno, IsQSOdata, 0)

とするだけで、Updateできましたが何か問題が生じましょうか。

つまり、Th2側への読み込み処理(THW_read(Th2, u_Rno, 0))を行わなくても一見正常にUpdateできています。????

吉田OM

うまくいったということで、ほっとしております。。
Update以外の個所はあまり確認していない部分もあるので、何か不具合があるようでしたらご連絡ください！


> ＪＯ１ＳＩＭ　出島さん、こんにちは。
>
> > まずは、サンプルを入れてみましたのでご覧ください。
> > （サンプルは太田ＯＭから頂いたファイルを参考にしています。TNX!!）
>
> 早速ダウンロードして、UpDateプログラムを完成させました。すべてのデータ項目のUpDateを確認しました。
> 快調に動作しています。
>
> 大変有り難うございました、ご尽力に感謝申し上げます。
>
> まずは、ご一報まで。　　　 VY TNX

太田OM
ＪＯ１ＳＩＭでしまです。

ＨＰ拝見しました！
DLLを作ったものの、VBはまったくの素人なので、参考にさせていただきます！！


> ＶＢ２００８は始めて間も無いと言う事もありますがＶＢ６とは異なる事が多くて
> 上手く動作させるコードが掛けなくて苦労しています。
> ここでの皆さんが投稿されたコードなどを参考にさせて頂いてのテスト中のソースコードのサンプルです。
>
> ．．．投稿しようとするとエラーではねられます。ＵＲＬを書かなければＯＫのようですが．．．．。
> ＵＲＬを全角で書けばＯＫのようですので．．．。
>
> ｈｔｔｐ：／／ｓｕｚｕｋｉ７．ｄｉｐ．ｊｐ／ｊａ２ｂｑｘ／ｊａ２ｂｑｘ／ＶｂＮｅｔ／ＶｂＮｅｔ．ｈｔｍｌ

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

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

早速ダウンロードして、UpDateプログラムを完成させました。すべてのデータ項目のUpDateを確認しました。
快調に動作しています。

大変有り難うございました、ご尽力に感謝申し上げます。

まずは、ご一報まで。　　　 VY TNX

ＪＯ１ＳＩＭ　出島さん、ありがとうございます。

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

早速試させていただきました。
私のＨＰにもテスト用ソースをおきました。

ＪＯ１ＳＩＭ　出島です。

説明書が間に合っていないので不親切極まりないのではありますが、一応新ＡＰＩセットを私のＨＰからダウンロードできるようにしました。トップ画面の右下のほうに「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の件以外の部分も移植したりなんだりと、いろいろ必要なのでちょっと時間がかかりそうです・・・・

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