最初に ActiveX DLL を作成します:
新しい VB6 プロジェクトを作成します。ActiveX DLL はプロジェクト名を P_test、クラス名を c_test とし、クラス ファイルの内容は次のとおりです。
明示的なオプション
scriptingContext としてのプライベート MyscriptingContext
MyApplication をアプリケーションとしてプライベート化します
リクエストとしてプライベート MyRequest レスポンスとしてプライベート MyResponse
サーバーとして MyServer をプライベート化
セッションパブリックとして MySession をプライベート化
Sub OnStartPage(PassedscriptingContext As scriptingContext)
MyscriptingContext = PassedscriptingContext を設定します
MyApplication = MyscriptingContext.Application を設定します
MyRequest = MyscriptingContext.Request を設定します
MyResponse = MyscriptingContext.Response を設定します
MyServer = MyscriptingContext.Server を設定します
MySession = MyscriptingContext.Session を設定します
エンドサブ
パブリックサブ OnEndPage()
MyscriptingContext = Nothing を設定します
MyApplication = なしを設定します
MyRequest = 何も設定しない
MyResponse = なしを設定します
MyServer = 何も設定しない
MySession = Nothing を設定します
エンドサブ
バリアントとしてのパブリック関数 Test_Number(num)
数値が 0 の場合、Get_Number_Attrib = 1
num = 0 の場合、Get_Number_Attrib = 0
関数の終了
p_test.dll ファイルをコンパイルして生成します
登録する
プロンプトで実行します: regsvr32 p_test.dll
php ファイルを作成します。test.php4 コードは次のとおりです:
$b=新しいCOM("p_test.c_test");
$a=$b->テスト番号(-454);
エコー $a;
?>
発生する可能性がある問題は、プロジェクトをコンパイルできないことです。具体的には、[プロジェクト] > [参照] で変更されたライブラリを見つけて確認する必要があります。