DataProcess

DataProcess

DataProcess Callback Function

Function UnRARDataProcessProc(ByVal Addr As Long, Byval BufSize As Integer) As Long
  Printl("Proc: " . Peek$(ASCIIZ, Addr))
  
  Function = %True
End Function

Test Extract Files with DataProcess 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\example.rar"

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

' DataProcess Callback Function
Function UnRARDataProcessProc(ByVal Addr As Long, Byval BufSize As Integer) As Long
  Printl("Proc: " . Peek$(ASCIIZ, Addr))
  
  Function = %True
End Function

hRARArchiveHandle = RAROpenArchiveEx(ArchiveData)

If ArchiveData.OpenResult = $ERAR_SUCCESS Then
  RARSetProcessDataProc(hRARArchiveHandle, CodePtr(UnRARDataProcessProc))

  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 DataProcess 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\example.rar"

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

' DataProcess Callback Function
Function UnRARDataProcessProc(ByVal Addr As Long, Byval BufSize As Integer) As Long
  Printl("Proc: " . Peek$(ASCIIZ, Addr))
  
  Function = %True
End Function

hRARArchiveHandle = UnRAR.OpenArchiveEx(ArchiveData)

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

  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()