ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 20:26

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年6月13日(火) 21:32 
オフライン

登録日時: 2005年7月19日(火) 19:47
記事: 98
お住まい: 山形県
コード:
Class Test
	AA As Long
	Sub Proc()
		AA=0
	End Sub
End Class

Dim TestObject As Test
Dim ProcPtr As *Sub()

ProcPtr=AddressOf(TestObject.Proc)
ProcPtr()

クラスのメソッドのアドレスを使ってメソッドを呼び出し、その中でクラスのメンバにアクセスしようとするとアクセス違反が起きます。
これはバグでしょうか。あるいは回避する策があるのでしょうか。
Version 4.24.00 です。

_________________
Toshi's Recess Room
http://toshi.my.land.to/


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年6月13日(火) 23:36 
オフライン

登録日時: 2005年5月31日(火) 17:59
記事: 899
お住まい: 東京都
それを,メソッドのアドレスを取り出さずに実行するとしたらTestObject.Proc()となります。
ところが,その例ではProcPtrにはTestObject.に相当する部分がありません。
だから,TestのProcの中でAAへの代入はきちんとしたオブジェクトで無いところへの代入になるのでアクセス違反というわけです。

ちなみにAddressOf (TestObject.Proc)はあくまでクラスTestのProcのアドレスが得られるだけで,TestObjectは何にも活用されません。
ABの関数へのポインタは関数へのポインタであって,C#などのデリゲートのようなものではないのです。
(C#の関数へのポインタの代替であるデリゲートでは,そのような書き方で問題ないようになっているのです)

せいぜいやれることと言えばこのように普通の関数を間に挟むくらいです。
(普通の関数を挟む理由はそれだけでなく,呼び出し規約が微妙に異なっているからということもあります)
コード:
Sub Test_Proc_Thunk(ByRef test As Test)
    test.Proc()
End Sub

Dim TestObject As Test 
Dim ProcPtr As *Sub(ByRef test As Test) 

ProcPtr = AddressOf (Test_Proc_Thunk) 
ProcPtr(TestObject)
ProcPtrにTestObjectという引数を渡すのが嫌なら,ProcPtrとそれに渡すべき引数を構造体などでひとまとめにするのが関の山です。

私もどうにかしてほしいとは思いますが,先にどうにかしてほしいことは既に十分ありますし,
大変面倒くさいこと以外,この手に欠点は見られない(と思っている)ので今のところ私は仕方ないかと思っています。
#この手段は,COMクラスの定義をしたとき(OLEドラッグアンドドロップ)で散々やりました。

<独り言>
私は,D言語のように関数へのポインタとデリゲートが共存しているのがよいと思います。
それに関数へのポインタからデリゲートへの変換があれば完璧だと思うのですが。
もっともD言語を使っても居ないのにこんなことを語る資格があるかどうかと言われれば返しようが無いですが。
</独り言>


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Bing [Bot] & ゲスト[15人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean