cargar ensamblado de crystal

08/03/2005 - 14:03 por Pablo Diaz Molina | Informe spam
Hola a todos tengo el siguiente codigo para cargar en un hilo aparte los
ensamblados de crystal report al iniciar mi aplicación para que cuando vaya
a imprimir un informe, la primera vez no tarde un ratillo. Al cargar los
ensamblados me dice que no encuentra el ensamblado o algunas d sus
dependcias. A ver si alguien me puede ayudar con este problemilla

Public Shared Sub ThreadCargarMotorCrystal()

Try

Dim ensamblado As [Assembly]

ensamblado [Assembly].Load("CrystalDecisions.CrystalReports.Engine.dll")

ensamblado = [Assembly].Load("CrystalDecisions.ReportSource.dll")

ensamblado = [Assembly].Load("CrystalDecisions.Shared.dll")

ensamblado = [Assembly].Load("CrystalDecisions.Windows.Forms.dll")

Catch ex As Exception

End Try

End Sub

Private Sub New()

MyBase.New()

InitializeComponent()

precargas = False

Try

Dim t As New Thread(AddressOf ThreadCargarMotorCrystal)

t.Start()

Catch ex As Exception

End Try

End Sub



Pablo.-
 

Leer las respuestas

#1 Octavio Hernandez
08/03/2005 - 19:31 | Informe spam
Pablo,

Te falta la ruta. Yo tengo algo similar en un proyecto:

string nombre = "C:\\Archivos de programa\\Archivos comunes\\Crystal
Decisions"
+ "\\2.5\\managed\\CrystalDecisions.CrystalReports.Engine.dll";
Assembly a = Assembly.LoadFrom(nombre);

Slds - Octavio

"Pablo Diaz Molina" escribió en el mensaje
news:
Hola a todos tengo el siguiente codigo para cargar en un hilo aparte los
ensamblados de crystal report al iniciar mi aplicación para que cuando
vaya
a imprimir un informe, la primera vez no tarde un ratillo. Al cargar los
ensamblados me dice que no encuentra el ensamblado o algunas d sus
dependcias. A ver si alguien me puede ayudar con este problemilla

Public Shared Sub ThreadCargarMotorCrystal()

Try

Dim ensamblado As [Assembly]

ensamblado > [Assembly].Load("CrystalDecisions.CrystalReports.Engine.dll")

ensamblado = [Assembly].Load("CrystalDecisions.ReportSource.dll")

ensamblado = [Assembly].Load("CrystalDecisions.Shared.dll")

ensamblado = [Assembly].Load("CrystalDecisions.Windows.Forms.dll")

Catch ex As Exception

End Try

End Sub

Private Sub New()

MyBase.New()

InitializeComponent()

precargas = False

Try

Dim t As New Thread(AddressOf ThreadCargarMotorCrystal)

t.Start()

Catch ex As Exception

End Try

End Sub



Pablo.-


Preguntas similares