frmsplitunit.cpp

适合初学者学习以及程序员回顾

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

#include <vcl.h>
#pragma hdrstop

#include "frmSplitUnit.h"
#include <FileCtrl.hpp>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmSplit *frmSplit;
//---------------------------------------------------------------------------
__fastcall TfrmSplit::TfrmSplit(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

__fastcall TfrmSplit::TfrmSplit(FileCutMerge * pObj, TComponent * Owner)
        : TForm(Owner)
{
        //构造函数，初始化滑块的刻度，传递FileCutMerge对象的指针
        TrackBar1->Max =pObj->GetPackageSize() /1024; //以K作为单位
        TrackBar1->Min=10;
        TrackBar1->Position = TrackBar1->Max /2;
        lblSize->Caption="每个文件"+IntToStr(TrackBar1->Max /2)+" K,约可分为两个文件";
        edtFilePath->Text ="c:\\";
        edtFileName->Text ="MyPackage";
        pFileCutMerge=pObj;

}
void __fastcall TfrmSplit::TrackBar1Change(TObject *Sender)
{
        int Filenum=(TrackBar1->Max)/(TrackBar1->Position);

        lblSize->Caption="每个文件"+IntToStr(TrackBar1->Position)+" K，约可划分为"+IntToStr(Filenum+1)+"个文件";
}
//---------------------------------------------------------------------------



void __fastcall TfrmSplit::btnExitClick(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------

void __fastcall TfrmSplit::btnBeginSplitClick(TObject *Sender)
{
        if(FileExists(edtFilePath->Text+"\\"+edtFileName->Text+".jxl_0"))
        {
                ShowMessage(edtFileName->Text+"文件已存在,请另选一个文件名" );
                edtFileName->SelectAll ();
                edtFileName->SetFocus ();
                return;
        }
        Screen->Cursor=crHourGlass;
        bool ret=pFileCutMerge->SplitFile(edtFileName->Text,edtFilePath->Text,TrackBar1->Position*1024);
        Screen->Cursor=crDefault;
        if(ret)
        {
                ShowMessage("文件分割成功");
                Close();
        }
        else
        {
                ShowMessage("文件分割成功失败");
        }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSplit::btnSavePathClick(TObject *Sender)
{
        String Dir;
        bool ret=SelectDirectory(Dir, TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,0);
        if(ret)
          edtFilePath->Text =Dir;


}
//---------------------------------------------------------------------------