Menú de Delphi:
Archivo/nuevo/otro ...
Presione el botón OK [OK]
Haga clic en el menú Archivo/Guardar para guardar:
Ingrese el nombre del proyecto Mycom
Presione el botón Guardar
Abra el archivo de menú/nuevo/otro de nuevo ...
Presione el botón [OK};
Ingrese MyObject en coclassname
Presione OK
Presione el mouse, haga clic con el botón derecho en IMYObject
Imyobject/nuevo/método
Ingrese la prueba por nombre
Cambiar a la página de parámetros
Presione agregar dos veces
Cambie el nombre de los primeros parámetros a PSPARAM1, escriba en BSTR
Cambie el nombre de los segundos parámetros a PSRESULT, escriba en BSTR*
Punte el mouse al campo modificador de los segundos parámetros
Presione el botón "..."
Retval de tic
Presione OK
(El original [en] se convierte en [Out, Retval], lo que indica que esto se va a devolver, y su tipo es una cadena)
Cierre esta ventana
(Verá que construye un modelo de código para usted)
Archivo/guardar
Ingrese el nombre del archivo myObject
Presione Guardar
Código de cambio
Haga clic en Ctrl+S para guardar
Proyecto/construir mycom
Puede ver que se ha generado un archivo mycom.dll.
Este es el componente COM que desea.
Hablemos sobre el método de llamar a este componente COM:
Nueva aplicación nueva
Agregue un comobj en los usos
Pon un botón en forma
Ingrese el siguiente código en el evento OnClick del botón:
Código : |
varilla MyObject: Olevariant; Comenzar MyObject: = createOleObject ('mycom.myObject'); intentar ShowMessage (myObject.test ('Dawn')); Finalmente Varclear (myObject); fin; fin; |
Ejecutar ... y presionar botón1 botón
Verá un mensaje ... es decir, se ejecuta el valor del método de prueba del objeto COM.