VC语言

本类阅读TOP10

·VC++ 学习笔记(二)
·用Visual C++打造IE浏览器(1)
·每个开发人员现在应该下载的十种必备工具
·教你用VC6做QQ对对碰外挂程序
·Netmsg 局域网聊天程序
·Windows消息大全
·VC++下使用ADO编写数据库程序
·VC++学习笔记(四)
·非法探取密码的原理及其防范
·怎样在VC++中访问、修改注册表

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
关于文件复制的程序代码(C++Builder)

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

这是一个关于文件拷贝的例程,希望有人可以用上,不用再摸索了。

#include <stdio.h>
#include <sys\stat.h>

bool ForceExist;
const bufsize = 409600; //基本单位为400K

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Edit1->Text = ExtractFilePath(ParamStr(0));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (OpenDialog1->Execute())
   {
      AnsiString fFile = OpenDialog1->FileName;
      AnsiString tFile = Edit1->Text+ExtractFileName(fFile);
      if (CopyFile(fFile,tFile))
      {

             //复制成功....
      }
      else {
         ForceExist = false;
         DeleteFile(tFile);
      }
   }
}
//---------------------------------------------------------------------------
bool TForm1::CopyFile(AnsiString FromFile,AnsiString ToFile)
{
   bool result(false);
   FILE *FromF,*ToF;
   int NumRead,NumWritten;
   /* BUFSIZ is defined in stdio.h */
   char buf[bufsize];

   Screen->Cursor = crHourGlass;
   ToF = fopen(ToFile.c_str(),"wb");
   FromF = fopen(FromFile.c_str(),"rb");
   try
   {
      StartTime = Now();
      struct stat statbuf;
      /* get information about the file */
      fstat(fileno(FromF), &statbuf);
      int ModVal = statbuf.st_size % bufsize;
      int MaxVal = statbuf.st_size / bufsize;
      if (ModVal) MaxVal++;
      ProgressBar1->Max = MaxVal;
      float fSize = statbuf.st_size;
      TVarRec args[2] = {0,fSize};
      lblFileSize->Caption = Format("文件大小: %.*n字节", args, 1);
      lblStartTime->Caption = "开始时间: "+FormatDateTime("hh:nn:ss",StartTime);

      ForceExist = false;
      ProgressBar1->Position = 0;
      do
      {
         if (ProgressBar1->Position<MaxVal-1)
         {
            NumRead = fread(&buf, sizeof(buf), 1, FromF);   // read the data
            NumWritten = fwrite(&buf, sizeof(buf), 1, ToF); // Write the data
            fSize = bufsize * (ProgressBar1->Position + 1);
         }
         else if (ModVal) {//当剩余的数据不足400K时,需作特殊处理...
            char *Smallbuf;
            Smallbuf = (char *)SysGetMem(ModVal);
            NumRead = fread(Smallbuf, ModVal, 1, FromF);   // read the data
            NumWritten = fwrite(Smallbuf, ModVal, 1, ToF); // Write the data
            fSize += ModVal;
            SysFreeMem(Smallbuf);
            NumRead = 0;
         }
         ProgressBar1->Position++;
         TVarRec args[2] = {0,fSize};
         lblFileTrans->Caption = Format("已经复制: %.*n字节", args, 1);
         lblElapseTime->Caption = "已用时间: "+FormatDateTime("hh:nn:ss",Now()-StartTime);
         Application->ProcessMessages();
      }
      while (!ForceExist && (NumRead!=0 || NumRead==NumWritten));
      ProgressBar1->Position++;
      fclose(ToF);
      fclose(FromF);
      result = !ForceExist;
   }
   catch(...)
   {
      fclose(ToF);
      fclose(FromF);
      MessageDlg("在复制文件时出现错误,未能完成操作。", mtWarning, TMsgDlgButtons() << mbOK, 0);
   }
   Screen->Cursor = crDefault;
   return result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BtnStopClick(TObject *Sender)
{
if (MessageDlg("正在复制文件,是否要取消操作?", mtWarning, TMsgDlgButtons() << mbYes << mbNo, 0)==mrYes)
   ForceExist = true;
}
//---------------------------------------------------------------------------




相关文章

相关软件