7-zip32.dll wrapper

[ts-soft]

This is a IncludeFile for 7-zip32.dll using static lib.

Unfortunately, I haven't found documentation (except in Japanese), but I
hope so, it's also useful

The folder-structure corresponds in the IncludePack used, 7-zip32.dll is in the
compilers subdirectory.
http://www.purebasic.fr/english/viewtop ... ncludepack

Example:

Code: Select all

XIncludeFile #PB_Compiler_Home + "Includes\7-zip32_Include.pbi"

Define.l HARC = SevenZipOpenArchive(0, #PB_Compiler_Home + "Includes\Libraries\sourcen\7-zip32.7z", #ARCEXTRACT_OPEN)
Define.INDIVIDUALINFO INFO

If HARC

  If Not SevenZipFindFirst.l(HARC, "*.*", @INFO)
    Debug INFO\szFileName

    While Not SevenZipFindNext(HARC, @INFO)
    
      Debug INFO\szFileName
      
    Wend
  EndIf
  SevenZipCloseArchive.l(HARC)
EndIf

The Not is the same as = 0

Download 336kb

Feedback and Bug-Reports welcome

Greetings
Thomas

[JCV]

Thanks. I might need this.

[ts-soft]

@JCV
You are welcome

Another small example to pack as 7z

Code: Select all

XIncludeFile #PB_Compiler_Home + "Includes\7-zip32_Include.pbi"

; this small programm makes a backup of purebasic with all subdirectories and files
; in the tempdir as 7z

Procedure BackUpPB()
  Protected Output.s = Space(255)
  Protected Destination.s = #DQUOTE$ + GetTemporaryDirectory() + "purebasic_bak" + #DQUOTE$
  Protected CmdLine$ =  "a -t7z -mx7 -ir!*.* " + Destination + " " + #DQUOTE$ + "*.*" + #DQUOTE$
  SetCurrentDirectory(#PB_Compiler_Home)
  If SevenZip(WindowID(0), CmdLine$, Output, 255) = 0
    ProcedureReturn #True
  EndIf
  Debug Output
  ProcedureReturn #False
EndProcedure

If OpenWindow(0, 0, 0, 140, 60, "PureBasic Backup", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
  If CreateGadgetList(WindowID(0))
    ButtonGadget(0, 30, 20, 80, 30, "Make Backup")
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
        Case #PB_Event_Gadget
          If EventGadget() = 0
            If BackUpPB()
              RunProgram("explorer.exe", "/e," + GetTemporaryDirectory(), ""); show the result
            EndIf
            Break
          EndIf
      EndSelect
    ForEver
  EndIf
EndIf

The Syntax is nearly the same as for the commandline-version of 7-Zip

[Psychophanta]

Thanks, i was waiting for 7z to be available for management with PB

[Inf0Byt3]

OMG! . ts-soft, I love you man! Thanks!

[Edit]
Can this be used in a commercial project?

[ts-soft]

Can this be used in a commercial project?

Is the same license as 7zip, LGPL, see copying.txt!
You can use in commercial projects!

[ts-soft]

Only one line changed to create a sfx-installer with passwort

Code: Select all

XIncludeFile #PB_Compiler_Home + "Includes\7-zip32_Include.pbi"

Procedure CreatePBSetup()
  Protected Output.s = Space(255)
  Protected Destination.s = #DQUOTE$ + GetTemporaryDirectory() + "purebasic_setup" + #DQUOTE$
  Protected CmdLine$ =  "a -sfx -mx7 -p -ir!*.* " + Destination + " " + #DQUOTE$ + "*.*" + #DQUOTE$
  SetCurrentDirectory(#PB_Compiler_Home)
  If SevenZip(WindowID(0), CmdLine$, Output, 255) = 0
    ProcedureReturn #True
  EndIf
  Debug Output
  ProcedureReturn #False
EndProcedure

If OpenWindow(0, 0, 0, 140, 60, "PureBasic Setup", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
  If CreateGadgetList(WindowID(0))
    ButtonGadget(0, 30, 20, 80, 30, "Make Setup")
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Break
        Case #PB_Event_Gadget
          If EventGadget() = 0
            If CreatePBSetup()
              RunProgram("explorer.exe", "/e," + GetTemporaryDirectory(), ""); show the result
            EndIf
            Break
          EndIf
      EndSelect
    ForEver
  EndIf
EndIf

[Inf0Byt3]

This is awesome! Been waiting for a very long time for this. Thank you for your efforts!

[ts-soft]

I have found an english API-Description:
http://www.csdinc.co.jp/archiver/lib/7-zip32api-en.txt

[ts-soft]

Small Update for unicode compatible

Changed some stringparameter to pseudotype ASCII
Some parameter as optional declared
In structures all strings as character defined! Read it with peeks!

[nrasool]

nice on Ts-Soft. Have you thought about putting this code and examples in your excellent PBOSL library?

[Dare]

Unix is user friendly... it's just selective about who its friends are!

lol.

Thanks for the 7-zip!

[dige]

is this project sill activ? the dl link is broken...

[ts-soft]

is this project sill activ?

No

the dl link is broken...

I think the DLL comes with PureFileMaster by Al90, or use the commandline-interface from 7zG.exe,
is easy to use.

[dige]

Could you pls put the old sources available again?