C/Visual C - Necesito informacion acerca de corba

// ejemplo.idl

module MiModulo {

    interface MiInterfaz {

        string obtenerDatos();

    };

};

uses

  MiModulo, // Incluye la unidad generada a partir del IDL

  CORBA;

type

  TMiInterfazImpl = class(TInterfacedObject, MiModulo.MiInterfaz)

  public

    function obtenerDatos: string;

  end;

function TMiInterfazImpl.obtenerDatos: string;

begin

  Result := 'Datos desde el servidor CORBA';

end;

// Inicialización del servidor

procedure StartServer;

var

  ORB: IORB;

  Servant: TMiInterfazImpl;

begin

  ORB := CreateORB;

  Servant := TMiInterfazImpl.Create;

  ORB.RegisterServant(Servant, 'MiModulo.MiInterfaz');

  ORB.Run; // Inicia el ORB

end;

uses

  MiModulo, // Incluye la unidad generada a partir del IDL

  CORBA;

procedure CallServer;

var

  ORB: IORB;

  MiInterfaz: MiModulo.MiInterfaz;

begin

  ORB := CreateORB;

  MiInterfaz := ORB.Resolve('MiModulo.MiInterfaz') as MiModulo.MiInterfaz;

  ShowMessage(MiInterfaz.obtenerDatos); // Llama al método del servidor

end;