大哥们啦，又拉兄弟一把吧！我又遇到二个难点了

Question

你查查BOOL BitBlt(
   int x,
   int y,
   int nWidth,
   int nHeight,
   CDC* pSrcDC,
   int xSrc,
   int ySrc,
   DWORD dwRop 
的用法就知道，如何让图片不闪了，而且速度极快另外你是想让多个文件合到一起还是压缩到一起
如果合并不压缩，我到知道如何做，要在加上压缩我就不知道了

Answer 1

1。 你的图片太大，所以调进来有延时，解决方法你可以参考一号楼长的，也可以用photoshop再编辑一下，存为jpg文件，photoshop可以加入一个插件projpeg，可以把jpeg缩小为原来的30%，效果又和原来差不多。
2。 我也要问要不要压缩？

Answer 2

我对你问题的理解为，把多个文件一起生成一个zip文件
并且对文件能够接压缩，并还原。
我也是座数据备份,恢复时刚接触到这个。
对于文件的压缩、接压缩可能需要第三方控件。
procedure TForm1.bf_ButtonClick(Sender: TObject);
var
    VCLZip1:TVCLZip;//第三放控件
    DataFiles:TStringList;//文件列表
gegin
  VCLZip1:=TVCLZip.Create(self);
  DataFiles:=TStringList.Create;
      if ListView_Single.Checked[1] then
        begin
        //  backname:=formatdatetime('mm',now)+formatdatetime('dd',now)+'查询表'+'备份';
          SaveDialog1.FileName:='备份';
          if SaveDialog1.Execute then
            begin
              saveboolea:=true;
              VCLZip1.ZipName:=SaveDialog1.FileName+'.zip';
              if FileExists(VCLZip1.ZipName) then
                begin
                  if application.MessageBox('是否覆盖','提示',MB_OKCANCEL)<>IDOK then
                    begin
                      saveboolea:=false;
                      end
                      else
                      begin
                      deletefile(VCLZip1.ZipName);
                      end;
                    end;
 bf_ClientDataSet.SaveToFile('单位信息表'+'bf.cds',dfBinary);
              DataFiles.Add('单位信息表'+'bf.cds');//把文件加入zip
              VCLZip1.FilesList:=DataFiles;
              VCLZip1.zip;//解压缩
      VCLUnZip1.DestDir :=Label2.Caption;
      VCLUnZip1.ZipName:=OpenDialog1.FileName;
      VCLUnZip1.FilesList.add('*.*');
      VCLUnZip1.UnZip;
//打开备份文件
      hf_ClientDataSet.Close;
      hf_ClientDataSet.LoadFromFile(Label2.Caption+'单位信息表bf.cds');
      hf_ClientDataSet.open;
      hf_ClientDataSet.first;
上面的都是代码片断，我能给你的你能用上的都有了。自己改改看吧！