ab.com コミュニティ

by **ゲスト** » 2007年5月14日(月) 01:38

解決しました、ありがとうございました
またお騒がせして大変申し訳ありませんでした

by **ゲスト** » 2007年5月14日(月) 01:22

言葉足らずで申し訳ありません

クラスの中で関数を呼んだ場合何の問題もありません。
ですが、Newで出来たものを呼んだ場合アクセス違反になるんです
クラスの中で使用した場合と、->で使用した場合
は同じ事ですよね？

仕様ということでしょうか…。

by **ゲスト** » 2007年5月14日(月) 00:50

OnCreateはクラスの外にあります
コールバック関数の方で直接だと上手く行くんですが
他の関数だと…

[ここをクリックすると内容が表示されます]

コード: 全て選択

Class A 
    Function Proc(hwnd As DWord,msg As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT 
        '略 
        pMessage=AddressOf(OnCreate)
        pMessage()
    End Function  
End Class

by **ゲスト** » 2007年5月14日(月) 00:49

OnCreateはクラスの外にあります
コールバック関数の方で直接だと上手く行くんですが
他の関数だと…

[ここをクリックすると内容が表示されます]

コード: 全て選択

Class A 
    Function Proc(hwnd As DWord,msg As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT 
        '略 
        pMessage=AddressOf(OnCreate)
        pMessage()
    End Function  
End Class

by **ゲスト** » 2007年5月13日(日) 22:34

> クラス内のコールバック関数にて関数ポインタを使用しています。
> AddressOfでアドレスを取得し代入する訳ですが
> クラスの変数を使用した場合、関数ポインタの箇所でアクセス違反となります。
>
>

[ここをクリックすると内容が表示されます]

コード: 全て選択


> Class A
> 	Function Proc(hwnd As DWord,msg As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
> 		'略
> 		pMessage()'ここでアクセス違反
> 	End Function
> Public
> 	Sub Message(message As DWord,fn As DWord)
> 		pMessage=fn
> 	End Sub
> Public
> 	pMessage *Sub()
> End Class
> 
> 	Dim a As *A
> 	a=New A
> 	
> 	a->Message(WM_CREATE,AddressOf(OnCreate))
> 
> 	Sub OnCreate()
> 		OutputDebugString("ok")
> 	End Sub

> thisポインタを引数にすれば良いとありましたが、どうすれば良いのでしょうか

> Dim a As *A
> a=New A
>
> a->Message(WM_CREATE,AddressOf(OnCreate))
>
> Sub OnCreate()
> OutputDebugString("ok")
> End Sub[/code][/hide]

の部分が良く分からないのですが、OnCreateはクラスの外にあるのでしょうか？
それとも内にあるのでしょうか？

OnCreateがクラスの外にあってエラーとなるのでしたらActiveBasicのバグですが
クラスの内にあるのでしたら仕様です。

この場合、OnCreate()には一見すると引数が無いように見えますが、実際には
OnCreate(this As *A)という引数が隠れています。

ですから、下記のように関数ポインタに引数を追加すれば動くのではないかと思います。

[ここをクリックすると内容が表示されます]

コード: 全て選択


Class A
Public
	Sub A()
		Message(WM_CREATE,AddressOf(OnCreate)) 
	End Sub
Private
	Function Proc(hwnd As DWord,msg As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
		pMessage(VarPtr(This))
	End Function
Public
	Sub Message(message As DWord,fn As DWord)
		pMessage=fn
	End Sub
Public
	pMessage *Sub(this As *A)

	Sub OnCreate()
		OutputDebugString("ok")
	End Sub
End Class

Dim a As *A 
a=New A
～～～
Delete a

by **ゲスト** » 2007年5月13日(日) 21:59

クラス内のコールバック関数にて関数ポインタを使用しています。
AddressOfでアドレスを取得し代入する訳ですが
クラスの変数を使用した場合、関数ポインタの箇所でアクセス違反となります。

[ここをクリックすると内容が表示されます]

コード: 全て選択


Class A
	Function Proc(hwnd As DWord,msg As DWord,wParam As WPARAM,lParam As LPARAM) As LRESULT
		'略
		pMessage()'ここでアクセス違反
	End Function
Public
	Sub Message(message As DWord,fn As DWord)
		pMessage=fn
	End Sub
Public
	pMessage *Sub()
End Class

	Dim a As *A
	a=New A
	
	a->Message(WM_CREATE,AddressOf(OnCreate))

	Sub OnCreate()
		OutputDebugString("ok")
	End Sub

thisポインタを引数にすれば良いとありましたが、どうすれば良いのでしょうか

ab.com コミュニティ

関数ポインタについて

返信する

展開ビュートピックのレビュー: 関数ポインタについて

Re: 関数ポインタについて

関数ポインタについて

関数ポインタについて

返信する

展開ビュー トピックのレビュー: 関数ポインタについて

Re: 関数ポインタについて

関数ポインタについて

展開ビュートピックのレビュー: 関数ポインタについて