Como crear un Automation Object en Delphi 7

Como crear un Automation Object en Delphi 7.

Esta aplicación envía un mensaje desde el cliente y es mostrado en la forma del servidor

Creación del servidor:

Crear una aplicación. (Fig. 1)

1. Posee una forma
2. Posee componentes visuales dentro de la forma (Memo)

[pic 1]

Fig. 1.

Crear el automation Object.

Opciones:

        File -> New-> other (Fig. 2.)

[pic 2]

Fig. 2.

La pantalla será la de la figura 3.

[pic 3]

Fig. 3.

Se selecciona Automation Object y se llena la siguiente pantalla (Fig. 4)

[pic 4]

Fig. 4.

Se coloca el nombre de ObjPrueba en la opción CoClassName. (Fig. 4)[pic 5]

Fig. 5

En la type library (Fig. 5) se crea un método llamado msg(), este método posee un parámetro que contendrá el mensaje, el tipo del parámetro será Variant.

Seleccione la interfaz ObjPrueba y pulse el icono que se activa para crear un método. (Fig. 6.)

[pic 6]

[pic 7][pic 8]

[pic 9][pic 10]

[pic 11]

[pic 12]

Fig. 6.

Se coloca el nombre del método y se selecciona la pestaña de Parameters, para crear el parámetro. (Fig. 7 y 8)

[pic 13]

Fig. 7.

[pic 14]

Fig. 8.

Se crea el parámetro dando las especificaciones en la pantalla (Fig. 9).

[pic 15]

Fig. 9.

El nombre del parámetro es m, el tipo es Variant y el Modificador es [in].

Variant: es un tipo genérico, es decir puede comportarse con String, entero, Float, objeto, etc. Este tipo de datos es único para sistemas en Windows Microsoft.

[in]: Especifica que el parámetro es solo de entrada, equivalente a parámetros por valor.

[out]: Especifica que el parámetro es salida, equivalente a parámetros por referencia.

Una vez creado se refresca el código, esto se hace a través del  icono (refresh). Al realizar esto se genera el código del método para escribir la implementación del mismo. (Fig. 10. Y 11).

[pic 16][pic 17]

[pic 18]

Fig. 10.

Fig. 11.[pic 19][pic 20]

El método se encargará de tomar el mensaje que viene en la variable “m” y colocarlo en el memo, para esto se debe incluir la unidad de la forma1, que es donde reside el memo, luego se escribe el código correspondiente (fig. 12.)

El código del método sería:

procedure TObjPrueba.msg(m: OleVariant);

begin

                form1.Memo1.Lines.Add(m);

end;

Luego para registrar el objeto solo se debe salvar el mismo y ejecutarlo 1 vez.

Creación del Cliente:

...