Xceed Logo
Shop
Xceed Zip for COM/ActiveX on x86/x64 Documentation
Example topics / Compress method example for Delphi
In This Topic
    Compress method example for Delphi
    In This Topic

    This example shows how to use the Compress and Uncompress methods. The example compresses (and for good measure, encrypts) some text from a string to an OleVariant variable, and then decrypts and decompresses it back. To try the example, place a button and an XceedCompression control on a form, and put the following code in the button's click event handler:

    Delphi Copy Code

    procedure TForm1.Button1Click(Sender: TObject);

    var

       CompressedData : OleVariant;
       OriginalData : OleVariant; 
       ResultCode : XcdError; 

    begin

       {Set the pasword to encrypt files with}
       XceedCompression1.EncryptionPassword := 'the password';  

       {Put the text to compress in a string variable}  
       OriginalData := 'This is some text to compress';  

       {Perform the compression} 
       XceedCompression1.License( 'your license key' );

       ResultCode := XceedCompression1.Compress(OriginalData,CompressedData,True);   

       {Check if it worked successfully}  
       if ResultCode <> 0 then 
          showmessage ('Error while Compressing. Error #'+inttostr(ResultCode));  

       {The EncryptionPassword property still contains the password so we can decrypt} 
       {and uncompress the data}

       ResultCode := XceedCompression1.Uncompress (CompressedData,OriginalData,True);  

       {Check if it worked successfully} 
       if ResultCode <> 0 then 
          showmessage ('Error while Decompressing. Error #' + inttostr(ResultCode)); 
    end; 
    end.

     

     

    © Xceed Software Inc. All Rights Reserved.

    Send comments on this topic.