要一个压缩(.EXE)文件的函数,解压的另开贴给分.

Question

要把东西放到数据库里(非本地数据库)
 超过 4M 就会断开连接.

Answer 1

什么样的东西，什么方式放到数据库里？这样：
insert 表 (fields,...) values (数据,'很大的数据',...)？

Answer 2

用 流 的形式 把 Exe 文件 放到 Image 字段里  
3.5M大小的可以放进去.   5M的就会出现.连接失败.. 
所以想到了压缩. 

Answer 3

就这个了  都可用   呵呵    分散了 
  unit   zipfunc;   
  {   
  压缩解压单元   
    
  作者：fontain   日期：2002.2.9   
    
  功能：   
            compressstream:从指定流中压缩内容，结果存到原流   
            uncompressfile:   从指定流压，结果存到指定流   
  使用单元：zlib,classes,Sysutils;   
  }   
  interface   
  uses   zlib,classes,Sysutils;   
  Function   ZipStream(var   CompressedStream:   TMemoryStream):boolean;   
  function   UnZipStream(var   res:   TMemoryStream):boolean;   
  implementation   
  Function   ZipStream(var   CompressedStream:   TMemoryStream):boolean;   
  var   
      SourceStream:   TCompressionStream;   
      DestStream:   TMemoryStream;   
      Count:   Integer;   
  Begin   
          //获得数据流的原始尺寸   
          result:=false;   
          Count   :=   CompressedStream.Size;   
          DestStream   :=   TMemoryStream.Create;   
          SourceStream:=TCompressionStream.Create(clDefault,   DestStream);   
          Try   
              //SourceStream中保存着原始的数据流   
              CompressedStream.SaveToStream(SourceStream);   
              //将原始数据流进行压缩，   DestStream中保存着压缩后的数据流   
              SourceStream.Free;   
              with   CompressedStream   do   begin   
                  Clear;   
                  //写入原始数据流尺寸   
                  WriteBuffer(Count,   SizeOf(Count));   
                  //写入经过压缩的数据流   
                  CopyFrom(DestStream,   0);   
                  //恢复流指针   
                  Position:=0;   
              end;   
              result:=true;   
          finally   
              DestStream.Free;   
          end;   
  end;   
    
  function   UnZipStream(var   res:   TMemoryStream):boolean;   
  //解压缩文件数据流   
  var   
      SourceStream:   TDecompressionStream;   
      Buffer:   PChar;   
      Count:   Integer;   
      src:TmemoryStream;   
  Begin   
      result:=false;   
      //从被压缩的数据流中读出原始数据流尺寸   
      res.ReadBuffer(Count,   SizeOf(Count));   
      //根据数据流尺寸大小为将要读入的原始数据流分配内存块   
      GetMem(Buffer,   Count);   
      SourceStream   :=   TDecompressionStream.Create(res);   
      Try   
          //将被压缩的数据流解压缩，然后存入   Buffer内存块中   
          SourceStream.readBuffer(Buffer^,   Count);   
          //将数据流保存至res流中   
          res.Clear   ;   
          res.writeBuffer(Buffer^,   Count);   
          res.Position   :=   0;//复位流指针   
          result:=true;   
      finally   
          FreeMem(Buffer);   
      end;   
  end;   
    
  end.