软件工程

本类阅读TOP10

·PHP4 + MYSQL + APACHE 在 WIN 系统下的安装、配置
·Linux 入门常用命令(1)
·Linux 入门常用命令(2)
·使用 DCPROMO/FORCEREMOVAL 命令强制将 Active Directory 域控制器降级
·DirectShow学习(八): CBaseRender类及相应Pin类的源代码分析
·基于ICE方式SIP信令穿透Symmetric NAT技术研究
·Windows 2003网络负载均衡的实现
·一网打尽Win十四种系统故障解决方法
·数百种 Windows 软件的免费替代品列表
·收藏---行百里半九十

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
BCB里使用流Stream分割文件

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

 

现在很多分割文件程序的源代码是用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文件用于合并,很简单吧。

使用流合并文件也很简单,有兴趣的话联系我,我也刚接触流类。

小兵:[email protected]

 




相关文章

相关软件