CBuilderXE와 함께 IdCompressZlib 구성 요소를 사용하는 방법

Question

IdCompressZlib 구성 요소를 CBuilderXE, 과 함께 사용해야하지만 그 주제에 대한 설명서 나 예제를 찾지 못했습니다. 나는 실험을 통해 그것을 사용하려고 시도했다.

누군가가 저의 구성 요소를 사용하는 방법이나 그러한 주제에 유용한 몇 가지 예를 게시 할 수 있습니까?

업데이트 : Belowe I가 errore을 제공 tryed하고있는 샘플 코드 -5 메소드 InflateStream가 호출 :

int err; 
String Fun = "[TestCompress] ", s1, zipString, strTest = "The 'zlib' compression library provides in-memory compression \ 
and decompression functions, including integrity checks of the uncompressed data. \ 
This version of the library supports only one compression method (deflation) \ 
but other algorithms will be added later and will have the same stream interface. "; 

TStringStream * inpStream = NULL, *outStream = NULL; 
TMemoryStream * stream1 = NULL, *stream2 = NULL; 

stream1 = new TMemoryStream(); 
stream2 = new TMemoryStream(); 

inpStream = new TStringStream(); 
outStream = new TStringStream(); 

inpStream->Clear(); 
inpStream->WriteString(strTest); 
stream1->LoadFromStream(inpStream); 
stream1->Position = 0; 

IdCompressorZLib1->InflateStream(stream1, stream2); 

outStream->Clear(); 
stream2->SaveToStream(outStream); 
zipString = outStream->DataString; 

MyLog(Fun + Format("Compress test: Compress size from [%d] to [%d]", 
     ARRAYOFCONST((strTest.Length(), zipString.Length())))); 

Answer 1

당신은 간단한 문자열을 압축 해제 할 수 없습니다!
오류 : (-5) InflateStream 첫 번째 바이트 수는 다음과 같아야합니다. zlib: 78 01 or 78 9C or 78 DA
오류 : (-3) InflateStream은 처음부터 바이트 수 (78 01)를 찾았지만 길이는 일치하지 않습니다.
strTest의 첫 번째 바이트는 "Th"입니다.

는 debug 폴더 2 개 파일

test2.dat 및 TEST.DAT가 프로그램을 실행 한 후 RAD (2010 Indy10을 테스트) 다음 코드

void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 

String strTest = "The 'zlib' compression library provides in-memory compression \ 
and decompression functions, including integrity checks of the uncompressed data. \ 
This version of the library supports only one compression method (deflation) \ 
but other algorithms will be added later and will have the same stream interface. "; 

TStringStream * inpStream = NULL; 
TMemoryStream * stream1 = NULL, *stream2 = NULL, *stream3 = NULL; 

stream1 = new TMemoryStream(); 
stream2 = new TMemoryStream(); 
stream3 = new TMemoryStream(); 

inpStream = new TStringStream(); 


inpStream->Clear(); 
inpStream->WriteString(strTest); 
stream1->LoadFromStream(inpStream); 
stream1->Position = 0; 

// first compress stream1 with Level 1 
IdCompressorZLib1->DeflateStream(stream1,stream2,1); 

stream2->SaveToFile("test.dat"); 
stream3->LoadFromFile("test.dat"); 
stream2->Position = 0; 
// Now decompress stream3 
IdCompressorZLib1->InflateStream(stream3,stream2); 
stream2->SaveToFile("test2.dat"); 

} 

으로 시도 몇 바이트 TEST.DAT

(크기 190) 몇 바이트 test2.dat

xUQnÃ0C¯Â¿¶@× ... (Hex 78 01 55 8F 51 6E C3 ...) 

(크기 306 당신 Belowe)

The 'zlib' compression library provides in-memory compression and dec ... 

Answer 2

는 작업 샘플을 제안

에 대한 모두에게 감사를 찾을 수

void __fastcall TFormMain::btnTestIdCompressClick(TObject * Sender) 
{ 
    int err; 
    String Fun = "[TestIdCompress] ", s1, zipString, strTest = "The 'zlib' compression library provides in-memory compression \ 
    and decompression functions, including integrity checks of the uncompressed data. \ 
    This version of the library supports only one compression method (deflation) \ 
    but other algorithms will be added later and will have the same stream interface. "; 

    TStringStream * inpStream = NULL, *outStream = NULL; 
    TMemoryStream * stream1 = NULL, *stream2 = NULL; 

    try 
    { 
     MyLog("--------------------------------------"); 
     MyLog(Fun + Format("Original msg : size=[%d] data=[%s]", ARRAYOFCONST((strTest.Length(), strTest)))); 

     stream1 = new TMemoryStream(); 
     stream2 = new TMemoryStream(); 

     inpStream = new TStringStream(); 
     outStream = new TStringStream(); 

     inpStream->Clear(); 
     inpStream->WriteString(strTest); 
     stream1->LoadFromStream(inpStream); 
     stream1->Position = 0; 

     IdCompressorZLib1->DeflateStream(stream1, stream2, 1); 

     outStream->Clear(); 
     stream2->SaveToStream(outStream); 
     zipString = outStream->DataString; 

     MyLog("--------------------------------------"); 
     MyLog(Fun + Format("Compressed msg : size=[%d] data=[%s]", ARRAYOFCONST((zipString.Length(), zipString)))); 

     inpStream->Clear(); 
     inpStream->WriteString(zipString); 
     stream1->LoadFromStream(inpStream); 
     stream1->Position = 0; 

     stream2->Position = 0; 
     // Now decompress stream3 
     IdCompressorZLib1->InflateStream(stream1, stream2); 
     outStream->Clear(); 
     stream2->SaveToStream(outStream); 
     s1 = outStream->DataString; 
     MyLog("--------------------------------------"); 
     MyLog(Fun + Format("Decompressed msg : size=[%d] data=[%s]", ARRAYOFCONST((s1.Length(), s1)))); 

    } 
    __finally 
    { 
     if (stream1) 
     { 
      stream1->Clear(); 
      delete stream1; 
      stream1 = NULL; 
     } 
     if (stream2) 
     { 
      stream2->Clear(); 
      delete stream2; 
      stream2 = NULL; 
     } 
     if (inpStream) 
     { 
      inpStream->Clear(); 
      delete inpStream; 
      inpStream = NULL; 
     } 
     if (outStream) 
     { 
      outStream->Clear(); 
      delete outStream; 
      outStream = NULL; 
     } 
    } 

}