HAMLOG プログラム開発室

お世話になります。
メニューの「環境設定」「設定２」の「QSOデータの共有オープン」に
レ点が付いているかどうかの確認はＨｅｌｐに記載されている
「メインメニューには再読込み(R)が、ステータスバーには【共有】の文字が表示されます」とは別に
Hamlogw.ini の中の [Kankyo]の中の KSet の値を２進数に変換して
右から２０桁目が　１　なら共有オープンされている．．と言う
判断で良いでしょうか？
　

> Hamlogw.ini の中の [Kankyo]の中の KSet の値を２進数に変換して
> 右から２０桁目が　１　なら共有オープンされている．．と言う
> 判断で良いでしょうか？

ビットシフトのループの中で判定してますので、何桁目なのかは即答
できませんけど、それでＯＫだと思います。

それから、HAMLOG50.DLLの、SetDbsShare(0)を呼び出してTRUEであれば
共有オープン中です。
HAMLOG本体ではこちらを使ってます。

> それから、HAMLOG50.DLLの、SetDbsShare(0)を呼び出してTRUEであれば
> 共有オープン中です。
> HAMLOG本体ではこちらを使ってます。

よく考えてみたら、別のプロセスからDLL内の関数を呼び出すわけで
しょうから、意味はなかったですね。
[Kankyo]
KSet=nnn
・・・を使った方が良いかも。
nnnは、1を20ビット左シフトした値、すなわち&H80000とアンドが
とれれば共有、ということになるかと思います。

浜田さん、お世話になります。
詳しい説明をありがとうございました。

> [Kankyo]
> KSet=nnn
> ・・・を使った方が良いかも。

はい、この値で判断しようとしています。

自分の処では正常に判断出来るのですが、ある方からの　KSet=nnn　では
右から２０桁目が１では無いので？　　「KSet=637677885」だそうです。
メインウインドウには「再読み込み」が表示されているとの事なのですが。
私の Hamlogw.ini に　「KSet=637677885」を書いて起動すると「再読み込み」が表示されない。
改めて確認してもらった方が良いでしょうね。

私の場合は　KSet=1651177788、これなら共有と判断出来ています。メインウインドウ上にも「再読み込み」が表示されている。

> nnnは、1を20ビット左シフトした値、すなわち&H80000とアンドが
> とれれば共有、ということになるかと思います。

そう言う手法が良いのでしょうが、今のところは単純に１０進数を２進数に変換して右から２０桁を取得し左端の文字で判定しています。
２０桁に満たない事もあるので２進数にしてからゼロを２０ケ左側に加えていますが。

> > nnnは、1を20ビット左シフトした値、すなわち&H80000とアンドが
> > とれれば共有、ということになるかと思います。
>
> そう言う手法が良いのでしょうが、今のところは単純に１０進数を２進数に変換して右から２０桁を取得し左端の文字で判定しています。
> ２０桁に満たない事もあるので２進数にしてからゼロを２０ケ左側に加えていますが。

環境設定のチェックボックスのすべてチェックを外すと、KSet=0
共有オープンだけチェックを入れると、　KSet=524288
つまり、KSet=&H80000 です。これを使えば間違いありません。

if (nnn & 0x80000)　//　Ｃ言語
　　共有中;

if LongBool(nnn and $80000) then　// PASCAL言語
　　共有中;

if (nnn And &H80000) > 0 then　; VisualBasicたぶんこんな感じ
　　共有中;

浜田さん、毎度お世話になります。
サンプルをありがとうございました。

> if (nnn And &H80000) > 0 then　; VisualBasicたぶんこんな感じ
> 　　共有中;

下記ですんなり出来ました。　MNI TNX

If (KSet_str And &H80000) > 0 Then
Kyoyu_flag = 0
Label7.Text = "共有オープンされています"
Label7.ForeColor = Color.Blue
Else
Kyoyu_flag = 0
Label7.Text = "共有オープンされていません"
Label7.ForeColor = Color.Red
End If