ab.com コミュニティ

まだAB5のβは安定してないみたいですね。
こっちの開発も、4.24に切り替えてやってみます。

今回はどうもありがとうございました。

Thread.abて、それAB5のβ版ではないですか？
すみません、こっちは4.24を前提に話をしていました。

ZeroString() はライブラリのバグとして、こちらで対処します。
4.24だと ZeroString() は問題なく使えます。

wsprintf(buffer, "UnitSet%d", i)

この直前に一応ZeroString関数で25byte確保してデバッグしてみると、

Thread.abの140行目でアクセス違反が起こってしまいました。

Forの直前にするとまたもヒープエラーです。

どうしたものでしょう？

追記：

buffer[20] As Byte
で、代用したところ、
wsprintf(buffer, "UnitSet%d", i)
この直後でアクセス違反が起こります。

[quote="xss0423"]#console

Dim a As String
wsprintf(a,"UnitSet%d",5)

これを試しに実行したらヒープエラー吐きました
やっぱりbufferが原因のようです[/quote]
こちらでも確認できましたが、確保されたサイズは (requested size of)5 バイトでした。
考えてみれば確かに 長さ情報 (4 bytes) + 終端ヌルキャラクタ で計算上は合うのですが、はて。

Byte 配列で代用するという手もありますが、AB5から文字型の扱いが拡張されることから、避けておいた方が無難です。
String 型のままバッファを拡げたい場合は ZeroString() が使えます。これも非公式関数なので怪しいところですが。

追記 2007/4/21 4:19
非公式とおもったら、ありました、[url=http://www.activebasic.com/help_center/Pages/Function/ZeroString.htm]ZeroString 関数[/url]。

#console

Dim a As String
wsprintf(a,"UnitSet%d",5)

これを試しに実行したらヒープエラー吐きました
やっぱりbufferが原因のようです

Dim buffer[15] As Byteに置き換えてみて下さい

bufferが原因のような
String型は宣言された時点である程度メモリを確保してくれていますが、Forの下の操作で溢れていると思います

Dim NowUnitNum As Long	'現在のユニット数

Sub MainWnd_IDM_OPEN_MenuClick()
    Dim ofn As OPENFILENAME
	Dim FileName[MAX_PATH-1] As Byte
	Dim i As Long
	Dim i2 As Long
	Dim buffer As String
	Dim lpstrBuffer[254] As Byte
	Dim lpstrBuffer2[254] As Byte
	Dim lc As LVITEM
	
    'OPENFILENAME構造体の初期化
    FillMemory(VarPtr(ofn),Len(ofn),0)
    ofn.lStructSize=Len(ofn)
    ofn.hwndOwner=hMainWnd
    ofn.lpstrFilter=Ex"SubAppendMission\0*.sam\0AppendMissionFiles\0*.apm\0テキストファイル\0*.txt\0すべてのファイル(*.*)\0*\0\0"
    ofn.nFilterIndex=1
    ofn.lpstrFile=FileName
    ofn.nMaxFile=MAX_PATH
    ofn.lpstrTitle="ファイルを開く"
    ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST or OFN_EXPLORER or OFN_NOCHANGEDIR
    ofn.lpstrDefExt="*"

    '「ファイルを開く」ダイアログボックスを表示
    If GetOpenFileName(ofn)=0 Then Exit Sub

	'INIファイルからユニット数を読み込む
	NowUnitNum=GetPrivateProfileInt("UnitSettings", "NumOfUnit", 0,FileName)
	
	If NowUnitNum=0 Then
		MessageBox(hMainWnd,"正常に読み込むことが出来ませんでした。","UnitAttachmenter",MB_OK)
		Exit Sub
	Else
		i2=0
		For i = 1 To NowUnitNum-1
			wsprintf(buffer, "UnitSet%d", i)
			GetPrivateProfileString(buffer,"UnitName", "", lpstrBuffer, 255,FileName)
			GetPrivateProfileString(buffer,"Num","",lpstrBuffer2,255,FileName)
				If lstrlen(lpstrBuffer) and lstrlen(lpstrBuffer2) Then
					AddListItem(lpstrBuffer,GetDlgItem(hMainWnd,ListView1),i2)
					SetListItem(lpstrBuffer2,GetDlgItem(hMainWnd,ListView1),i2,1)
					i2=i2+1
				End If
		Next
	End If
End Sub

[hide=問題のコード][code]
Dim NowUnitNum As Long '現在のユニット数

Sub MainWnd_IDM_OPEN_MenuClick()
Dim ofn As OPENFILENAME
Dim FileName[MAX_PATH-1] As Byte
Dim i As Long
Dim i2 As Long
Dim buffer As String
Dim lpstrBuffer[254] As Byte
Dim lpstrBuffer2[254] As Byte
Dim lc As LVITEM

'OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn),Len(ofn),0)
ofn.lStructSize=Len(ofn)
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"SubAppendMission\0*.sam\0AppendMissionFiles\0*.apm\0テキストファイル\0*.txt\0すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.lpstrFile=FileName
ofn.nMaxFile=MAX_PATH
ofn.lpstrTitle="ファイルを開く"
ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST or OFN_EXPLORER or OFN_NOCHANGEDIR
ofn.lpstrDefExt="*"

'「ファイルを開く」ダイアログボックスを表示
If GetOpenFileName(ofn)=0 Then Exit Sub

'INIファイルからユニット数を読み込む
NowUnitNum=GetPrivateProfileInt("UnitSettings", "NumOfUnit", 0,FileName)

If NowUnitNum=0 Then
MessageBox(hMainWnd,"正常に読み込むことが出来ませんでした。","UnitAttachmenter",MB_OK)
Exit Sub
Else
i2=0
For i = 1 To NowUnitNum-1
wsprintf(buffer, "UnitSet%d", i)
GetPrivateProfileString(buffer,"UnitName", "", lpstrBuffer, 255,FileName)
GetPrivateProfileString(buffer,"Num","",lpstrBuffer2,255,FileName)
If lstrlen(lpstrBuffer) and lstrlen(lpstrBuffer2) Then
AddListItem(lpstrBuffer,GetDlgItem(hMainWnd,ListView1),i2)
SetListItem(lpstrBuffer2,GetDlgItem(hMainWnd,ListView1),i2,1)
i2=i2+1
End If
Next
End If
End Sub[/code][/hide]

オープンソースなのですが、最後の、End Subでエラーです。
hiraさんの、サンプルコードを使用させていただいています。（AddListItem,SetListItem）

おかしなコードを書いてしまっているでしょうか？

ヒープ領域を解放するときに安全性チェックが行われるのですが、そのテストで引っかかった可能性が高いです。

たとえば malloc() で 1 バイトのメモリ領域を確保したとします。
このとき &H01150DA8 に割と近い場所が確保できるはずです。
プログラムにバグがあり、誤って本来書き込んではいけない &H01150DB1 の値を書き換えたら、free() したときにこのような警告が発生します。

まずはそのような間違いのありそうな箇所を探してみてください。

最近またプログラムを組み始めて、思ってもいないエラーに遭遇しました。

[b]Invalid Address specified to RtlFreeHeap[/b]
[b]Heap block at 01150DA8 modified at 01150DB1 past requested size of 1[/b]
？？？なぬ？これは何だ・・・
コンパイルは一応通りますが、実行中にエラーで落ちます。
でも、何ゆえか、リリースコンパイルではなく、デバッグモードでは落ちません。

この英語はどういう意味なんですか？