Cómo usar PHP para llamar a componentes COM escritos por usted mismo

Cree un nuevo proyecto VB6, nombre el proyecto ActiveX Dll P_test, el nombre de clase c_test y el contenido del archivo de clase es el siguiente:

Opción explícito

Privado MyscriptingContext como scriptingContext

Privado MyApplication como aplicación

Privado MyRequest como solicitud Privado MyResponse como respuesta

Privado MyServer comoServer

Privar Mi sesión como sesión pública

Sub OnStartPage(PassedscriptingContext como scriptingContext)

Establecer MyscriptingContext = PassedscriptingContext

Establecer MyApplication = MyscriptingContext.Application

Establecer MyRequest = MyscriptingContext.Request

Establecer MyResponse = MyscriptingContext.Response

Establecer MyServer = MyscriptingContext.Server

Establecer MySession = MyscriptingContext.Session

Extensiones = MyscriptingContext.Session.

End Sub

Public Sub OnEndPage()

Establecer MyscriptingContext = Nada

Establecer MyApplication = Nada

Establecer MiSolicitud = Nada

Establecer MiRespuesta = Nada

Establecer MiServidor = Nada

Establecer Mi Sesión = Nada

Establecer Mi Sesión = Nada p>

End Sub OnEndPage(s)./p>

End Sub

Función pública Test_Number(num) como variante

Si num 0 Entonces Get_Number_Attrib = 1

Si num = 0 Entonces Get_Number_Attrib = 0

Finalizar función

Compilar para generar el archivo p_test.dll

Registrarse

Ejecutar cuando se le indique: regsvr32 p_test.dll

Escribir el archivo php test.php4 con el siguiente código:

$b =new COM("p_test.c_test");

$a=$b->Test_Number(-454);

echo $a;>

El problema que puede encontrar es que el proyecto no se puede pasar a la biblioteca de objetos de Microsoft Active Server Pages durante la compilación. La implementación específica es encontrar la biblioteca de cambios a través de "Proyecto->Referencias" y conectarla.