Unrar.dll Der objektverweis wurde nicht....

prophet · 19. September 2011, 18:29

Hi,

ich wollte mir einen Rarentpacker schreiben und hab das Forum dazu auch schon durchsucht und bin auch fündig geworden

Dann hab ich mir von hier rarlab.com/rar/UnRARDLL.exe das vb.net Beispiel angeschaut und gestartet, aber wenn ich auf den Button Open klicke kommt die Fehlermedlung:
"Der Objektverweiß wurde nicht auf ein.... festgelegt...." dabei sollte es doch funktionieren? Habe nicht geändert o.ä. nur gestartet.

Der Fehler kommt in der Sub:

VB.NET-Quellcode

Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
Dim szFile As String = GetFile
Me.Cursor = Cursors.WaitCursor
lv.Items.Clear()
Try
d = New Decompressor(szFile)
AddHandler d.OnUnpack, AddressOf Unpacked
AddHandler Decompressor.Unpacking, AddressOf InProgress
For Each r As Decompressor.RAREntry In d.RARFiles
Dim lvitem As New ListViewItem(r.FileName)
' Place a check mark next to the item.
lvitem.SubItems.Add(r.FileAttr)
lvitem.SubItems.Add(r.PackSize)
lvitem.SubItems.Add(r.UnpSize)
lvitem.SubItems.Add(r.FileCRC)
lv.Items.Add(lvitem)
Next
Catch ex As Exception
MsgBox(ex.Message)
d = Nothing
Exit Sub
Finally
Me.Cursor = Cursors.Default
End Try
StatusBar1.Panels.Item(2).Text = d.TotalArchiveSize.ToString
End Sub

hab leider kein Plan wieso

Hoffe ihr könnt mir sagen wie ich das Bsp zum laufen bekomme.

Gruß
oneill

RodFromGermany · 19. September 2011, 18:34

VB.NET-Quellcode

AddHandler d.OnUnpack, AddressOf Unpacked
AddHandler Decompressor.Unpacking, AddressOf InProgress

d oder Decompressor, die Mischung geht schief.
Nimm d

prophet · 19. September 2011, 18:49

der Fehler kommt trotzdem.

Außerdem kommt ein fehler:

Siehe Anhang.

VB.NET-Quellcode

Private Sub LoadLibrary()
Dim szLibrary As String = "unrar.dll"
If System.Runtime.InteropServices.Marshal.SizeOf(New IntPtr) = 8 Then szLibrary = "unrar64.dll"
Dim pUnrar As IntPtr
pUnrar = LoadLibraryEx(szLibrary, IntPtr.Zero, 0)
If pUnrar = IntPtr.Zero Then
Dim errorCode As Integer = Marshal.GetLastWin32Error()
Throw New ApplicationException(String.Format("DLL Load error: {0}, error - {1}", szLibrary, errorCode))
End If

Der Objektverweißfehler kommt nach dem Fehler im Anhang

singu · 19. September 2011, 20:38

Existieren beide DLLs?

prophet · 20. September 2011, 12:21

Ja sind beide vorhanden

singu · 20. September 2011, 14:06

Wo liegen diese, hast du die als Verweise importiert?

prophet · 20. September 2011, 17:38

die unrar.dll kann nicht als verweis hinzugefügt werden... wieso auch immer

aber hab die besagte dll in alle ordner des projekts reinkopiert

singu · 20. September 2011, 18:13

In Debug und Release? Welche Architektur hat dein Projekt?

prophet · 20. September 2011, 19:13

in en debug ordner.

war auf framework 2 eingestellt ung ging nicht und dann hab ichs auf 4 geändert und geht trotzdem nicht

singu · 21. September 2011, 09:02

Wo hast du die DLLs her?

prophet · 21. September 2011, 11:09

von hier rarlab.com/rar/UnRARDLL.exe

Da ist auch das bsp drin wo ich das Problem hab...

ErfinderDesRades · 21. September 2011, 11:28

mach doch mal die TryCatchens weg, damit du uns auch sagen kannst, in welcher Zeile die Fehler auftreten.
Du kannst ühaupt mal grundsätzlicher über den Sinn von Trycatchens nachdenken, und in welchen Fällen die Verwendung sinnvoll ist, und wann nicht (die exorbitant überwiegende Mehrzahl nämlich).
AvoidTryCatch

prophet · 22. September 2011, 17:36

ich hab das bsp das nicht geht ja nicht geschrieben

Nutze sehr selten Trycatches

In der Zeile wo die msgbox mim fehler kommt

EDIT:
Hab das ganze nochmal entpackt und auf einmal gings... kp worans lag...

Unrar.dll Der objektverweis wurde nicht....

Unrar.dll Der objektverweis wurde nicht....

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben