HAMLOG プログラム開発室

> はい、cmmd = 1１5 などのＴＨＷからの受け取りの件だと思います。
> WindowProc() で取得出来る状態のソースをお願いします。
> こちらで動かして受け取ったデータを見てみます。

今さっき，検証用のVBソース等を送らさせていただきました．
よろしくご検討いただければ幸いです．

いくつかlpDataの結果を表示させていますが，
一番上はバイナリーダンプデータ
２番目は，&H00 を除くlpData
３番目は，私が強引に取得している本来の（？）テキストデータです．

＊他の人には何のことやらわからずに，すみませんm(__)m

こんばんは。


> たくさんあるウィンドウ・ソースの一部分なので，
> 切り出して新規のウィンドウで作りますので，しばらくお時間下さい．

はい、cmmd = 1１5 などのＴＨＷからの受け取りの件だと思います。
WindowProc() で取得出来る状態のソースをお願いします。
こちらで動かして受け取ったデータを見てみます。

> こんにちは。
> 最近はＶＢ６は殆ど使わなくなっていますが
> 状況を再現出来るソースを送っていただければこちらでもテストして見ますが．．．．。

太田さん，ありがとうございます．

たくさんあるウィンドウ・ソースの一部分なので，
切り出して新規のウィンドウで作りますので，しばらくお時間下さい．

よろしくお願いします．

こんにちは。
最近はＶＢ６は殆ど使わなくなっていますが
状況を再現出来るソースを送っていただければこちらでもテストして見ますが．．．．。
メルアドは私のＨＰのＴｏｐにあります。

> cds.dwData = 1;
> lstrcpy(buffs, "JG1MOU"); // コールサイン文字列
> cds.cbData = strlen(buffs) + 1; // ※文字列の長さ＋１※
> cds.lpData = &buffs[0]; // 文字列のポインタ
> Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, (WPARAM)Form1->Handle, (LPARAM)&cds);

VB6です．戻り値の取得ですが，ちょっと困っています．

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

(lpData の3927は，やけくその値です...）

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As
Long, ByVal lParam As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any,
hpvSource As Any, ByVal cbCopy As Long)

で，

WindowProc 関数の中で，WM_COPYDATAの時に，
　　Dim cds As COPYDATASTRUCT
　　Dim buf(1 To 255) As Byte
　　Call CopyMemory(cds, ByVal lParam, Len(cds))

で受けているのですが，
　　cds.dwData と cds.cbData の値は，正しいのですが，なぜか
　　cds.lpDataの中身に，先頭に14byteほどのゴミが付いてきます．

なので，cds.cbData の値で cds.lpData の値を取り出しても，
正しい文字列が取れません．
仕方がないので，とりあえず，先頭の14byteを切り取って，
その後で，1byteずつゴミかどうかをチェックしながら，
正しい文字列の次のnull文字までの文字列の切り出しをしているのですが．

CopyMemory の使い方が間違っているのか，
MoveMemory に変えても同じで...ご教示いただければ幸いです．

「取得」ではなく「送る」でした。
http://hamlog.no.coocan.jp/mou/index.html

こんにちは。

> 別件ですけど、ちょっと修正しました。
> http://hamlog.no.coocan.jp/mou/index.html

> ・WM_COPYDATA コマンド15で、チェックボックスの状況をRemarks２の次の行で取得。

上記の件、テストし確認しました。
ただ １５ は １１５ の単なるタイプミスですね。（済みません、あげあしとりのつもりではありません）

送る時に桁数＋１をしてみましたが特に変化は無いようですが今後は桁数＋１にします。

> はい、ＶＢ６もＶＢ２０１０の時も単に文字列の長さを指定しています。　勿論全角は半角換算の２ですが。

やはり文字列の長さ＋１が正解なのかもしれません。
文字列の長さ＋１＝バッファの長さ　ですから。

構造体の内容を送る場合を考えると、納得です。
cds.cbData = sizeof(STRUCT);

別件ですけど、ちょっと修正しました。
http://hamlog.no.coocan.jp/mou/index.html

こんばんは。
コマンド３０の追加ありがとうございました。順調に動作しています。

> 文字列を送る場合、C言語では最後の0x00が必要なので、文字列の長さ
> ＋１が正解みたいです。
> たぶん、PASCALやBASICでは大丈夫なのでしょう。

はい、ＶＢ６もＶＢ２０１０の時も単に文字列の長さを指定しています。　勿論全角は半角換算の２ですが。

ドキュメントに間違いがあったみたいです。
文字列を送る場合、C言語では最後の0x00が必要なので、文字列の長さ
＋１が正解みたいです。
HAMLOG本体では+1してましたが、道の駅Get'sでは+1してませんでした。
たぶん、PASCALやBASICでは大丈夫なのでしょう。
C++でも+1しなくても動くのかもしれませんが、ネット上のコードを
見ていると、strlen("文字列") + 1が多いみたいです。参考まで。

cds.dwData = 1;
lstrcpy(buffs, "JG1MOU"); // コールサイン文字列
cds.cbData = strlen(buffs) + 1; // ※文字列の長さ＋１※
cds.lpData = &buffs[0]; // 文字列のポインタ
Hwnd2 = SendMessage(Hwnd1, WM_COPYDATA, (WPARAM)Form1->Handle, (LPARAM)&cds);