ab.com コミュニティ

前回ＲＳ２３２Ｃで受信したデータをリストビューに表示するようにしましたが、
そこで次のような問題が起きています。
最初は意図したとおりに表示されるのですが、データを削除し再び受信し、
データを表示させると、lstrcpy で設定したデータが、その直前に記載したデ
ータにも反映されてしまいます。２回目以降 全てこの様な状態です。
ａｂｆａｎに掲載されているコードを元に同じ様な事をさせたところ同様な結果と
なりました。それを見てください。
どのようにすれば回避できるのか、お教え願えないでしょうか。

　　　　　Ａ　　　Ｂ　　　Ｃ　　　　　　　　　Ａ　　　Ｂ　　　Ｃ　　　
　　　　　Ａ０　　Ｂ０　　Ｃ０　　　→　　　Ａ０　　Ｃ０　　Ｃ０
　　　　　Ａ１　　Ｂ１　　Ｃ１　　　→　　　Ａ１　　Ｃ１　　Ｃ１
　　　　　Ａ２　　Ｂ２　　Ｃ２　　　→　　　Ａ２　　Ｃ２　　Ｃ２
　　　　　　　　　 ↑　　　　　　　　　　　　　　　　　 ↑
　　　　　　　　 最初　　　　　　　　　　　　　　２回目以降

　　　　　Ａ０～Ｂ２は　.pszText = "Ａ０"
　　　　　Ｃ０～Ｃ２は　lstrcpy(.pszText, Dt0)　の様に設定しています。

' ----------------------------------------------------------------------------
'  イベント プロシージャ
' ----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' メモ - 以下の領域を、変数、構造体、定数、関数を宣言するための、
'        グローバル領域として利用することができます。
' ----------------------------------ここから----------------------------------
Dim hList As Long   'リストビューのハンドル

' ----------------------------------ここまで----------------------------------

Sub MainWnd_Destroy()
    T_ListView_DestroyObjects()
    PostQuitMessage(0)
End Sub

Sub MainWnd_CB_EXIT_Click()
    MainWnd_Destroy()
End Sub

Sub MainWnd_Resize(SizeType As Long, cx As Integer, cy As Integer)
    Dim rc As RECT

    GetClientRect(hMainWnd,rc)										'クライアント領域のサイズを取得
    hList=GetDlgItem(hMainWnd,ListView1)							'ListView1のウィンドウ ハンドルを取得
    MoveWindow(hList, 0, 30, rc.right, rc.bottom - 30, 0)			'hListの大きさを変更する
End Sub

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
    Dim clm As LVCOLUMN

    hList=GetDlgItem(hMainWnd,ListView1)							'リストビューのハンドルを取得
    SendMessage(hList,LVM_SETEXTENDEDLISTVIEWSTYLE,0, _
                LVS_EX_FULLROWSELECT or LVS_EX_GRIDLINES)			'リストビューの拡張スタイルを設定
	With clm
        .mask = LVCF_FMT or LVCF_WIDTH or LVCF_TEXT
        .fmt = LVCFMT_CENTER
        .pszText = "Ａ" : .cx = 80									'カラムの設定
        SendMessage(hList,LVM_INSERTCOLUMN,0,VarPtr(clm))
        .pszText = "Ｂ" : .cx = 80
        SendMessage(hList,LVM_INSERTCOLUMN,1,VarPtr(clm))
        .pszText = "Ｃ" : .cx = 80
        SendMessage(hList,LVM_INSERTCOLUMN,2,VarPtr(clm))
    End With
End Sub

Sub MainWnd_CB_ADD_Click()
    Dim itm As LVITEM
	Dim Dt0[5] As Byte, Dt1[5] As Byte, Dt2[5] As Byte

	lstrcpy(Dt0, "Ｃ０")
	lstrcpy(Dt1, "Ｃ１")
	lstrcpy(Dt2, "Ｃ２")

    With itm
        .mask = LVIF_TEXT
        .iItem = 0 : .iSubItem = 0 : .pszText = "Ａ０"			'アイテムを追加 １行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm)) 
        .iItem = 0 : .iSubItem = 1 : .pszText = "Ｂ０"
		MessageBox(0,.pszText,"pszText",MB_OK)					'確認の為
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 0 : .iSubItem = 2 : lstrcpy(.pszText, Dt0)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))

        .iItem = 1 : .iSubItem = 0 : .pszText = "Ａ１"			'アイテムを追加 ２行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm))
        .iItem = 1 : .iSubItem = 1 : .pszText = "Ｂ１"
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 1 : .iSubItem = 2 : lstrcpy(.pszText, Dt1)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        
        .iItem = 2 : .iSubItem = 0 : .pszText = "Ａ２"			'アイテムを追加 ３行目
        SendMessage(hList,LVM_INSERTITEM,0,VarPtr(itm))
        .iItem = 2 : .iSubItem = 1 : .pszText = "Ｂ２"
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
        .iItem = 2 : .iSubItem = 2 : lstrcpy(.pszText, Dt2)
        SendMessage(hList,LVM_SETITEM,0,VarPtr(itm))
    End With
End Sub

'ラベルの編集が終わった時の処理
Sub MainWnd_ListView1_EndLabelEdit(ByRef nmLVDispInfo As NMLVDISPINFO)
    SendMessage(hList,LVM_SETITEM,0,VarPtr(nmLVDispInfo.item))	'結果の書き戻し      
End Sub

Sub MainWnd_CommandButton1_Click()
	ListView_DeleteAllItems(GetDlgItem(hMainWnd,ListView1))		'アイテムを削除
End Sub

新たに解ったことを追記します。
２回目以降に誤って表示されるデータは、前回にlstrcpyで設定されたデータ
であることが解りました。
２回目は１回目の時の、３回目は２回目の時の、ということです。

なんでだろうと思って最初は気付かなかったんですが、コードを一行一行にバラして読んでたら発見しました。
lstrcpy(.pszText, Dt0)に問題ありです。

Type LVITEM
	mask As DWord
	iItem As Long
	iSubItem As Long
	state As DWord
	stateMask As DWord
	pszText As BytePtr
	cchTextMax As Long
	iImage As Long
	lParam As LPARAM
	iIndent As Long
End Type

pszText As BytePtrの宣言を見てもらえば分かる通り、pszTextは文字列の先頭ポインタを示すだけの変数なので、lstrcpy()関数で直接イジってはいけません。

Dim lpStr As LPSTR
	lstrcpy(lpStr,"hoge")

こんなコード書くとアクセス違反になりますよね。
件のコードを動かしてみるとアクセス違反にはならないんですが、それは"Ｂ０"っていう文字列定数分のメモリが確保されてるからだと思います。

Dim lpStr As LPSTR
Dim lpsz="Ｂ０" As LPCSTR

	lpStr=lpsz
	lstrcpy(lpStr,"Ｃ０")

Debug

lpStrの中身を参照して書き換えてるように見えるかもしれませんが、実際はlpszの中身を書き換えてるんですね。
Debugで確認してみると、lpszの中身が"Ｂ０"から"Ｃ０"になってるのが分かるかと思います。

そんな訳で2回目以降、pszTextに"Ｂ０"を渡してるつもりでも、"Ｃ０"を渡していた、と。

lstrcpy()関数を使わずに、そのままDt0のポインタを渡すだけでオーケーです。

	Dim itm As LVITEM
	Dim Dt0[5] As Byte, Dt1[5] As Byte, Dt2[5] As Byte

	lstrcpy(Dt0, "Ｃ０")
	lstrcpy(Dt1, "Ｃ１")
	lstrcpy(Dt2, "Ｃ２")

	With itm
		.mask = LVIF_TEXT

		.iItem = 0	'アイテムを追加 １行目

		.iSubItem = 0 : .pszText = "Ａ０"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ０"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt0
		ListView_SetItem(hList,itm)

		.iItem = 1	'アイテムを追加 ２行目
		
		.iSubItem = 0 : .pszText = "Ａ１"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ１"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt1
		ListView_SetItem(hList,itm)
		
		.iItem = 2	'アイテムを追加 ３行目
		
		.iSubItem = 0 : .pszText = "Ａ２"
		ListView_InsertItem(hList,itm)

		.iSubItem = 1 : .pszText = "Ｂ２"
		ListView_SetItem(hList,itm)

		.iSubItem = 2 : .pszText=Dt2
		ListView_SetItem(hList,itm)
	End With

ポインタ操作は難しいですね...。

７さん　詳しく解説していただきありがとうございます。
lstrcpyを使わずに = を使うことは本編の通信プログラムで最初に試したのですが
その時はうまくいきませんでした。何か他に原因があったのだと思います。
今度は、じっくりと１行１行確認しながら詰めていきます。
本当にありがとうございました。