HAMLOG プログラム開発室

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

私のプログラムで，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　に１０進数に直した秒数を加算することで
求める事が出来ました。

Ver５．２４で、印刷できない。
ＯＳ＝ＶＩＳＴＡ　＆　ＷＩＮＤＯＷＳ７．０

Ｖｅｒ５．２３ではＷｉｎｄｏｗｓ８で印刷ＯＫでした。

太田OM、吉田OM

JO1SIM出島です。
DLL動作、早速のご確認ありがとうございました。

ほっといたしました…。

何かありましたらぜひともよろしくお願いいたします。


> 各位
>
> JO1SIMでしまです。
>
> THW2VBNET.DLLの新版をホームページにアップいたしましたのでお知らせします。(2014/6/15版) 必要なランタイムはVisual Studio 2008相当(MSVCR90.DLL)といたしましたので、Windows 7以降であればOS導入直後でも別途ランタイムを導入しなくても大丈夫だと思います。（ダウンロードが必要な際は、正規の「Microsoft Visual C++ 2008 再頒布可能パッケージ (x86)」を導入願います。）
>
> また、バージョンリソースを付与（1.1としました)いたしましたので、旧版と区別が必要な際にご利用ください。
>
> 今度こそ大丈夫だと思いますが、何かございましたおしらくださいますようよろしくお願いいたします。
>
> 太田OM、吉田OMには貴重な情報お知らせいただき、ありがとうございました。

JO1SIM 出島さん、JA2BQX太田さん　こんにちは。

THW2VBNET.DLLの最新版をmsvcr120.dllが無くて動作することを確認できました。また、新DLLに追加された「dbf_rcount」の機能も確認できました。
併せてご報告いたします。
今後ともよろしくお願いいたします。有り難うございました。

JA1RNR 吉田　康太郎