ITPub博客

首页 > 应用开发 > IT综合 > 关于文件复制的程序代码(C++Builder) (转)

关于文件复制的程序代码(C++Builder) (转)

原创 IT综合 作者:worldblog 时间:2007-12-10 16:56:34 0 删除 编辑
关于文件复制的程序代码(C++Builder) (转)[@more@]

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

#include
#include

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  {
  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;
}
//---------------------------------------------------------------------------


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-991057/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2404592