[Delphi] XE2에서 Zip으로 압축하고 압축풀기

예전 버전들에서는 압축 관련 작업할때

1. 7zip dll
http://www.progdigy.com/?page_id=13 

2. TSevenZipVCL
http://www.rg-software.de/rg/index.php?option=com_content&task=view&id=29&Itemid=51 

3. SynZip
http://synopse.info/forum/viewtopic.php?pid=163 

JCL에도 있다는데 이것저것 깔리는게 많으니 패쓰~





Delphi XE2버전에는 Zip라이브러리가 포함되어 있다.

사용예를 보자면

1. uses추가
  uses에 System.Zip을 추가한다.


2. 압축하기


3. 압축풀기




압축이나 해제시 스트림이나 바이트 배열도 지원해서 사용하기는 편리한데 압축/해제 Progress를 Notify할 수 있는 프로퍼티가 없다.

소스가 다 있으니 프로퍼티 추가해서 써도 같기도 하고 -_-;;

뭐 다음 버전에 추가되리라 믿어야지.

우선은 큰 파일 말고 작은 파일 처리할때 써야 할 듯 하다.

추가로 Encryption 관련 부분도 없다 -_-;;;