Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Untar a .tar.gz (.tgz) Compressed ArchiveUntar a .tar.gz (.tgz) GZIP compressed archive.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATXMPLib_TLB, CHILKATTARLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var tar: TChilkatTar; success: Integer; begin // Important: It is helpful to send the contents of the // tar.LastErrorText property when requesting support. // Untar a .tar archive. tar := TChilkatTar.Create(Self); // Any string automatically begins the 30-day trial. success := tar.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin Memo1.Lines.Add(tar.LastErrorText); Exit; end; // Untar into c:/temp/untarDir. The directory tree(s) contained // within the TAR archive will be re-created rooted at this // directory. tar.UntarFromDir := '/Users/chilkat/temp/untarDir'; // If any filepaths within the Tar archive are absolute, // automatically make them relative by removing the first // forward or backward slash. This protects from untarring // files to unexpected locations. tar.NoAbsolutePaths := 1; success := tar.UntarGz('/Users/chilkat/testData/tar/abc123.tar.gz'); if (success <> 1) then begin Memo1.Lines.Add(tar.LastErrorText); end else begin Memo1.Lines.Add('Success'); end; end; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.