Hey,
I am using this function to embed assembly into my application. It works perfect in my another Application. It doesnt have spaces in application name.. but my new application have a space in name.. anyways here is main code that searches embedded assemblies..
This code works perfect for XXyyZZ but it throws error when i use like XX ZZ as my application name. i have no clue. i have added dlls and made content type as Embedded Resource. any help would be great!!
I am using this function to embed assembly into my application. It works perfect in my another Application. It doesnt have spaces in application name.. but my new application have a space in name.. anyways here is main code that searches embedded assemblies..
Code:
Public Shared Sub Load(embeddedResource As String, fileName As String)
If dic Is Nothing Then
dic = New Dictionary(Of String, Assembly)()
End If
Dim ba As Byte() = Nothing
Dim asm As Assembly = Nothing
Dim curAsm As Assembly = Assembly.GetExecutingAssembly()
Using stm As Stream = curAsm.GetManifestResourceStream(embeddedResource)
' Either the file is not existed or it is not mark as embedded resource
If stm Is Nothing Then
Throw New Exception(embeddedResource & " is not found in Embedded Resources.")
End If
' Get byte[] from the file from embedded resource
ba = New Byte(CInt(stm.Length) - 1) {}
stm.Read(ba, 0, CInt(stm.Length))
Try
asm = Assembly.Load(ba)
' Add the assembly/dll into dictionary
dic.Add(asm.FullName, asm)
Return
' Purposely do nothing
' Unmanaged dll or assembly cannot be loaded directly from byte[]
' Let the process fall through for next part
Catch
End Try
End Using
Dim fileOk As Boolean = False
Dim tempFile As String = ""
Using sha1 As New SHA1CryptoServiceProvider()
Dim fileHash As String = BitConverter.ToString(sha1.ComputeHash(ba)).Replace("-", String.Empty)
tempFile = Path.GetTempPath() & fileName
If File.Exists(tempFile) Then
Dim bb As Byte() = File.ReadAllBytes(tempFile)
Dim fileHash2 As String = BitConverter.ToString(sha1.ComputeHash(bb)).Replace("-", String.Empty)
If fileHash = fileHash2 Then
fileOk = True
Else
fileOk = False
End If
Else
fileOk = False
End If
End Using
If Not fileOk Then
System.IO.File.WriteAllBytes(tempFile, ba)
End If
asm = Assembly.LoadFile(tempFile)
dic.Add(asm.FullName, asm)
End SubThis code works perfect for XXyyZZ but it throws error when i use like XX ZZ as my application name. i have no clue. i have added dlls and made content type as Embedded Resource. any help would be great!!