PureBoard

Code: Alles auswählen

;Modified version of Oryaaa's 7zip code - http://www.purebasic.fr/english/viewtopic.php?p=181484#181484

DataSection
zip:
IncludeBinary "7za.exe"
zip_e:
EndDataSection

Procedure.b SevenZip_Archive(archive.s, target.s, compression.b=9)
  Protected file.l , param.s , zip_Run.l , runfile.s
  
  ;Check if archive path is a folder
  directory$ = GetPathPart(archive)
  ExamineDirectory(0, directory$, "*.*")
  
  If Not IsDirectory(0)
    MakeSureDirectoryPathExists_(@directory$)
     ;CreateDir(directory$)
  EndIf
  
  param.s = "a -mx=" + Str(Compression) + " " + Chr(34) + archive + Chr(34) + " " + Chr(34) +target+ Chr(34)

  runfile.s = GetTemporaryDirectory() + Str(Date()) + "\7za.exe"
  CreateDirectory(GetPathPart(runfile))
  file.l = CreateFile(#PB_Any, runfile)
  
  If file
    WriteData(file, ?zip, ?zip_e-?zip)
    CloseFile(file)
    workingdir$=GetPathPart(Archive)
    zip_Run = RunProgram(runfile, param,workingdir$, #PB_Program_Open|#PB_Program_Hide)
    While ProgramRunning(zip_Run)
      Delay(10)
    Wend
    Debug ProgramExitCode(zip_Run) ; Fehlermeldung : 0=OK - 1=unvollständig - 2=Fatal - 7=Command line error - 8 zu wenig Memory - 255=User stoppt Prozess
    CloseProgram(zip_Run)
    
    Repeat
       Result = DeleteDirectory(GetPathPart(runfile),"")
    Until Result <> 0
    
    ProcedureReturn #True 
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

quell_dateipfad$="C:\Dokumente und Einstellungen\"+GetEnvironmentVariable("USERNAME")+"\desktop\"+"test" ; Dateipfad zum Desktop

Debug SevenZip_Archive(quell_dateipfad$+".zip",quell_dateipfad$,9)

Code: Alles auswählen

;Modified version of Oryaaa's 7zip code - http://www.purebasic.fr/english/viewtopic.php?p=181484#181484

DataSection
zip:
IncludeBinary "7za.exe"
zip_e:
EndDataSection

Procedure.b SevenZip_Archive(archive.s, target.s, compression.b=9)
  Protected file.l , param.s , zip_Run.l , runfile.s
  
  ;Check if archive path is a folder
  directory$ = GetPathPart(archive)
  ExamineDirectory(0, directory$, "*.*")
  
  If Not IsDirectory(0)
    MakeSureDirectoryPathExists_(@directory$)
     ;CreateDir(directory$)
  EndIf
  
    param.s = "x -o" +  Chr(34) +target+ Chr(34)+ Chr(34) + archive + Chr(34) ;wichtig !! kein Space hinter dem -o

  runfile.s = GetTemporaryDirectory() + Str(Date()) + "\7za.exe"
  CreateDirectory(GetPathPart(runfile))
  file.l = CreateFile(#PB_Any, runfile)
  
  If file
    WriteData(file, ?zip, ?zip_e-?zip)
    CloseFile(file)
    workingdir$=GetPathPart(Archive)
    zip_Run = RunProgram(runfile, param,workingdir$, #PB_Program_Open)
    While ProgramRunning(zip_Run)
      
      While AvailableProgramOutput(zip_Run)
        Debug ReadProgramString(zip_Run)
      Wend
      
    Wend
    Debug ProgramExitCode(zip_Run) ; Fehlermeldung : 0=OK - 1=unvollständig - 2=Fatal - 7=Command line error - 8 zu wenig Memory - 255=User stoppt Prozess
    CloseProgram(zip_Run)
    
    Repeat
       Result = DeleteDirectory(GetPathPart(runfile),"")
    Until Result <> 0
    
    ProcedureReturn #True 
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

quell_dateipfad$=GetHomeDirectory()+"\desktop" ; Dateipfad zum Desktop
Debug quell_dateipfad$+".zip"
Debug quell_dateipfad$

Debug SevenZip_Archive(quell_dateipfad$+".zip",quell_dateipfad$,9)

Code: Alles auswählen

Procedure create_batch(source$,target$,command$)
  
     Protected result

     result= CreateFile (0, GetTemporaryDirectory()+"quickaes256.bat") ; Batch Datei in Temp Ordner erzeugen
  
  If result
 
    ; Falls Leerzeichen im Pfadnamen sind, muß dieser mit doppelten Anführungszeichen eingefaßt sein
    ; 7za ist die stand alone Version von 7zip
    ; 7a ist Bestandteil der Desktop Version
    ; Command String durch einfache Hochkomma lesbarer machen 

      command$=ReplaceString(command$, "''",Chr(34))

      WriteString (0, command$)
  
      Debug command$
  
      CloseFile (0) ; schließen der zuvor geöffneten Datei und damit endgültiges Abspeichern der Daten
    Else
      MessageRequester (" Information "," Konnte Datei nicht erstellen !")
  EndIf
    
    ProcedureReturn result
 
  EndProcedure
  
  ;-----------------------------------------------------------------------
  
  quell_dateipfad$=GetHomeDirectory()+"desktop"

  source$=quell_dateipfad$+"\"+"test.7z"
  
  target$=quell_dateipfad$+"\"+"test\*.*"

; ------- Ein paar beliebig erweiterbare Beispiele ---------
  
 ; command$="7za a -t7z ''''"+source$+"'''' ''''"+target$+"''''" ; Archiv packen
 ; -------
 ; 7z x test.zip -aoa
   command$="7za e ''''"+source$+"''''"+" -aoa" ; Archiv auspacken
 ;--------
   ;target$=quell_dateipfad$+"\"+"test" ; Archiv auspacken
  ; command$="7za x ''''"+source$+"''''"+" -o''''"+target$+"''''" ; Archiv auspacken
 ;-------
 ; zB. Packen    : 7za l "Archive.7z"
 ; zB. Entpacken : 7za e "Archive.7z" "Ziel"
;--------

  Debug source$
  Debug target$
  
  Debug create_batch(source$, target$, command$)