ab.com コミュニティ

yu0627さん
追記の説明ありがとうございます。

>「ShellExecute・GetOpenFileName・GetSaveFileName・SHBrowseForFolder」など起こるようです。

これらを使用する際にも、今後確認してみたいと思います。




マティさん。

細かな説明ありがとうございます。

> ＲＡＤツールでのみ発生し、リリースコンパイルするとＯＫだけで判断すると、
> たとえば、単体で動かすとＯＫであるが、SubやFunctionを経由していくと動作が不安定になっていくのなら、スタック領域不足が原因と思われます。
>
> スタック領域不足が原因なら、領域を大きくするかローカル変数の使用量を減らして、ヒープ領域で確保するようにするしかありません。

これに対してですが、FormにButtonを一つ付けただけで、GetOpenFileName関数の動作確認をするだけのアプリを作成しても発生してしまいます。
尚、これは最初に書き込みの際に、挙げたＡｃｔｉｖｅＢａｓｉｃＬｉｆｅ　のusher@@様のサンプルとほぼ同じものです。
そこから考えると、このエラーが発生するPCで、ローカル変数の使用量を減らしても問題の解決に至るのはむずかしいと思われます。


> ＰＳ．
> 新しいＯＳはスタックの消費量が増えているそうです。
> [url]http://www.microsoft.com/japan/technet/prodtechnol/winxppro/deploy/appcomp.mspx[/url]

リンク先の方を確認させて頂きました。

メモリ管理
スタック消費の増加
『Windows XP では、Windows NT 4.0 より多くのスタック領域を必要とします。小さなスタックを使用するようコンパイルおよびリンクされているアプリケーションは、すぐにスタック領域を使い果たす可能性があります。』

確かに、この部分とこの先の記述を見ると、スタック領域不足が原因のような気がします。
このあたりの調査となると、C言語を得意とする人でないと調査は難しいかもしれませんね。
また、このあたりの話は、私には解りかねますが、これが原因だとすると、Win2000の私のPCでも発生する事から、それほどスペックが高くないXPユーザーの場合それなりの頻度で発生してしまうのではないかなと考えてしまいます。

Helpもしくは、制限事項等などの項目を設けて、そういったエラーが発生する可能がある事を記述した方がよりと思うのですが、いかがでしょう。
製作者の山本様も拝見する機会があったら、頭の隅にでも入れておいて下さればと思います。
まぁ、これは原因が特定された場合の話ではありますが。

ＲＡＤツールでのみ発生し、リリースコンパイルするとＯＫだけで判断すると、
たとえば、単体で動かすとＯＫであるが、SubやFunctionを経由していくと動作が不安定になっていくのなら、スタック領域不足が原因と思われます。

スタック領域不足が原因なら、領域を大きくするかローカル変数の使用量を減らして、ヒープ領域で確保するようにするしかありません。
（デフォルトのスタック領域を増やすとか、アップリが確保する領域を増やすツールもあったような気がしますが・・・やめておいた方が良いと思います）

ＰＳ．
新しいＯＳはスタックの消費量が増えているそうです。
[url]http://www.microsoft.com/japan/technet/prodtechnol/winxppro/deploy/appcomp.mspx[/url]

'変数宣言
	Dim ofn As OPENFILENAME					'OPENFILENAME構造体
	Dim FileName[MAX_PATH] As Byte			'ファイル名

	'OPENFILENAME構造体の初期化
	FillMemory(VarPtr(ofn), Len(ofn), 0)
	ofn.lStructSize=Len(ofn)
	ofn.hwndOwner=hMainWnd
	ofn.lpstrFilter=Ex"全てのファイル（*.*）\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
	ofn.lpstrDefExt=""

「CallBack関数でアクセス違反が起きる 」という件名でで投稿したものです。
これは多分僕の文字列用バッファ確保が少なかったために起こったようです。
僕もGetOpenFileName関数を使ったソフトをデバッグすると起きます。
デバッグする時はその部分をコメントアウトしていますが。
僕の場合は「6BA」です。
僕が質問して答えが戻ってきた中によると起こりやすいのは、
「ShellExecute・GetOpenFileName・GetSaveFileName・SHBrowseForFolder」など起こるようです。
コモンダイアログが絡むAPIではほとんど×かもしれないでそうです。
また、以下のようなソースでもアクセス違反は起きます。
[code]'変数宣言
Dim ofn As OPENFILENAME 'OPENFILENAME構造体
Dim FileName[MAX_PATH] As Byte 'ファイル名

'OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn), Len(ofn), 0)
ofn.lStructSize=Len(ofn)
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"全てのファイル（*.*）\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
ofn.lpstrDefExt=""
[/code]
このようにどちらもMAX_PATHでもアクセス違反が起きます。
あと、既出かもしれませんが「ofn.lStructSize=76」は「ofn.lStructSize=Len(ofn)」の方がいいと思います。

Dim buffer As String
buffer=ZeroString(MAX_PATH)

Dim buffer[MAX_PATH-1] As Byte
    |
    v
ofn.nMaxFile=MAX_PATH

発生条件としては、ファイルを格納しているパスが[b]MAX_PATH[/b]よりも長い場合に発生すると考えられます。
あまり自信が無いので、皆さんで検証願います。

[b]Win32プログラミング講座 ～ Step8. 構造体とファイルオープンダイアログ ～[/b]のサンプルでは、
[code]
Dim buffer As String
buffer=ZeroString(MAX_PATH)
[/code]
でバッファーを作成しています。この場合は、[b]MAX_PATH+1[/b]文字分のバッファーがヒープ領域に確保されます。

a-codeさんのコードは
[code]
Dim buffer[MAX_PATH-1] As Byte
|
v
ofn.nMaxFile=MAX_PATH
[/code]
[color=red][b]MAX_PATH-1[/b][/color]分のバッファーしか確保していないのに、[b]MAX_PATH[/b]バイト使用してもＯＫと、API([b]GetOpenFileName[/b])に渡しています。
この為、バッファー用に取得したデータ以上にメモリをアクセスして落ちた可能性が大きいです。

[color=red]その他[/color]
一般的にByte型で宣言した場合、ローカル変数の場合はスタック上に、（ワード単位で）[b]MAX_PATH-1[/b]バイト分データ確保すると思われます。
余分にデータを書き込むとリターンアドレスやポインターを破壊して落ちる可能性がありますので・・・
これが原因かな？って思っています。

	OPENFILENAME構造体の初期化
	FillMemory(VarPtr(ofn),Len(ofn),0)	'構造体を初期化

[b]Win32プログラミング講座 ～ Step8. 構造体とファイルオープンダイアログ ～[/b]
では[color=red]OPENFILENAME構造体の初期化[/color]を行っています。

エラーが発生するケースの未設定パラメータの値を報告して頂けたら調査可能だと思います。
[code]
OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn),Len(ofn),0) '構造体を初期化
[/code]

hira様、お早いご返信ありがとうございます。

> 実は、私も同じ現象に遭遇しています(^^;
> AB3の頃からですが、一部のXPユーザーに発生しているようです(発生しない環境もあります)。

了解しました。以前より、特定の状況下で発生しているようですね。
ちなみに、私の環境ですが、Win2000 SP4 (ﾌﾙｱｯﾌﾟﾃﾞｰﾄ済み)です。
NT系統は全て発生するのかもしれませんね。


> 私の場合、このようなプログラムをテストするときはリリースコンパイルしたEXEを使う、という方法で回避しています(それでアクセス違反が起こったらその辺を詳しくデバッグコンパイルで確認)。

私も、上記方法で、問題なく実行できました。
とりあえずは、GetOpenFileNameを使用する処理に関しては、この方法で対処しようと思います。

分かりやすいご回答、ありがとうございました。

実は、私も同じ現象に遭遇しています(^^;
AB3の頃からですが、一部のXPユーザーに発生しているようです(発生しない環境もあります)。
山本さんからの公式アナウンスがないため、こちらも原因はわかっていません。
私の場合、このようなプログラムをテストするときはリリースコンパイルしたEXEを使う、という方法で回避しています(それでアクセス違反が起こったらその辺を詳しくデバッグコンパイルで確認)。

※タイトルは「長すぎる」と言われたので少し短くさせていただきました。

どうも、初めまして。
ABのバージョン4から、使用させて頂いている。a-code　といいます。
AB4.04.00を現在使用中なのですが、
GetOpenFileName のAPIが何故かうまく動作してくれません。

当初、OPENFILENAME　の引数を誤って指定しているのかと思い、
色々、試行錯誤しましたが、どうもうまく動作しませんでした。
そこで、ヘルプセンターにあった、
Win32プログラミング講座 ～ Step30. MCIコマンドで音楽ファイルを再生する ～
のＵＲＬ取得処理をそのまま、自分のソースに記述してみたところ、それでも動作しませんでした。

http://www.discoversoft.net/help_center/index.html?win32

Sub MainWnd_OpenButton_Click()
Dim ofn As OPENFILENAME
Dim buffer[MAX_PATH-1] As Byte

'ファイル名を取得
ofn.lStructSize=76
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"音楽 ファイル(*.wav;*.mid;*.mp3)\0*.wav;*.mid;*.mp3\0すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.nMaxFile=MAX_PATH
ofn.lpstrFile=buffer
GetOpenFileName(ofn)

'テキストボックスにパスを設定する
SetWindowText(GetDlgItem(hMainWnd,Static_Path),ofn.lpstrFile)
End Sub

発生するエラーは、
『例外処理　code:6B5』というﾒｯｾｰｼﾞﾎﾞｯｸｽが表示されます。

また、ＡｃｔｉｖｅＢａｓｉｃＬｉｆｅ　のusher@@様のサンプルをダウンロードして試しましたが、これも同様のエラーが発生致します。
http://abfan.active.client.jp/030.html

ABのIncludeフォルダの、api_commdlg.sbp　にGetOpenFileName と　OPENFILENAME　が宣言されているのは確認しましたし、
ABにバグがあるのか、上記サンプルを　ABのバージョン4で動作させる事に問題があるのかが、分かりません。
Debugでは、『Callback.wbp』にて、ボタンクリック時のエラーとして最終的に出力されるようですが、その原因を特定する事が出来ませんでした。

また、過去ログを検索したところ、
『CallBack関数でアクセス違反が起きる』も同じ原因だと思われます。
http://www.discoversoft.net/forum/viewtopic.php?t=257&highlight=GetOpenFileName

ソース上のミスなのか、AB側のバグなのか、ソースとＡＢバージョンの違いが原因なのか分からないので、一応、プログラミング掲示板に書き込みをさせて頂きました。
原因が、わかる方がいらっしゃいましたら、お力を貸して頂けないでしょうか。