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 p>
Privar Mi sesión como sesión pública
Sub OnStartPage(PassedscriptingContext como scriptingContext)
Establecer MyscriptingContext = PassedscriptingContext
Establecer MyApplication = MyscriptingContext.Application p>
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> 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.