作者:  小兵 ([email protected])

現在很多分割文件程序的源代碼是用VC寫的，同樣將VC的代碼轉換成BCB也不是難事，但是BCB里封裝了很多類，操作起來更方便和容易。

這是我使用BCB使用TMemoryStream和TFileStream來做的分割文件程序。關鍵代碼也就十幾句。

首先放一個OpenDialog和Button，Edit，在Button的單擊事件里寫入如下代碼。

int   aim_size=0;
try
{
int Edit1_size=Edit1->Text.ToInt();
    aim_size=Edit1_size;
}
catch(...)
{return;}
int k_1024=1024*aim_size;
     if (!OpenDialog1->Execute())
          return;
     String file_name=OpenDialog1->FileName;

if(file_name=="")
Button2Click(Sender);
     if(!FileExists(file_name))  file://文件有效
     {ShowMessage("無效文件");
     return;}
     String file_path=ExtractFilePath(file_name);//文件路徑
  //   String file_ext =ExtractFileExt(file_name); file://文件后綴
     String file_Na =ExtractFileName(file_name); file://文件名
try
{
TMemoryStream* pms = new TMemoryStream();//原文件
pms->LoadFromFile(file_name);
  pms->Seek(0, soFromBeginning);//定位頭部
int sizemem=(pms->Size)/k_1024;//n K

    if(sizemem>999)
      {
      ShowMessage("文件超過預定數量,無法分割\n請將分割后文件擴大");
          return;

      }

String batfile="@echo off \r\ncopy /b ";  file://生成bat批處理文件的內容
String n_i="";
for(int i=0;i<sizemem;i++)
{
n_i=(String)i;
       n_i="00"+n_i;
       n_i=n_i.SubString(n_i.Length()-2,3);
       batfile=batfile+file_Na+"."+n_i+"+ ";

TMemoryStream* pms_i = new TMemoryStream();//目標文件

pms_i->CopyFrom(pms,k_1024);
pms_i->SaveToFile(file_Na+"."+n_i);
delete pms_i;
}

       n_i=(String)sizemem;
       n_i="00"+n_i;
       n_i=n_i.SubString(n_i.Length()-2,3);

TMemoryStream* pms_i = new TMemoryStream();//最后一個文件

pms_i->CopyFrom(pms,pms->Size-sizemem*k_1024);
pms_i->SaveToFile(file_path+file_Na+"."+n_i);
       batfile=batfile+file_Na+"."+n_i;
       batfile=batfile+" "+file_Na;

delete pms_i;
delete pms;
try
{
     TFileStream *Mybat;
    Mybat = new TFileStream(file_path+file_Na+".bat", fmCreate);
    char *bat=batfile.c_str();
    Mybat->WriteBuffer(bat,batfile.Length());
    delete Mybat;
  }
  catch(...)
  {}

ShowMessage("文件分割成功");
  }
  catch(...)
  {ShowMessage("文件分割出現錯誤");
  }

file://代碼中還生成了一個.bat文件用于合并，很簡單吧。

使用流合并文件也很簡單，有興趣的話聯系我，我也剛接觸流類。