Unpack(Path: String);
Unpack(Path: String);
Path. Путь к папке, в которую необходимо распаковать архив.
Метод Unpack распаковывает архив в указанную папку на диске.
Для выполнения примера предполагается наличие на диске архива «D:\Work\Archives\Data.zip».
Добавьте ссылку на системную сборку IO. При работе в Fore.NET добавьте ссылку на сборку ForeIO.
Sub UserProc;
Var
ZIP: IZipArchive;
Begin
//Чтение архива
ZIP := New ZipArchive.Create("D:\Work\Archives\Data.zip", ZipMode.Read);
//Распаковка архива
ZIP.Unpack("D:\Work\NewFolder");
Dispose ZIP;
End Sub UserProc;
Imports Prognoz.Platform.Interop.ForeIO;
Public Shared Sub Main(Params: StartParams);
Var
ZIP: IZipArchive = New ZipArchiveClass();
Begin
//Чтение архива
ZIP.Create("D:\Work\Archives\Data.zip", ZipMode.zmRead, ZipCompressionLevel.zcDefaultCompression);
//Распаковка архива
ZIP.Unpack("D:\Work\NewFolder");
System.Runtime.InteropServices.Marshal.ReleaseComObject(ZIP);
End Sub;
При выполнении примера архив будет распакован в указанную папку.
См. также: