ich erhalte eine Fehlermeldung bei der ich nicht mehr weiter weiß.
In meinem Beispielcode funktioniert das Packen ohne Probleme, beim Entpacken erhalte ich die Meldung:
Description: Object has no method with this name
Operation: ExtractAll
Hier mein Beispielcode:
Code: Alles auswählen
function packen
//
LOCAL oZip := XbZLibZip():New(SLE_Z:getData())
if oZip:IsOpen(.t.)
if check_ex1:getData()
oZip:AddFile('Test1.dbf', Hauptpfad , '')
endif
if check_ex2:getData()
oZip:AddFile('Test2.dbf', Hauptpfad , '')
endif
endif
oZip:Close()
//
return .t.
#include "XbZ_Zip.ch"
function entpacken
//
LOCAL oZip := XbZLibZip():New('PeterTest.zip', XBZ_OPEN_READ)
oZip:ExtractAll('D:\Prg\')
oZip:Close()
//
return .t.