HAMLOG プログラム開発室

> VC++ でHamlogとのやり取りするものを取り組んでいます
> CQ　1　2　のチェックボックスの操作（アプリからHamlog操作）が分かりません。DLLの仕様書Th523api以降に追加されているためだと思いますが。受信はコマンド115　で一括取得できますので、コマンド15で操作できるかやってみますがDXチェックも含めてうまくいきません。ちなみにDXの操作は25　26で可能なためこれら３件もコマンドが割り振られているのかも知れないのですが。よろしくお願いいたします。

CQ　1　2　のチェックボックスの操作は、未実装でした。
ちょっと作ってみました。お試しください。
http://hamlog.no.coocan.jp/mou/soft/Hamlogw.zip

コマンド25
　　文字列の先頭バイトが1又は'1'
　　　　入力ウインドウのCQのチェックボックスをON
　　文字列の先頭バイトが2又は'2'
　　　　入力ウインドウの1のチェックボックスをON
　　文字列の先頭バイトが3又は'3'
　　　　入力ウインドウの2のチェックボックスをON
　　文字列の先頭バイトが上記以外
　　　　入力ウインドウのDXのチェックボックスをON

コマンド26
　　文字列の先頭バイトが1又は'1'
　　　　入力ウインドウのCQのチェックボックスをOFF
　　文字列の先頭バイトが2又は'2'
　　　　入力ウインドウの1のチェックボックスをOFF
　　文字列の先頭バイトが3又は'3'
　　　　入力ウインドウの2のチェックボックスをOFF
　　文字列の先頭バイトが上記以外
　　　　入力ウインドウのDXのチェックボックスをOFF

> データの読み取りがうまくできていません．
VBは良くわからないのですが、myhwnd　のメッセージ処理にWM_COPYDAで送られてきますの、これを横取りします。VC++では
OnWndMsg(UINT message, WPARAM wParam, LPARAM lParam, LRESULT* pResult)
でメッセージを捕捉しますがVBにも同じようなものがあるはずですが、これをやっておられますか。
message　がWM_COPYDATAの時の　lParam　が　cds　のアドレスになっています。
コマンドを送るとき
X = SendMessage(Hwnd1, WM_COPYDATA, myhwnd, cds)
となっていますが、
VC++では

Result = ::SendMessage(*pWndPrev, WM_COPYDATA, (WPARAM)this->GetSafeHwnd(), (LPARAM)&cds);
cdsはアドレスで送らないといけないのですが　単に　cds になっていますが、これはアプリケーションからの送信がうまくいっているのでいいのかな？。

VC++ でHamlogとのやり取りするものを取り組んでいます
CQ　1　2　のチェックボックスの操作（アプリからHamlog操作）が分かりません。DLLの仕様書Th523api以降に追加されているためだと思いますが。受信はコマンド115　で一括取得できますので、コマンド15で操作できるかやってみますがDXチェックも含めてうまくいきません。ちなみにDXの操作は25　26で可能なためこれら３件もコマンドが割り振られているのかも知れないのですが。よろしくお願いいたします。

ちょっと忙しくて手を付けてませんが，太田さんのプログラムを参考にすると，

私のプログラムで，SendMessageの定義，
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

で，lParamの型が，Any になっているのが原因のようです．

送信の場合には問題無かったのですが，受信の場合には受け取りがうまくいっていないのではないかと思います．

あとで，型を COPYDATASTRUCT に修正してやってみます．

JA2BQX 太田さん

> ＶＢ２００８でのサンプルソースなら私のＨＰにおいてありますが。

了解です．
参考にさせていただきます．

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

わからないことがありましたら，また質問させてもらいます．

JP7CZE 川辺さん、こんにちは。

> VB6で，WM_COPYDATA.txt をもとに，Hamlogのデータ入力ウィンドウとのやり取りを行なおうとしています．

ＶＢ２００８でのサンプルソースなら私のＨＰにおいてありますが。

これから出かけるので簡単ですみません。

VB6で，WM_COPYDATA.txt をもとに，Hamlogのデータ入力ウィンドウとのやり取りを行なおうとしています．

アプリケーションからの送信の場合には，コールサインの入力や保存もできているのですが，
データの読み取りがうまくできていません．

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

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Function GetFromHAMLOG(Command As Long) As String

Dim cmmd As Long

Dim Hwnd1, Hwnd2, myhwnd As Long

Dim cds As COPYDATASTRUCT

Dim cbuff As String * 512

Dim X As Long

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

Call AppActivate("Turbo HAMLOG", 0)

cds.dwData = Command
cds.cbData = 0
cds.lpData = vbNullString

myhwnd = FormTempLog.hwnd '作成中のプログラムのハンドル

X = SendMessage(Hwnd1, WM_COPYDATA, myhwnd, cds)

GetFromHAMLOG = cds.lpData

End Function

　これを msg = GetFromHAMLOG(112) で実行すると，本来なら，QTHのデータが帰ってくるはずですが，うまくいきません．

　SendMessageの戻り値は，0以外の数字（たとえば 10749274）が帰ってきて問題ないようです．

戻り値は，
cds.cbData ： 0
cds.dwData ： 112
cds.lpData ： ""

となっていて，dwData は，呼び出す前のままで，0または1になっていません．

dwDataが変わっていないということは，データを受け取っていないとも思いますが，myhwndがおかしいのか，どうすればいいのか，ちょっと困っています．

よろしくご教示願います．

日頃、ハムログには大変お世話になっております。

FTDX3000の接続がうまくいきません。
指導のほど、よろしくお願いします。

OS:WIN8

小池正幸

こんにちは。
お手数をお掛けしました。

00 00 80 A9 C3 B8 53 00 00 00 00 ==> 2014/07/06 12:34
８０ から ５３ の５バイトでは無くてＡ９からの４バイトを
１０進数に直しＭＦＣのＣＴｉｍｅの基準値である
"1970/01/01 09:00:00" 'JST　に１０進数に直した秒数を加算することで
求める事が出来ました。