procedure TForm1.Button2Click(Sender: TObject);
var cs :TCompressionStream;
    ms :TMemoryStream;
    pc :PChar;
    buffer :PCHar;
    i :integer;
begin
  pc := ‘Test123456‘;
  ms := TMemoryStream.Create;
  cs := TCompressionStream.Create(clMax, ms); // (clNone, clFastest, clDefault, clMax);
  cs.Write(pc[0], strlen(pc));
  cs.Free;
  Memo1.Lines.Add(‘-->‘+inttostr(ms.size));

  GetMem(buffer, ms.size);
  ms.Read(buffer[0], ms.size);

  for i:=0 to ms.size do
    Memo1.Lines.Add(inttostr(integer(buffer[i])));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  zip: TVclZip;
  compr: string;
  data: PChar;
  txt :PChar;
  arr :array[0..256] of byte;
  iOut :integer;
  p :pointer;
  i :integer;
begin
  txt := ‘Test123456‘;
  iOut := 0;
  zip := TVclZip.Create(nil);
  for i:=0 to 17 do
    Memo1.Lines.Add(inttostr(integer(arr[i])));
    
  p := nil;
  zip.ZLibCompressBuffer(txt, strlen(txt), p, iOut);
  zip.Free;

  Memo1.Lines.Add(‘-->‘+inttostr(iOut));

  for i:=0 to iOut-1 do
    Memo1.Lines.Add(inttostr(integer(PChar(p)[i])));
end;

package str;

import java.io.ByteArrayOutputStream;
import java.sql.ResultSet;
import java.util.zip.DeflaterOutputStream;
import java.util.zip.GZIPOutputStream;
import java.util.zip.InflaterOutputStream;

public class TstrTest
{
    public static void main(String[] args) throws Exception
    {
//        String str = "退出";
//        
//        byte[] bytesGBK = str.getBytes("gbk");
//        for (int i=0; i<bytesGBK.length; i++)
//            System.out.print(String.format("%02X ", bytesGBK[i]));
//        System.out.println();
//        
//        byte[] bytesUTF8 = str.getBytes("utf-8");
//        for (int i=0; i<bytesUTF8.length; i++)
//            System.out.print(String.format("%02X ", bytesUTF8[i]));
        
        ByteArrayOutputStream bao = new ByteArrayOutputStream();
        //InflaterOutputStream ios = new InflaterOutputStream(bao);
        DeflaterOutputStream dos = new DeflaterOutputStream(bao);
        String str = "Test123456";
        dos.write(str.getBytes("iso-8859-1"));
        dos.close();
        byte[] bytes = bao.toByteArray();
        
        for (int i=0; i<bytes.length; i++)
            System.out.println(i+" : " + ((int)bytes[i] & 0xFF));
        //SevenZArchiveEntry ss;
        
        System.out.println();
        bytes = Compress(str.getBytes("iso-8859-1"));
        for (int i=0; i<bytes.length; i++)
            System.out.println(i+" : " + ((int)bytes[i] & 0xFF));
    }
    
    public static byte[] Compress(byte[] _bytes) throws Exception
    {
        if (_bytes == null || _bytes.length == 0)
            return null;
        ByteArrayOutputStream out = new ByteArrayOutputStream();
        GZIPOutputStream gzip = new GZIPOutputStream(out);
        gzip.write(_bytes);
        gzip.close();
        return out.toByteArray();
    }
}