BCB里使用流Stream分割文件

 

现在很多分割文件程序的源代码是用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://文件名
 tr