ab.com コミュニティ

バッファが小さいんじゃないの？
MAX_PATHで複数開くのは自殺行為

	Dim ofn As OPENFILENAME
	Dim buf[MAX_PATH] As Byte
	Dim lpFileName As BytePtr
	Dim lpf As Long
	Dim lpd As Long

	FillMemory(VarPtr(ofn), Len(ofn), 0)
	ofn.lStructSize = Len(ofn)
	ofn.hwndOwner = hMainWnd
	ofn.lpstrFilter = Ex"Ogg Vorbis(*.ogg)\0*.ogg\0\0"
	ofn.nFilterIndex = 1
	ofn.nMaxFile = MAX_PATH
	ofn.lpstrFile = buf
	ofn.Flags = OFN_FILEMUSTEXIST or  OFN_ALLOWMULTISELECT or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST or OFN_EXPLORER
	ofn.lpstrDefExt = "*"

	Dim i As Long

	If GetOpenFileName(ofn) Then
		lpf=ofn.nFileOffset
		lpd=lpf
		buf[lpf-1]=&H5C

		While 1
			lpFileName=VarPtr(buf[lpf])
			If lstrlen(lpFileName)=0 Then Exit While

			memcpy(VarPtr(buf[lpd]),lpFileName, lstrlen(lpFileName)+1)
			SendMessage(hList, LB_INSERTSTRING, i, buf As Long)

			lpf=lpf+lstrlen(lpFileName)+1 
			
			i++
		Wend
	End If

お久しぶりです。

早速ですが質問させてください。
ファイルダイアログで指定された複数のファイルを開こうと、
[url=http://abfan.mxm-wk.com/030.html]このページ[/url]のコードを書いたのですが、
複数のファイルを開くと、
リストボックスに文字化けした文字が入るときがります。
コードは AB3.x のものだそうなので、
違うのであれば AB5 CP3 のコードにしたいのですが、
どう直せばよいのでしょうか？


[hide][code] Dim ofn As OPENFILENAME
Dim buf[MAX_PATH] As Byte
Dim lpFileName As BytePtr
Dim lpf As Long
Dim lpd As Long

FillMemory(VarPtr(ofn), Len(ofn), 0)
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hMainWnd
ofn.lpstrFilter = Ex"Ogg Vorbis(*.ogg)\0*.ogg\0\0"
ofn.nFilterIndex = 1
ofn.nMaxFile = MAX_PATH
ofn.lpstrFile = buf
ofn.Flags = OFN_FILEMUSTEXIST or OFN_ALLOWMULTISELECT or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST or OFN_EXPLORER
ofn.lpstrDefExt = "*"

Dim i As Long

If GetOpenFileName(ofn) Then
lpf=ofn.nFileOffset
lpd=lpf
buf[lpf-1]=&H5C

While 1
lpFileName=VarPtr(buf[lpf])
If lstrlen(lpFileName)=0 Then Exit While

memcpy(VarPtr(buf[lpd]),lpFileName, lstrlen(lpFileName)+1)
SendMessage(hList, LB_INSERTSTRING, i, buf As Long)

lpf=lpf+lstrlen(lpFileName)+1

i++
Wend
End If[/code][/hide]
お願いします。