umain.cpp

用于Delphi和BCB的高速压缩组件库

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "uMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "FlexCompress"
#pragma resource "*.dfm"
TfmMain *fmMain;
//---------------------------------------------------------------------------
__fastcall TfmMain::TfmMain(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::bnStartClick(TObject *Sender)
{
 TFXCArchiveItem ArchiveItem;
 TListItem *ListItem;
 int FileDate;

 ListView->Items->Clear();
 Archiver->FileName = "Archive\\test.fxc";

 // Open existing archive file
 Archiver->OpenArchive(fmOpenRead);

 // Search text files stored inside the archive
 if (Archiver->FindFirst("*.*",ArchiveItem,faAnyFile-faDirectory))
  do
  {
    // Add file name
    ListItem = ListView->Items->Add();
    ListItem->Caption = ArchiveItem.FileName;

    // Add modification date
    FileDate = (ArchiveItem.LastModFileDate << 16) +
							 ArchiveItem.LastModFileTime;
    ListItem->SubItems->Add(DateToStr(
 	   	 				 FileDateToDateTime(FileDate)));

    // Add file size
    ListItem->SubItems->Add(IntToStr(ArchiveItem.UncompressedSize));

    // Add compression rate
    TVarRec v[] = {ArchiveItem.CompressionRate};
    ListItem->SubItems->Add(Format("%f",v,ARRAYSIZE(v)-1)+" %");

    // Add compressed file size
    ListItem->SubItems->Add(IntToStr(ArchiveItem.CompressedSize));

    // Add file path
    ListItem->SubItems->Add(ArchiveItem.StoredPath);
 }
 while (Archiver->FindNext(ArchiveItem));

 // Close the archive
 Archiver->CloseArchive();
}
//---------------------------------------------------------------------------
void __fastcall TfmMain::BitBtn2Click(TObject *Sender)
{
 Close();	
}
//---------------------------------------------------------------------------