Introducción a las Tecnologías Distribuidas y Remote Data Modules en Delphi

Tecnologías Distribuidas en Delphi

Conceptos Clave

• Automation Object: Se refiere a usar objetos de otra aplicación dentro de una aplicación.
• Remote Data Module: Es un módulo de datos remoto que crea una interfaz donde el cliente, a través de hilos (uno o varios), puede acceder remotamente a un servidor como interfaz dual. Este reside en la aplicación entre el cliente y el servidor.
• Interoperabilidad: Capacidad de dos o más sistemas o componentes para intercambiar información y utilizar la información intercambiada.
• Middleware: Es un software que asiste a una aplicación para interactuar o comunicarse con otras aplicaciones.

Cliente con Remote Data Module

1. Crear la base de datos en el servidor remoto.
2. Crear un alias en el administrador de orígenes de datos (Panel de control - Herramientas Administrativas - Orígenes de datos (ODBC)) agregando la información del servidor (DNS), el nombre de la base de datos, el usuario y la contraseña.
3. Agregar un Remote Data Module (Archivos - Nuevo - Otros - Remote Data Module).
4. Insertar un objeto de conexión (SQLConnection1) (Hostname, Username, Password, Database).
5. Agregar un DataSet especificando el nombre del componente creado anteriormente y agregando la consulta.
6. Agregar un DataSource, que es el lugar donde se mostrará el resultado de la consulta.
7. Crear un TDBGrid conectándolo con el DataSource y seleccionando las columnas a mostrar.

Tipos de Tecnologías Distribuidas

1. Objetos Distribuidos
2. Archivos Distribuidos
3. Bases de Datos Distribuidas

Stubs

Un Stub es un trozo de código usado para sustituir alguna otra funcionalidad. Puede simular el comportamiento del código existente o servir como sustituto temporal del código aún no creado.

Métodos Show() y ShowModal()

El método Show() permite mostrar una forma y poder trabajar en paralelo con las demás.

El método ShowModal() permite mostrar otra forma al ejecutar un programa, pero solo permite trabajar en esta forma.

Ejemplo de Código: Función 'q'

Versión 1

function TDatamodule1.q(sentence: string): boolean;begin  Try    ADOQuery1.Close;    ADOQuery1.SQL.Clear;    ADOQuery1.SQL.Add(sentence);    If UpperCase(sentence[1]) = 'S' then      ADOQuery1.Open    Else      ADOQuery1.ExecSQL;    q := true;  except    q := false;  end;end;

Versión 2

Procedure TDatamodule1.q(sentence: String);Begin  ADOQuery1.Close;  ADOQuery1.SQL.Clear;  ADOQuery1.SQL.Add(sentence);  If UpperCase(sentence[1]) = 'S' then    ADOQuery1.Open  Else    ADOQuery1.ExecSQL;End;