Objetos superglobales

[[Crandel]]

Hola avmm2004, aca te paso el ejemplo que escribi en aquel momento que lo probe, es muuuuy sencillo, simplemente escribe una variable en la memoria y la lee.

El programa esta en turbo delphi, pero no debería haber problema de compilarlo en otra versión.

Simplemente compila el programa y luego ejecuta varias instancias de mismo. Veras que puedes modificar el valor de la variable desde un programa y luego leerlo desde otro de forma transparente.

[[Crandel]]

Bueno ... me dio un poco de verguenza mandartelo asi no mas, todoqueteado como niño de primaria al código de nuestro amigo Al.

Asi que aca te dejo la versión limpia y prolija. Donde lo único que debes hacer es modificar la clase MySuperGlobalClass con lo que quieras y no tocar la clase de Al.


.

[elliotduvorov]

Buenas,

Para empezar perdón por el reflote...

Me ha surgido la necesidad de compartir objetos entre dos aplicaciones distintas, y he encontrado este hilo.

Mi duda:

El objeto que quiero compartir es un TORASession de los componentes ODAC de DevArt.

Mi idea seria hacer algo así:

Código Delphi [-]
TMiSuperObjetoSesion = Class(TSuperGlobalObject)
  Public
    MiSesion: TOraSession;
End;

Para después en cada aplicación hacer algo parecido a esto:

Código Delphi [-]
MiSesionLocal.AssignConnect(TMiSuperObjetoSesion.MiSesion);

Creéis que seria viable???

Gracias y un saludo.

[Ñuño Martínez]

Hola elliotduvorov, bienvenido al club. Como a todos los novatos, te invitamos a que revises la Guía de Estilo si no lo has hecho ya.

Respecto a tu pregunta, no estoy seguro de que vaya a funcionar ya que no creas ningún objeto. Realmente no he usado nunca este código, pero viendo el código adjuntado por Crandel, creo que deberías hacer algo así:

Código Delphi [-]
  TYPE
    TMiSuperObjetoSesion = CLASS (TSuperGlobalObject)
    PUBLIC
      MiSesion: TOraSession;
    END;

  VAR
    ElObjetoSesionGlobal: TMiSuperObjetoSesion;

  BEGIN
    ElObjetoSesionGlobal := TMiSuperObjetoSesion. Create;
    MiSesionLocal.AssignConnect (ElObjetoSesionGlobal.MiSesion)
  END

De todas formas, ten en cuenta las limitaciones de las que habla Al en la cabecera de su código, ya que el objeto "MiSesion" podría darte problemas. El artículo de la bitácora del máster Al incluye más información acerca del mecanismo, y dará pistas de qué se puede y qué no y por qué.

[jachguate]

Empezado por elliotduvorov

El objeto que quiero compartir es un TORASession de los componentes ODAC de DevArt.

Mi idea seria hacer algo así:

Código Delphi [-]
TMiSuperObjetoSesion = Class(TSuperGlobalObject)
  Public
    MiSesion: TOraSession;
End;

Para después en cada aplicación hacer algo parecido a esto:

Código Delphi [-]
MiSesionLocal.AssignConnect(TMiSuperObjetoSesion.MiSesion);

Si lees las premisas que expone Al sobre la implementación de TSuperGlobalObject te darás cuenta que este objeto reside en la memoria compartida.

Del curso Object Pascal 1.0, sabrás que las instancias de Objetos habitualmente viven en el Heap de tu aplicación, y que las variables de tipo objeto (TMyObject) son realmente un puntero a esta memoria.

De tal cuenta, en la aplicación donde originalmente creas la sesión, tendrás un puntero a una dirección de memoria válida, pero en cualquier otra aplicación que tenga acceso a este objeto super-global (incluso otra instancia de la misma aplicación) esa dirección a) puede no ser válida b) si lo es, definitivamente no residirá allí la instancia del objeto que esperas (lo cual es mucho peor).

Lo que se vislumbra es un Access Violation, o la corrupción de memoria de la segunda aplicación (la que no ha creado originalmente el sub-objeto MiSesion).

Dicho esto, aunque encontraras la forma de compartir la información de la sesión, la verdad no estoy seguro que se pueda compartir una sesión de Oracle entre varias aplicaciones, en todo caso habrá que revisar la documentación y el por qué quieres compartir la sesión antes de continuar.

Un saludo.

[jhonny]

Genial Al, muchas gracias por compartir. En la noche haré pruebas pero de entrada me ha llamado mucho la atención.

[roman]

Empezado por jhonny

En la noche

¿Esta noche o dentro de otros siete años?

// Saludos

[jhonny]

Empezado por roman

¿Esta noche o dentro de otros siete años?

// Saludos

Esta , pues es que sólo hasta hoy me enteré