7-zip32.dll wrapper

ts-soft · **Posted:** Wed Mar 28, 2007 2:20 am

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:

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 :wink:

Download 336kb

Feedback and Bug-Reports welcome

Greetings
Thomas

JCV · **Posted:** Wed Mar 28, 2007 5:11 am

Thanks. I might need this.

ts-soft · **Posted:** Wed Mar 28, 2007 5:56 am

@JCV
You are welcome

Another small example to pack as 7z

Code:

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 · **Posted:** Wed Mar 28, 2007 7:33 am

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

Inf0Byt3 · **Posted:** Wed Mar 28, 2007 12:11 pm

OMG!

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

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

ts-soft · **Posted:** Wed Mar 28, 2007 2:44 pm

Inf0Byt3 wrote:

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 · **Posted:** Wed Mar 28, 2007 3:12 pm

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

Code:

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 · **Posted:** Wed Mar 28, 2007 7:40 pm

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

ts-soft · **Posted:** Wed Mar 28, 2007 8:08 pm

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

ts-soft · **Posted:** Thu Mar 29, 2007 6:16 pm

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 · **Joined:** Tue Apr 26, 2005 9:55 am **Posts:** 28

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

Dare · **Posted:** Mon Apr 16, 2007 3:25 pm

ts-soft wrote:

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

lol.

Thanks for the 7-zip!

dige · **Posted:** Tue Jun 01, 2010 2:39 pm

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

ts-soft · **Posted:** Tue Jun 01, 2010 3:55 pm

dige wrote:

is this project sill activ?

No

dige wrote:

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 · **Posted:** Wed Jun 02, 2010 7:31 am

Could you pls put the old sources available again?

PureBasic Forum

7-zip32.dll wrapper

Who is online