HAMLOG プログラム開発室

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

> 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);

こんにちは。

3　HAMLOGを最小化する。
4　最小化を元に戻す。

> CloseWindow(), ShowWindow()を呼び出すようにしてみました。

ありがとうございました。
こちらでも上記の２点の動作確認出来ました。

> > 3　HAMLOGを最小化する。
> > 4　最小化を元に戻す。
>
> 上記の２点は動作確認出来ませんでした。
> あらかじめ最小化しておいてから　４　を送っても元に戻らないです。

CloseWindow(), ShowWindow()を呼び出すようにしてみました。
http://hamlog.no.coocan.jp/mou/soft/Hamlogw.zip
こちらでは問題なく動作しています。

こんにちは。 色々とありがとうございます。

> 1　以後、DXエンティティが自動入力されなくなる。
> 2　DXエンティティ自動入力機能を元に戻す。

上記の２点は動作確認出来ました。
特に　１ 　は入力ウインドウのコールサインを取得してから　cty.dat を使ってのエンティティ解析、　
Ｃｏｄｅ、ＱＴＨの転送処理において
表示される事がある [ ＤＸエンティテー選択 ]　ウインドウを消す為に
Ｅｎｔｅｒキーを押す手間もなくなりスムースに転送が出来るようになりました。



> 3　HAMLOGを最小化する。
> 4　最小化を元に戻す。

上記の２点は動作確認出来ませんでした。
あらかじめ最小化しておいてから　４　を送っても元に戻らないです。

こちらのテストの問題なのかも知れませんが、まあ当分３と４の使用予定はありません。

毎度のわがままなお願いをお聞き届けていただきありがとうございました。