PROMO

PROMO
HOSTING NO 1 INDONESIA

Google Analityc Experiment

Membuat Aplikasi kompresi TAR

Delphi juga bisa digunakan untuk membuat aplikasi kompresi file dengan extention TAR,
kelebihan extention TAR
 Lebih kecil hasil kompresinya

Berikut source code contoh pembuatan aplikasi kompresi TAR dengan Delphi

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.

tar :=
TChilkatTar.Create(Self);

// Any string automatically begins a fully-functional 30-day trial.
success := tar.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(tar.LastErrorText);
    Exit;
  end;

// The TAR component will produce a GNU tar 1.13.x format
// archive by default.
// It is also possible to create PAX -- POSIX 1003.1-2001 format
// or USTAR -- POSIX 1003.1-1988 format.
// Set the WriteFormat property to "gnu", "pax", or "ustar" to
// choose the output TAR format:
tar.WriteFormat := 'gnu';

// Add a directory tree to be included in the output TAR archive:
success := tar.AddDirRoot('/Users/chilkat/temp/abc123');
if (success <> 1) then
  begin
    Memo1.Lines.Add(tar.LastErrorText);
    Exit;
  end;

// Create the compressed TAR archive.
// Note: You may use UNC paths, absolute, or relative paths.
success := tar.WriteTarGz('/Users/chilkat/testData/tar/abc123.tgz');
if (success <> 1) then
  begin
    Memo1.Lines.Add(tar.LastErrorText);
    Exit;
  end;

ShowMessage('Success.');
end;

Komponen yang dipakai, download disini

http://www.chilkatsoft.com/download/TarActiveX-9.4.0-win32.msi
http://www.chilkatsoft.com/download/ChilkatActiveX-9.4.0-win32.zip
http://www.chilkatsoft.com/download/ChilkatActiveX-9.4.0-x64.zip
 

Tidak ada komentar:

Baca Juga