开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：3k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TForm1::DoCutFile(AnsiString sfilename,AnsiString dfilename)
  17. {
  18.   int sfile,count;
  19.   int rt;
  20. //打开文件
  21.   sfile=FileOpen(sfilename,fmOpenRead);
  22.   if(sfile==-1)return;
  25.   count=1;
  26.   do{
  27.     rt=CopyOne(sfile,dfilename,count);
  28.     count++;
  29.   }while(rt==0);
  31.   FileClose(sfile);
  32.   Application->MessageBox("文件分割完毕！","提示",MB_OK);
  33. }
  34. //---------------------------------------------------------------------------
  35. int __fastcall TForm1::CopyOne(int sfile,AnsiString dfilename,int no)
  36. {
  37.   char * MyBuff;
  38.   int rt;
  39.   AnsiString ass;
  40.   int bn,ii,nn;
  42.   MyBuff=new char[10010];
  43.   if(MyBuff==NULL)
  44.   {
  45.     Application->MessageBox("系统内存不够！","提示",MB_OK);
  46.     return -1;
  47.   }
  49.   ass="生成第 "+IntToStr(no)+" 个分割文件";
  50.   Application->MessageBox(ass.c_str(),"提示",MB_OK);
  51.   while(!TestDiskFree())
  52.   {
  53.     ass="磁盘空间不够!n要求空间为1,400,300字节！n继续吗？";
  54.     bn=Application->MessageBox(ass.c_str(),"提示",MB_YESNO);
  55.     if(bn!=IDYES)return -1;
  56.   }
  57.   bn=FileCreate(dfilename+"."+IntToStr(no));
  58.   rt=0;
  59.   for(ii=0;ii<140;ii++)
  60.   {
  61.     nn=FileRead(sfile,MyBuff,10000);
  62.     FileWrite(bn,MyBuff,nn);
  63.     if(nn!=10000)
  64.     {
  65.       rt=1;
  66.       break;
  67.     }
  68.   }
  69.   FileClose(bn);
  70.   delete MyBuff;
  71.   return rt;
  72. }
  73. //---------------------------------------------------------------------------
  74. bool __fastcall TForm1::TestDiskFree(void)
  75. {
  76.   __int64 ll;
  77.   ll=DiskFree(0);
  78.   if(ll<1403000L)return False;
  79.   else return True;
  80. }
  81. //---------------------------------------------------------------------------
  83. void __fastcall TForm1::Button1Click(TObject *Sender)
  84. {
  85.   if(OpenDialog1->Execute())
  86.   {
  87.     Edit1->Text=OpenDialog1->FileName;
  88.   }
  89. }
  90. //---------------------------------------------------------------------------
  92. void __fastcall TForm1::Button2Click(TObject *Sender)
  93. {
  94.   int ll,ii;
  95.   AnsiString ass;
  96.   if(SaveDialog1->Execute())
  97.   {
  98.     Edit2->Text=SaveDialog1->FileName;
  99.     ass=Edit2->Text;
  100.     ll=ass.Length();
  101.     for(ii=ll;ii>0;ii--)
  102.     {
  103.       if(ass.SubString(ii,1)==".")
  104.       {
  105.         ass=ass.SubString(1,ii-1);
  106.         Edit2->Text=ass;
  107.         break;
  108.       }
  109.     }
  110.   }
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TForm1::Button3Click(TObject *Sender)
  114. {
  115.   DoCutFile(Edit1->Text,Edit2->Text);
  116. }
  117. //---------------------------------------------------------------------------