ChangeVol

ChangeVol

ChangeVol Callback Function

' ChangeVol Function
Function UnRARChangeVolProc(ByVal ArcName As Long, Byval Mode As Integer) As Long
  Printl("ChangeVol: " . Peek$(ASCIIZ, ArcName))
  
  Function = %True
End Function

Test Extract Files with ChangeVol Callback Function

USES "CONSOLE"

#INCLUDE Once ".\Core\Enums.inc"
#INCLUDE Once ".\Core\Runtime.inc"
#Include Once ".\Core\RARArchive.inc"

Global lpszSampleFilePath As String

Global ArchiveData As RAROpenArchiveDataEx
Global HeaderData As RARHeaderDataEx

Global hRARArchiveHandle As Long
Global hUnRARProcCode As Long

lpszSampleFilePath = ".\TestFile\mexample.part1.rar"

ArchiveData.ArcNameW = Ascii2Unicode(lpszSampleFilePath)
ArchiveData.OpenMode = $RAR_OM_EXTRACT
ArchiveData.CmtBuf = ""
ArchiveData.CmtBufSize = 0

' ChangeVol Callback Function
Function UnRARChangeVolProc(ByVal ArcName As Long, Byval Mode As Integer) As Long
  Printl("ChangeVol: " . Peek$(ASCIIZ, ArcName))
  
  Function = %True
End Function

hRARArchiveHandle = RAROpenArchiveEx(ArchiveData)

If ArchiveData.OpenResult = $ERAR_SUCCESS Then
  RARSetChangeVolProc(hRARArchiveHandle, CodePtr(UnRARChangeVolProc))

  Printl("Source: " . lpszSampleFilePath)

  While RARReadHeaderEx(hRARArchiveHandle, HeaderData) = 0
    hUnRARProcCode = RARProcessFileW(hRARArchiveHandle, $RAR_TEST, "", "")
    
    Printl "Test File: " . HeaderData.FileNameW
  Wend
End If

RARCloseArchive(hRARArchiveHandle)

Console_Read()

Test Extract Files with ChangeVol Callback Function (UnRARWrapper)

USES "CONSOLE"

#INCLUDE Once ".\Core\Enums.inc"
#INCLUDE Once ".\Core\Runtime.inc"
#Include Once ".\Core\RARArchive.inc"
#Include Once ".\Core\UnRARWrapper.inc"

Dim UnRAR As UnRARArchive

Global lpszSampleFilePath As String

Global ArchiveData As RAROpenArchiveDataEx
Global HeaderData As RARHeaderDataEx

Global hRARArchiveHandle As Long
Global hUnRARProcCode As Long

lpszSampleFilePath = ".\TestFile\mexample.part1.rar"

ArchiveData.ArcNameW = Ascii2Unicode(lpszSampleFilePath)
ArchiveData.OpenMode = $RAR_OM_EXTRACT
ArchiveData.CmtBuf = ""
ArchiveData.CmtBufSize = 0

' ChangeVol Callback Function
Function UnRARChangeVolProc(ByVal ArcName As Long, Byval Mode As Integer) As Long
  Printl("ChangeVol: " . Peek$(ASCIIZ, ArcName))
  
  Function = %True
End Function

hRARArchiveHandle = UnRAR.OpenArchiveEx(ArchiveData)

If ArchiveData.OpenResult = $ERAR_SUCCESS Then
  Printl("Source: " . lpszSampleFilePath)
  
  UnRAR.SetChangeVolProc(hRARArchiveHandle, CodePtr(UnRARChangeVolProc))

  While UnRAR.ReadHeaderEx(hRARArchiveHandle, HeaderData) = 0
    hUnRARProcCode = UnRAR.ProcessFileW(hRARArchiveHandle, $RAR_TEST, "", "")
    
    Printl "Test File: " . HeaderData.FileNameW
  Wend
End If

UnRAR.CloseArchive(hRARArchiveHandle)

Console_Read()