Asignar una instancia de una clase a otra desde dentro de la ultima clase

[raululm]

Hola a todos,

Acabo de retomar un viejo proyecto, dentro del mismo me gustaría crear una clase para manejar la configuración de la aplicación (ya sé que existe el "My.Settings") de forma que se pueda guardar y recuperar.

Esto es bastante sencillo gracias a la simplicidad de la "serialización/deserialización". El problema que me encuentro es que al deserializar el objeto en un método público de la misma clase, no lo puedo asignar directamente a la misma instancia del objeto. Sí que puedo crear otra instancia y asignar el objeto deserializado a la otra instancia, pero no a la misma.

El código que empleo es el siguiente:

Public Function Cargar() As Boolean
If File.Exists(_archivo) Then
Try
fs = File.OpenRead(_archivo)
seriador = New BinaryFormatter
Me = CType(seriador.Deserialize(fs), cConfiguracion)
Cargar = True
Catch ex As IOException
Throw New Exception("No se puede cargar la configuración" & vbNewLine & ex.Message)
Finally
fs.Close()
End Try
Else
Throw New Exception("No existe el archivo de configuración")
Return False
End If
End Function

Me dice que no se puede asignar nada a "Me", he probado una alternativa que no genera error, pero tampoco obtengo resultados, esta es crear un método "private" de la siguiente forma:

Private Sub Asignar(ByRef Config As cConfiguracion, ByVal Cargado As cConfiguracion)
Config = Cargado
End Sub

Llamado mediante la siguiente línea: "Asignar(Me, ConfigCargada)". Donde ConfigCargada es la instancia que se crea al deserializar.

¿conoceis alguna forma de hacer esto?

Gracias.

Un saludo

[raululm]

Me comentan que no está muy claro, así que lo expongo de otra forma. Tengo una clase llamada configuración, con unas propiedades públicas y 2 métodos "Guardar" y "Cargar" con el siguiente esquema:

Código vb:

Public class Configuracion
 
Public Usuario as String
Public RutaBD as String
 
Public Function Guardar() as Boolean
'Aquí serializo la clase, funciona Ok.
End Function
 
Public Function Cargar() as Boolean
'Esta es la rutina que me genera el problema, la intención es cargar la info del archivo
'en la misma instancia de la clase, con el siguiente código
Me = CType(seriador.Deserialize(fs), cConfiguracion)
'Genera error porque no se puede asignar nada a "Me"
End Function
 
End class
 

Pretendo que al iniciar la aplicación se genere una instancia de la clase "cConfiguración" llamada "Configuracion", cargar en ella los parámetros de configuración mediante el método "Cargar()" y cuando finalice la aplicación llamar al método "Guardar()" para guardar los posibles cambios en la configuración.

Código vb:

Public Configuracion as cConfiguracion
 
Public Sub IniciarAplicacion()
' Creo una instancia de la clase
Configuracion=new cConfiguracion
' Cargo la información en la instancia
Configuracion.Cargar()
End Sub
 
Public Sub MostrarUsuario()
MsgBox ("Usuario: " & Configuracion.Usuario)
End Sub
 
Public Sub CambiarUsuario(ByVal Usuario as String)
Configuracion.Usuario=Usuario
End Sub
 
Public Sub FinalizarAplicacion()
Configuracion.Guardar()
End Sub
 

Como os comento todo funciona Ok, excepto que no soy capaz de cargar la información en la misma instancia de la clase. Funciona si lo cargo en otra instancia, pero no en la misma.

Código vb:

' Sí que funciona:
Public Function Cargar() as Boolean
dim Configuracion2 as new cConfiguracion
Configuracion2 = CType(seriador.Deserialize(fs), cConfiguracion)
' El inconveniente es que así no me sirve, tendría que construir 
'el método de cargar la configuración externo a la definición de la clase.
End Function
 
'No funciona (y es lo que quiero conseguir)
Me = CType(seriador.Deserialize(fs), cConfiguracion)
 

¿Alguien me puede ayudar?

Un saludo a todos

[kennyhp]

¿donde instancias fs?

[raululm]

Puedes verlo en el primer post, como variable local dentro de la clase, lo abro dentro de cada método "Guardar()" y "Cargar()", te lo copio aquí:

Código vb:

Public Function Cargar() As Boolean
 
fs = File.OpenRead(_archivo)
seriador = New BinaryFormatter
Me = CType(seriador.Deserialize(fs), cConfiguracion)
fs.Close()
 
End Function
 

No obstante eso funciona correctamente si lo asigno otra instancia de la clase "cConfiguracion".

Un saludo y gracias por el interés.

[raululm]

am...no lo he puesto, es un filestream.

Private fs as FileStream

[raululm]

Ya lo he conseguido resolver, a través de "System.Reflection", tras bucear mucho por la web he encontrado este "Namespace" por el cual se puede tener acceso a las propiedades, campos, eventos, métodos, etc... de un objeto/clase.

El código queda de la siguiente forma:

Código vb:

'Recordad que antes de la declaración de la clase hay que añadir la
'referencia a System.Reflection:
'Imports System.Reflection
 
Public Function Cargar() As Boolean
        ' Declaro una instancia de la misma clase
        Dim Objeto As cConfiguracion
        ' Recupero la configuración guardada en el archivo
        'y lo almaceno en "Objeto"
        If File.Exists(_archivo) Then
            Try
                fs = File.OpenRead(_archivo)
                seriador = New BinaryFormatter
                Objeto = CType(seriador.Deserialize(fs), cConfiguracion)
                Cargar = True
            Catch ex As Exception
                Throw New Exception("No se puede cargar la configuración" & vbNewLine & ex.Message)
            Finally
                fs.Close()
            End Try
        Else
            Throw New Exception("No existe el archivo de configuración")
            Return False
        End If
        ' Ahora asigno los valores a la clase original
        ' Mediante el Namespace Reflection recupero las variables
        ' También se pueden recuperar las propiedades, etc... pero en este caso no es necesario
        Dim tipo As Type = GetType(cConfiguracion)
        Dim limites As BindingFlags = BindingFlags.Instance _
                        Or BindingFlags.Public _
                        Or BindingFlags.DeclaredOnly _
                        Or BindingFlags.Static _
                        Or BindingFlags.NonPublic
        Dim campos As FieldInfo() = tipo.GetFields(limites)
        For Each campo As FieldInfo In campos
            'Solo quiero asignar las variables "Serializables"
            If Not campo.IsNotSerialized Then
                'FieldInfo.SetValue(instancia,valor)
                'FieldInfo.GetValue(instancia)
                campo.SetValue(Me, campo.GetValue(Objeto))
            End If
        Next
    End Function
 

Ya tengo una clase de configuración a la que solo tengo que añadir nuevas variables en la declaración de la clase según precise, y no necesito añadir más código para guardar esa información.

Espero que os sirva.