Rar datei runterladen und entpacken lassen brauche hilfe.

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RyanTT.

    Rar datei runterladen und entpacken lassen brauche hilfe.

    Hallo com

    ich habe einen updater geschrieben der auch funktioniert er lädt eine rar datei runter aber ich möchte das er sie gleich entpackt wie kann ich das machen ???


    lg vbcji

    Hallo,

    Ich weise dich darauf hin das du dir erst die Methode meines Vorposters ansehen solltest. Falls dass nicht klappt kannst du gerne folgende Methode ausprobieren, wirst dabei aber nicht viel schlauer.

    1. Downloade und mache einen Verweis zu folgender DLL: KLICK HIER
    2. Packe folgenden Code in ein Modul:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Declare Function RAROpenArchive Lib "unrar.dll" ( _
    2. ByRef ArchiveData As RAROpenArchiveData) As Long
    4. Private Declare Function RARCloseArchive Lib "unrar.dll" ( _
    5. ByVal hArcData As Long) As Long
    7. Private Declare Function RARReadHeader Lib "unrar.dll" ( _
    8. ByVal hArcData As Long, _
    9. ByRef HeaderData As RARHeaderData) As Long
    11. Private Declare Function RARProcessFile Lib "unrar.dll" ( _
    12. ByVal hArcData As Long, _
    13. ByVal Operation As Long, _
    14. ByVal DestPath As String, _
    15. ByVal DestName As String) As Long
    17. Private Declare Sub RARSetChangeVolProc Lib "unrar.dll" ( _
    18. ByVal hArcData As Long, _
    19. ByVal Mode As Long)
    21. Private Declare Sub RARSetPassword Lib "unrar.dll" ( _
    22. ByVal hArcData As Long, _
    23. ByVal Password As String)
    26. Const ERAR_END_ARCHIVE = 10
    27. Const ERAR_NO_MEMORY = 11
    28. Const ERAR_BAD_DATA = 12
    29. Const ERAR_BAD_ARCHIVE = 13
    30. Const ERAR_UNKNOWN_FORMAT = 14
    31. Const ERAR_EOPEN = 15
    32. Const ERAR_ECREATE = 16
    33. Const ERAR_ECLOSE = 17
    34. Const ERAR_EREAD = 18
    35. Const ERAR_EWRITE = 19
    36. Const ERAR_SMALL_BUF = 20
    38. Const RAR_OM_LIST = 0
    39. Const RAR_OM_EXTRACT = 1
    41. Const RAR_SKIP = 0
    42. Const RAR_TEST = 1
    43. Const RAR_EXTRACT = 2
    45. Const RAR_VOL_ASK = 0
    46. Const RAR_VOL_NOTIFY = 1
    48. Enum RarOperations
    49. OP_EXTRACT = 0
    50. OP_TEST = 1
    51. OP_list = 2
    52. OP_TESTT = 3
    53. End Enum
    55. Private Type RARHeaderData
    56. ArcName As String * 260
    57. FileName As String * 260
    58. Flags As Long
    59. PackSize As Long
    60. UnpSize As Long
    61. HostOS As Long
    62. FileCRC As Long
    63. FileTime As Long
    64. UnpVer As Long
    65. Method As Long
    66. FileAttr As Long
    67. CmtBuf As String
    68. CmtBufSize As Long
    69. CmtSize As Long
    70. CmtState As Long
    71. End Type
    73. Private Type RAROpenArchiveData
    74. ArcName As String
    75. OpenMode As Long
    76. OpenResult As Long
    77. CmtBuf As String
    78. CmtBufSize As Long
    79. CmtSize As Long
    80. CmtState As Long
    81. End Type


    3. Folgende Funktion kommt in die Form rein die aktiv ist wenn du entpacken willst:
    (Gebe bei FileToExtract nichts am um alle Datein des Archives zu entpacken)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function ExtractFileFromRAR( _
    2. RarFile As String, _
    3. FileToExtract As String, _
    4. Destination As String, _
    5. Optional Password As String = "")
    7. On Error GoTo fehler
    9. Dim lHandle As Long
    10. Dim iStatus As Integer
    11. Dim uRAR As RAROpenArchiveData
    12. Dim uHeader As RARHeaderData
    13. Dim sStat As String, Ret As Long
    15. With uRAR
    16. .ArcName = RarFile
    17. .CmtBuf = Space(16384)
    18. .CmtBufSize = 16384
    20. .OpenMode = RAR_OM_EXTRACT
    22. lHandle = RAROpenArchive(uRAR)
    23. If .OpenResult <> 0 Then OpenError .OpenResult, RarFile
    25. If Password <> "" Then RARSetPassword lHandle, Password
    27. If (.CmtState = 1) Then MsgBox .CmtBuf, vbApplicationModal + vbInformation, "Comment"
    29. iStatus = RARReadHeader(lHandle, uHeader)
    31. With uHeader
    32. Do
    33. sStat = Left$(.FileName, InStr(1, .FileName, vbNullChar) - 1)
    34. ' MsgBox sStat & vbLf & FileToExtract
    35. If InStr(1, sStat, FileToExtract, vbTextCompare) <> 0 or FileToExtract = "" Then
    36. Ret = RARProcessFile(lHandle, RAR_EXTRACT, "", Destination & "\" & .FileName)
    37. If Not FileToExtract = "" Then
    38. RARCloseArchive lHandle
    39. Exit Function
    40. End If
    41. Else
    42. Ret = RARProcessFile(lHandle, RAR_SKIP, "", "")
    43. End If
    45. If Ret = 0 Then
    46. ' Wenn kein Fehler aufgetreten ist
    47. Else
    48. ProcessError Ret
    49. End If
    51. RARReadHeader lHandle, uHeader
    52. iStatus = iStatus + 1
    53. Loop
    54. End With
    56. End With
    57. If iStatus = ERAR_BAD_DATA Then Erro ("File header broken")
    59. RARCloseArchive lHandle
    60. Exit Function
    62. fehler:
    63. RARCloseArchive lHandle
    64. End Function


    4. Fehlerbehandlungsroutine: (optional aber besser)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub ProcessError(ErroNum As Long)
    2. Select Case ErroNum
    3. Case ERAR_UNKNOWN_FORMAT
    4. Erro "Unknown archive format", ERAR_UNKNOWN_FORMAT
    5. Case ERAR_BAD_ARCHIVE:
    6. Erro "Bad volume", ERAR_BAD_ARCHIVE
    7. Case ERAR_ECREATE:
    8. Erro "File create error", ERAR_ECREATE
    9. Case ERAR_EOPEN:
    10. Erro "Volume open error", ERAR_EOPEN
    11. Case ERAR_ECLOSE:
    12. Erro "File close error", ERAR_ECLOSE
    13. Case ERAR_EREAD:
    14. Erro "Read error", ERAR_EREAD
    15. Case ERAR_EWRITE:
    16. Erro "Write error", ERAR_EWRITE
    17. Case ERAR_BAD_DATA:
    18. Erro "CRC error", ERAR_BAD_DATA
    19. End Select
    20. End Sub


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Erro(Msg As String, Optional Num As Long = 0)
    2. MsgBox "Ein Fehler ist aufgetreten." & vbLf & Msg
    3. End Sub


    5. Aufrufen der Funktion:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ExtractFileFromRAR App.Path & "\Test.rar", "testdatei.txt", App.Path & "\extract"




    Alle angegebenen Daten wurden von folgender Website bezogen,
    ich uebernehme keine Haftung bei eventuellen Schaeden:
    RAR-Datei entpacken

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RyanTT“ ()

    danke für die anleitung aber wenn ich ein verweis machen will kommt als ein fehler ob ich die berechtigung oder so dafür habe und weiter komme ich nicht muss ich noch was machen ?

    Edit by hal2000:
    - Vollzitat entfernt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „hal2000“ ()

    So da das Thema noch nicht beendet ist wollte ich die Sache mal aufklaeren:
    (PS: Ich hoffe es ist nicht tragisch dass du deine Datei in Zip aendern musst :) )

    Fuer das entpacken von Datein in VB2010 benoetigt man keine Library falls Framework 4.5 auf dem Zielcomputer installiert ist!

    Hier die 2 einfachen Schritte zum Glueck:

    1. Verweis erstellen:

    Wie schon gesagt benoetigen wir fuer diese Methode einen Verweis zur System.IO.Compression.FileSystem.dll,
    welche sich unter C:\Program Files\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5 befindet.

    2. Code

    Folgender Code entpackt die .zip deiner Wahl in ein Verzeichnis:

    VB.NET-Quellcode

    1. System.IO.Compression.ZipFile.ExtractToDirectory("deine.zip", "C:\Wohin-Entpacken\")


    Das Wars ich hoffe ich konnte dir jetzt helfen :)

    Mfg. Ryan

    Oder wenn du kein So hohes Framework verwenden willst, kannst du es noch mit unrar.exe machen.
    Mit diesem Projekt kannst du .Rar Dateien Entpacken und den Fortschritt noch in einer Progressbar wiedergeben lassen .

    MFG Tibiamicus
    Dateien

    • Unrar .NET.rar

      (189,39 kB, 247 mal heruntergeladen, zuletzt: )

Facebook
Telefonspende