whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

43 Visitors Online


 
...concatenate and compress files into one destination file?
Autor: Robert Kuhlmann
Homepage: borland.public.delphi.objectpascal
[ Print tip ]  

Tip Rating (56):  
     


uses
  
Zlib;

procedure CompressFiles(Files : TStrings; const Filename : String);
var
  
infile, outfile, tmpFile : TFileStream;
  compr : TCompressionStream;
  i,l : Integer;
  s : String;

begin
  if 
Files.Count > 0 then
  begin
    
outFile := TFileStream.Create(Filename,fmCreate);
    try
      
{ the number of files }
      
l := Files.Count;
      outfile.Write(l,SizeOf(l));
      for i := 0 to Files.Count-1 do
      begin
        
infile := TFileStream.Create(Files[i],fmOpenRead);
        try
          
{ the original filename }
          
s := ExtractFilename(Files[i]);
          l := Length(s);
          outfile.Write(l,SizeOf(l));
          outfile.Write(s[1],l);
          { the original filesize }
          
l := infile.Size;
          outfile.Write(l,SizeOf(l));
          { compress and store the file temporary}
          
tmpFile := TFileStream.Create('tmp',fmCreate);
          compr := TCompressionStream.Create(clMax,tmpfile);
          try
            
compr.CopyFrom(infile,l);
          finally
            
compr.Free;
            tmpFile.Free;
          end;
          { append the compressed file to the destination file }
          
tmpFile := TFileStream.Create('tmp',fmOpenRead);
          try
            
outfile.CopyFrom(tmpFile,0);
          finally
            
tmpFile.Free;
          end;
        finally
          
infile.Free;
        end;
      end;
    finally
      
outfile.Free;
    end;
    DeleteFile('tmp');
  end;
end;

procedure DecompressFiles(const Filename, DestDirectory : String);
var
  
dest,s : String;
  decompr : TDecompressionStream;
  infile, outfile : TFilestream;
  i,l,c : Integer;
begin
  
// IncludeTrailingPathDelimiter (D6/D7 only)
  
dest := IncludeTrailingPathDelimiter(DestDirectory);

  infile := TFileStream.Create(Filename,fmOpenRead);
  try
    
{ number of files }
    
infile.Read(c,SizeOf(c));
    for i := 1 to do
    begin
      
{ read filename }
      
infile.Read(l,SizeOf(l));
      SetLength(s,l);
      infile.Read(s[1],l);
      { read filesize }
      
infile.Read(l,SizeOf(l));
      { decompress the files and store it }
      
s := dest+s; //include the path
      
outfile := TFileStream.Create(s,fmCreate);
      decompr := TDecompressionStream.Create(infile);
      try
        
outfile.CopyFrom(decompr,l);
      finally
        
outfile.Free;
        decompr.Free;
      end;
    end;
  finally
    
infile.Free;
  end;
end;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners