[
{
"Id": "218576",
"ThreadId": "64248",
"Html": "Been playing with this for hours, can't figure out what I'm missing for the life of me.
\r\n
\r\n\r\n
\r\n
Dim myNameSpace As String = Assembly.GetEntryAssembly.GetName().Name.ToString()\r\n Dim myAsm As Assembly\r\n myAsm = Assembly.GetExecutingAssembly\r\n Dim msIonicZip As System.IO.UnmanagedMemoryStream\r\n msIonicZip = myAsm.GetManifestResourceStream(myNameSpace & ".Ionic.Zip.dll")\r\n Dim bIonicZip() As Byte = New Byte(msIonicZip.Length) {}\r\n Dim testRead As Boolean = msIonicZip.Read(bIonicZip, 0, msIonicZip.Length)\r\n System.Reflection.Assembly.Load(bIonicZip)\r\n\r\n
I've tried going the ILMerge route, but I'm targeting the 3.5 Framework and ILMerge errors out.
",
"PostedDate": "2009-08-02T17:58:29.633-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218598",
"ThreadId": "64248",
"Html": "\r\n\r\n\r\n| \r\n I don't know why ILMerge wouldn't work. Are you aware that if you ilmerge, you lose the strong name on Ionic.Zip.dll? In that case the references you compiled against may not be satisfied by the merged assembly. \r\nYou said that you're having problems. What's the problem you're having? \r\nI just tried something very similar and it worked for me. \r\n\r\n Dim resourceName As String = "Ionic.Zip.dll"\r\n \r\n Dim a1 As Assembly = Assembly.GetEntryAssembly()\r\n' Dim names As String()\r\n' names = a1.GetManifestResourceNames()\r\n \r\n' If names Is Nothing Then\r\n' Throw new Exception("GetManifestResourceNames returns Nothing.")\r\n' End If\r\n \r\n' For Each n As String in names\r\n' Console.WriteLine("rsrc: {0}", n)\r\n' Next\r\n\r\n Dim s As Stream = a1.GetManifestResourceStream(resourceName)\r\n Dim block As Byte() = New Byte(s.Length) {}\r\n s.Read(block, 0, block.Length)\r\n Dim a2 As Assembly = Assembly.Load(block)\r\n\r\n '' at this point you can call into the loaded assembly\r\n\r\n Dim o As System.Object\r\n o = a2.CreateInstance("Ionic.Zip.ZipFile", _\r\n false, _\r\n System.Reflection.BindingFlags.Public OR _\r\n System.Reflection.BindingFlags.Instance OR _\r\n System.Reflection.BindingFlags.InvokeMethod, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing)\r\n\r\n\r\n \r\nWhen I've had trouble loading resources, usually it is a problem with the resource name. In the above code, I added the resource on the VB compiler command line with the /resource: option. If you use Visual Studio, then the resource name is going to be different. In that case, make sure you have it marked as "Embedded Resource" in the VS project. \r\n![\"\"](\"http://i28.tinypic.com/2mnnq5u.png\")
\r\nYou may want to verify the resource names by using code similar to that which is commented out above. \r\n \r\n | \r\n
\r\n\r\n
",
"PostedDate": "2009-08-02T20:45:23.373-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218611",
"ThreadId": "64248",
"Html": "The error:
\r\n
\r\n************** Exception Text **************\r\nSystem.IO.FileNotFoundException: Could not load file or assembly 'Ionic.Zip, Version=1.7.2.12, Culture=neutral, PublicKeyToken=edbe51ad942a3f5c' or one of its dependencies. The system cannot find the file specified.\r\nFile name: 'Ionic.Zip, Version=1.7.2.12, Culture=neutral, PublicKeyToken=edbe51ad942a3f5c'
\r\n
\r\nUsing the commented code, I did verify it's entire name is "GearMod4.Ionic.Zip.dll".
\r\nAm I not supposed to Imports Ionic.Zip when using embedded resourced?
\r\nThe code and calling methods are:
\r\n
\r\n\r\n
Private Sub winMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load\r\n Dim resourceName As String = "Ionic.Zip.dll"\r\n Dim myNameSpace As String = Assembly.GetEntryAssembly.GetName().Name.ToString()\r\n\r\n Dim a1 As Assembly = Assembly.GetEntryAssembly()\r\n 'Dim names As String()\r\n 'names = a1.GetManifestResourceNames()\r\n\r\n 'If names Is Nothing Then\r\n ' Throw New Exception("GetManifestResourceNames returns Nothing.")\r\n 'End If\r\n\r\n 'For Each n As String In names\r\n ' 'Console.WriteLine("rsrc: {0}", n)\r\n ' MsgBox("Item: " & n)\r\n 'Next\r\n\r\n\r\n Dim s As UnmanagedMemoryStream = a1.GetManifestResourceStream("GearMod4." & resourceName)\r\n 'MsgBox(s.Length.ToString())\r\n Dim block As Byte() = New Byte(s.Length) {}\r\n s.Read(block, 0, block.Length)\r\n Dim a2 As Assembly = Assembly.Load(block)\r\n\r\n '' at this point you can call into the loaded assembly\r\n\r\n Dim o As System.Object\r\n o = a2.CreateInstance("Ionic.Zip.ZipFile", _\r\n False, _\r\n System.Reflection.BindingFlags.Public Or _\r\n System.Reflection.BindingFlags.Instance Or _\r\n System.Reflection.BindingFlags.InvokeMethod, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing)\r\n\r\n\r\n
\r\nAnd the calling methods:
\r\n
\r\n\r\n
Try\r\n Using zip As Ionic.Zip.ZipFile = ZipFile.Read("Themes\\" & objIniFile.GetString("Default", "Theme", "DangerGirl") & ".G4T")\r\n Dim ms As New System.IO.MemoryStream\r\n zip.Password = themeTicket\r\n\r\n
\r\nLastly, I'm using an UnmanagedMemoryStream because MemoryStream errs out:
\r\nUnable to cast object of type 'System.IO.UnmanagedMemoryStream' to type 'System.IO.MemoryStream'.
",
"PostedDate": "2009-08-02T22:04:43.403-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218618",
"ThreadId": "64248",
"Html": "\r\n\r\n\r\n| \r\n The use of UnmanagedMemoryStream is irrelevant. It seems to me the only thing you do is a single Read() on the stream. You can just as well use a plain vanilla Stream type. Using an UnmanagedMemoryStream, if that is the actual type returned by GetManifestResourceStream(), is also fine. \r\nThe Imports is required to satisfy symbols at compile time. The imports statement is not relevant at runtime. \r\nI'm still trying to figure out what you're doing and the problem you're having. My suspiscion at this point is that the problem has nothing to do with DotNetZip, but instead has to do with your use of assemblies and how you load them. \r\nIf you load an assembly at runtime, regardless whether it is DotNetZip or some other assembly, you have a couple options: \r\n\r\n- write an AssemblyResolve event
\r\n- use Reflection to call into the loaded assembly
\r\n \r\nYour initial code, and the example I provided, is an example of the latter. Your subsequent code appears to require the former. \r\nIn other words, if you use code like \r\n\r\n Using zip as Ionic.Zip.ZipFile = ZipFile.Read(...)\r\n '' ...\r\nEnd Using\r\n\r\n \r\n ...then you need to have an AssemblyResolve event. If you are using reflection, then your app code will construct a ZipFile like this: \r\n\r\n Dim o As System.Object\r\n o = a2.CreateInstance("Ionic.Zip.ZipFile", _\r\n false, _\r\n System.Reflection.BindingFlags.Public OR _\r\n System.Reflection.BindingFlags.Instance OR _\r\n System.Reflection.BindingFlags.InvokeMethod, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing, _\r\n Nothing)\r\n\r\n\r\n \r\n | \r\n
\r\n\r\n
",
"PostedDate": "2009-08-02T22:54:08.213-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218621",
"ThreadId": "64248",
"Html": "Using the Reflection method, how do I actually pass calls to the object?
\r\nI think that's the problem I'm having, because I'm Using zip As Ionic.Zip.ZipFile, rather than the method you showed.
\r\nReflection's insanely new to me, so I'm not sure how I go from o = a2.CreateInstance() to actually using 'o'.
\r\nEDIT:-
\r\nNevermind, scratch that last part, added a one liner just to check vs. my existing code and this works perfectly.
\r\n\r\n
\r\n
Dim zip As Object = o.Read("Themes\\" & objIniFile.GetString("Default", "Theme", "Default") & ".G4T")\r\nzip.Password("SomethingHere")\r\n\r\n
\r\n
",
"PostedDate": "2009-08-02T23:00:29.83-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218626",
"ThreadId": "64248",
"Html": "\r\n\r\n\r\n| \r\n yes, Reflection is much harder and usually only makes sense when you are not sure of the version of the assembly you will load at runtime. In other words, if your app runs from a directory and there could be one of any number of assemblies avaialble to the application and you don't know the version until you load it. In your case, you seem to be relying on an embedded assembbly, which would recommend the AssemblyResolve evvent. \r\nThe AssemblyResolve event is not difficult. It allows you to keep the application code, outside of the assembly resolution logic, very simple. For example, \r\nDim zip as ZipFile\r\nzip = New Zipfile\r\nAddHandler zip.AddProgress, AddressOf AddProgress\r\nzip.StatusMessageTextWriter = Console.Out\r\nzip.AddDirectory(directoryToZip)\r\nAddHandler zip.SaveProgress, AddressOf SaveProgress\r\nzip.BufferSize = &H80000\r\nzip.UseZip64WhenSaving = Zip64Option.Always\r\nzip.Save(zipPath)\r\nzip.Dispose\r\n\r\n \r\n
\r\nIn contrast, if you use reflection, your app code to use a zipfile will look like this: \r\n\r\n Private Sub CreateZipFirstTime()\r\n Dim o As Object = a2.CreateInstance("Ionic.Zip.ZipFile", False, (BindingFlags.InvokeMethod Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, Nothing, Nothing, Nothing)\r\n Dim t As Type = o.GetType\r\n If _version.VersionGreaterThanOrEqualTo("1.8.3.29") Then\r\n ' AddProgress event\r\n Dim eInfo As EventInfo = t.GetEvent("AddProgress")\r\n Dim addProgressMethodInfo As MethodInfo = .AddEventHandlerAssembly.GetType("DynamicallyCompiled.AddEventHandler").GetMethod("AddProgress", (BindingFlags.Public Or BindingFlags.Static))\r\n Dim d As Delegate = Delegate.CreateDelegate(eInfo.EventHandlerType, addProgressMethodInfo)\r\n eInfo.AddEventHandler(o, d)\r\n Else\r\n t.InvokeMember("StatusMessageTextWriter", (BindingFlags.SetProperty Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, New Object() { Console.Out })\r\n End If\r\n Dim e As Object = t.InvokeMember("AddDirectory", (BindingFlags.InvokeMethod Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, New Object() { _directoryToZip, "" })\r\n If _version.VersionGreaterThanOrEqualTo("1.7.0.0") Then\r\n ' set up a SaveProgress event\r\n Dim eInfo2 As EventInfo = t.GetEvent("SaveProgress")\r\n Dim saveProgressMethodInfo As MethodInfo = SaveEventHandlerAssembly.GetType("DynamicallyCompiled.SaveEventHandler").GetMethod("SaveProgress", (BindingFlags.Public Or BindingFlags.Static))\r\n Dim d2 As Delegate = Delegate.CreateDelegate(eInfo2.EventHandlerType, saveProgressMethodInfo)\r\n eInfo2.AddEventHandler(o, d2)\r\n End If\r\n If _version.VersionGreaterThanOrEqualTo("1.8.0.0") Then\r\n ' set the BufferSize property\r\n t.InvokeMember("BufferSize", (BindingFlags.SetProperty Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, New Object() { &H80000 })\r\n End If\r\n If _version.VersionGreaterThanOrEqualTo("1.7.0.0") Then\r\n Dim zip64OptionType As Type = LateBoundZipCreator.LateBoundAssembly.GetType("Ionic.Zip.Zip64Option")\r\n t.InvokeMember("UseZip64WhenSaving", (BindingFlags.SetProperty Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, New Object() { Enum.Parse(zip64OptionType, "Always") })\r\n End If\r\n t.InvokeMember("Save", (BindingFlags.InvokeMethod Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, New Object() { _zipPath })\r\n t.InvokeMember("Dispose", (BindingFlags.InvokeMethod Or (BindingFlags.Public Or BindingFlags.Instance)), Nothing, o, Nothing)\r\nEnd Sub\r\n\r\n \r\n\r\n \r\n | \r\n
\r\n\r\n
",
"PostedDate": "2009-08-02T23:15:47.643-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218629",
"ThreadId": "64248",
"Html": "I don't see why it would have to look so intricate when I'm only reading from the zip and writing to a MemoryStream.
\r\nMy application is working perfectly without the DLL, using only the Resource.
\r\n
\r\n\r\n
\r\n
zip = zip.Read("Themes\\" & objIniFile.GetString("Default", "Theme", "ThemeName") & ".G4T")\r\n Dim ms As New System.IO.MemoryStream\r\n zip.Password = themeTicket\r\n zip.Extract("Authenticate", ms)\r\n If Not AuthenticateTheme(ms) Then suicide()\r\n ms.Dispose()\r\n\r\n ms = New System.IO.MemoryStream\r\n zip.Extract("BackGround.png", ms)\r\n Dim bmpBack As Bitmap = Bitmap.FromStream(ms)\r\n Dim tWidth As Integer = bmpBack.Width\r\n Dim tHeight As Integer = bmpBack.Height\r\n Me.Height = tHeight\r\n Me.Width = tWidth\r\n Me.BackgroundImage = bmpBack\r\n Me.Update()\r\n'many more extractions, near duplicate code as above.\r\n\r\n
ok, well if it's working for you . .. ..
",
"PostedDate": "2009-08-03T04:10:10.963-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "218727",
"ThreadId": "64248",
"Html": "Ran into another doozie, if you've got anything for this one, I'd really appreciate it. Google is turning up nothing lol
\r\n
\r\n\r\n
\r\n
Private Declare Function BASSMOD_Init Lib "bassmod.dll" (ByVal device As Long, ByVal freq As Long, ByVal flags As Long) As Integer\r\n Private Declare Function BASSMOD_MusicLoad Lib "bassmod.dll" (ByVal mem As Integer, ByVal pfile As String, ByVal offset As Long, ByVal Length As Long, _\r\n ByVal flags As Long) As Integer\r\n Private Declare Function BASSMOD_MusicPlay Lib "bassmod.dll" () As Integer\r\n Private Declare Function BASSMOD_MusicStop Lib "bassmod.dll" () As Integer\r\n Private Declare Sub BASSMOD_Free Lib "bassmod.dll" ()\r\n
\r\n
No, I can't help you with that.
\r\n
",
"PostedDate": "2009-08-03T04:28:45.087-07:00",
"UserRole": null,
"MarkedAsAnswerDate": null
}
]