ab.com コミュニティ

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

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




返信する
ユーザー名:
件名:
メッセージ本文:
メッセージを入力してください。60000 字まで入力できます。 

フォントサイズ:
フォントカラー
オプション:
BBCode: ON
[img]: ON
[flash]: OFF
[url]: ON
スマイリー: OFF
BBCode を無効にする
URL を自動的にパースしない
クイズ
お手数ですがカタカナで「エービー」と4文字を入力してください。:
答えを正確に入力してください。答えられるかどうかでスパムボットか否かを判定します。
   

トピックのレビュー - 関数ポインタの返り値
作成者 メッセージ
  記事の件名:  2005/6/21 11:16 加筆  引用付きで返信する
> *Functionの戻り値の挙動についてですが、こちらでもバグを確認できました。次回のバージョンアップで修正しますので、今しばらくお待ちください。
>
> 念のため、もしよろしければ、問題が起きるサンプルコードを提示していただけると助かります。
コード:
#N88BASIC

' ↓ ここからプログラムが実行されます

Declare Function mmsystemGetVersion Lib "WINMM" () As DWord

Dim hDLL As HANDLE
Dim pFunc As *Function() As DWord

hDLL = LoadLibrary("winmm")
pFunc = GetProcAddress(hDLL,"mmsystemGetVersion")

Print mmsystemGetVersion()
Print pFunc()

FreeLibrary(hDLL)
こんな具合です。


P.S.
このバグは下記のようにするとうまく動きます。
コード:
#N88BASIC

' ↓ ここからプログラムが実行されます

Declare Function mmsystemGetVersion Lib "WINMM" () As DWord

TypeDef PFUNC = *Function() As DWord

Dim hDLL As HANDLE
Dim pFunc As PFUNC

hDLL = LoadLibrary("winmm")
pFunc = GetProcAddress(hDLL,"mmsystemGetVersion")

Print mmsystemGetVersion()
Print pFunc()

FreeLibrary(hDLL)

teflon様の情報によると
下記のようなプログラムがコンパイルできないようです。
※TypeDefを通すとうまく動く
コード:
Function Test(pp As *Function() As DWord)
    If pp=0 Then Exit Function
    Test = pp()
End Function

AB4.01
WindowsXP
投稿記事 Posted: 2005年6月21日(火) 10:23
  記事の件名:   引用付きで返信する
*Functionの戻り値の挙動についてですが、こちらでもバグを確認できました。次回のバージョンアップで修正しますので、今しばらくお待ちください。

念のため、もしよろしければ、問題が起きるサンプルコードを提示していただけると助かります。
投稿記事 Posted: 2005年6月21日(火) 09:51
  記事の件名:  関数ポインタの返り値  引用付きで返信する
一部のユーザーの間では以前から話題になっていたのですが、
*Function型の関数ポインタを実行しても返り値が取得できないというバグが
あります。確か、このバグを報告されていた方も居られたと思うのですが
山本(管理人)様の正式なコメントはまだ頂いてなかったと思います。

この件はどうなりましたでしょうか?
投稿記事 Posted: 2005年6月21日(火) 08:19

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


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