首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > C++ Builder >

BCB压缩,该怎么解决

2012-11-05 
BCB压缩哪位大神给予帮助,代码如下:...........................MyPath FileName + FileName1+\\MyFi

BCB压缩
哪位大神给予帮助,代码如下:
  .........
  .........
  .........
  MyPath = FileName + FileName1+"\\";
  MyFileName = FileName1 + ".taf";
  //打包
  ZipFile(MyPath,MyFileName);


//-----------------------------------------
// 生成试卷包
//-----------------------------------------
void TFormSendMail::ZipFile(AnsiString sPath,AnsiString sFileName)
{

  //压缩文件夹下所有文件
  VCLZip->IncludeArchiveFiles = true;
  VCLZip->IncludeHiddenFiles = true;
  VCLZip->IncludeReadOnlyFiles = false;
  VCLZip->IncludeSysFiles = true;
  VCLZip->FilesList->Add(sPath + "*.*");
  VCLZip->Recurse = true;
  VCLZip->ZipName = sPath + sFileName;
  VCLZip->Zip();

}

单步跑到 VCLZip->Zip();后就停止住了,压缩不了。不知道是什么原因,求正解!!!

[解决办法]
这个控件真没用过,
找了几个资料,你看看,是不是参数设置方面的问题,http://hi.baidu.com/warrially/item/1323cbfd51952819e3e3bd60
http://www.cnblogs.com/11wf/archive/2011/11/26/2264033.html

热点排行