PureBoard

Code: Alles auswählen

; Prototypen.

Prototype SevenZipOpenArchive(Arg1.i, Arg2$, Arg3.i)
Prototype SevenZipFindFirst(Arg1.i, Arg2$, Arg3.i)
Prototype SevenZipFindNext(Arg1.i, Arg2.i)
Prototype SevenZipCloseArchive(Arg1.i)
Prototype SevenZip(Arg1.i, Arg2$, Arg3$, Arg4.i)
Prototype SevenZipGetAttribute(Arg1.i)
Prototype SevenZipGetVersion()
Prototype SevenZipGetSubVersion()

Structure SEVENZIPINFO
  dwOriginalSize.i
  dwCompressedSize.i
  dwCRC.i
  uFlag.i
  uOSType.i
  wRatio.w
  wDate.w
  wTime.w
  szFileName.c[#MAX_PATH+1]
  dummy1.c[3]
  szAttribute.c[8]
  szMode.c[8]
EndStructure

SEVENINFO.SEVENZIPINFO
Dll$="c:\FastBackup\7-zip_DLL\7-zip64.dll"
ZipFile$="c:\Downloads\disk-activity-indicator.zip"

If OpenLibrary(0, Dll$)
  SevenZipOpenArchive.SevenZipOpenArchive = GetFunction(0, "SevenZipOpenArchive")
  SevenZipFindFirst.SevenZipFindFirst = GetFunction(0, "SevenZipFindFirst")
  SevenZipFindNext.SevenZipFindNext = GetFunction(0, "SevenZipFindNext")
  SevenZipCloseArchive.SevenZipCloseArchive = GetFunction(0, "SevenZipCloseArchive")
  HARC.i = SevenZipOpenArchive(0, ZipFile$, 0)
  If HARC
    state = SevenZipFindFirst(HARC, "", @SEVENINFO)
    While state = 0
      a$=PeekS(@SEVENINFO\szFileName)

Debug a$

      size=SEVENINFO\dwOriginalSize & $FFFFFFFF
      state = SevenZipFindNext(HARC, @SEVENINFO)
    Wend
    SevenZipCloseArchive(HARC)
  EndIf
  CloseLibrary(0)
EndIf

Code: Alles auswählen

; Prototypen.

Structure tagINDIVIDUALINFO
    dwOriginalSize.l
    dwCompressedSize.l
    dwCRC.l
    uFlag.l
    uOSType.l
    wRatio.i
    wDate.i
    wTime.i
    *szFilename
    *dummy1
    *szAttribute
    *szMode
  EndStructure

Prototype SevenZipOpenArchive(Arg1.l, Arg2.p-utf8, Arg3.l)
Prototype SevenZipFindFirst(Arg1.l, Arg2.p-utf8, *Arg3.tagINDIVIDUALINFO)
Prototype SevenZipFindNext(Arg1.l, *Arg2.tagINDIVIDUALINFO)
Prototype SevenZipCloseArchive(Arg1.l)
Prototype SevenZip(Arg1.l, Arg2.p-utf8, Arg3.p-utf8, Arg4.l)
Prototype SevenZipGetAttribute(Arg1.l)
Prototype SevenZipGetVersion()
Prototype SevenZipGetSubVersion()

Structure SEVENZIPINFO
  dwOriginalSize.i
  dwCompressedSize.i
  dwCRC.i
  uFlag.i
  uOSType.i
  wRatio.w
  wDate.w
  wTime.w
  szFileName.c[#MAX_PATH+1]
  dummy1.c[3]
  szAttribute.c[8]
  szMode.c[8]
EndStructure

SEVENINFO.SEVENZIPINFO
Dll$="7-zip64.dll"
ZipFile$="test.zip"

If OpenLibrary(0, Dll$)
  SevenZipOpenArchive.SevenZipOpenArchive = GetFunction(0, "SevenZipOpenArchive")
  SevenZipFindFirst.SevenZipFindFirst = GetFunction(0, "SevenZipFindFirst")
  SevenZipFindNext.SevenZipFindNext = GetFunction(0, "SevenZipFindNext")
  SevenZipCloseArchive.SevenZipCloseArchive = GetFunction(0, "SevenZipCloseArchive")
  HARC.i = SevenZipOpenArchive(0, ZipFile$,0)
  If HARC
    state = SevenZipFindFirst(HARC, "", @SEVENINFO)
    While state = 0
      a$=PeekS(@SEVENINFO\szFileName, -1, #PB_UTF8)

      Debug a$

      size=SEVENINFO\dwOriginalSize & $FFFFFFFF
      state = SevenZipFindNext(HARC, @SEVENINFO)
    Wend
    SevenZipCloseArchive(HARC)
  EndIf
  CloseLibrary(0)
EndIf