instancias de clases delphi.net

[karocs]

Saludos

Estamos desarrollando un proyecto en asp.net con delphi y tengo una clase llamada TConexion en una unidad llamada conexion, esta la utilizo en la mayoria de la pagina, la pregunta es que si hay que instanciar la case TConexion en cada página que se use o hay alguna forma de instanciala solo una vez para todas las página..

agradeceria mucho, es supergente..

[radaalvaro]

karocs si es posible, el patron de Diseño Singleton hace eso.

Una aplicación práctica del Patron podria ser la siguiente.

Código Delphi [-]
Interface
type
TConexion = class
                 private
                   // AQUI TODOS LOS METODOS QUE NECESITES.  
                   class var Instancia :TConexion;
                 public
                   //AQUI TODOS LOS METODOS QUE NECESITES
                   Class Function DevuelveInstancia:TConexion;
                 end;
Implementation
 
Class Function TConexion.DevuelveInstancia:TConexion;
Begin
    if Instancia=nil then
        Instancia := TConexion.Create;
 
    result := Instancia;
 
   //Aqui se puede observar que solo se creara una instancia en caso de que 
   //la Varialble Instancia no este Instanciada, Si Instancia<> nil significa que 
   //alguien ya la creo entonces se devuelve la que ya esta creada.
End

Espero haber sido claro y no haberte enredado mucho.

Saludos.

[karocs]

Saludos

gracias por responder...

puedo entonces intanciar la clase por ejemplo en el evento Sesion_Start del global asax o en donde seria mas recomendable..?

otra pregunta si lo hacemos asi estariamos compartiendo la misma conexion para todos los usuarios que se conecten ?..

gracias de nuevo...

[[__hector]]

No importa en que sitio 'instancies' la conexion, ya que siempre habra solo una referencia a la misma en toda la aplicacion. Se creara en la primera llamada, y luego existira mientras exista el AppDomain de la aplicacion web que estas ejecutando.

Puedes hacerlo en el Session_Start, o Application_Start, o incluso en cualquier clase que tengas. No marcara ninguna diferencia (en cuanto a usabilidad).