Como comprimo un archivo!?

[juliopag1]

Empezado por jachguate

No entiendo.. queres Algo propio, pero queres que alguien mas te lo haga??

En realidad, lo que quiero que me den las herramientas, no se Ej: utiliza el comando X de tal manera y de hay yo parto.

Quiero hacerlo yo!

[Enan0]

Che julito.. si te bajas eso que te dije, solo tenes que agregar el .pas en las llamdas. despues lo creas.. y bueno ... hay ejemplos.. pero si queres algo te paso.

Código Delphi [-]
 
 unit CompactRep;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls,zip, registry, JRO_TLB;
 
 //unidad agregada!
 ........
 function TCompactarYreparar.Zipear: boolean;
 var Zip:TZip;
    ruta:String;
 begin
 TRY
    ruta:=LeerPath;
    reparar(ruta);
    if Not DirectoryExists(ruta + 'BackUp\') then
     CreateDir(ruta + 'BackUp\');
    Zip:=TZip.create(nil);
    zip.FileSpecList.Add(ruta + 'Base.mdb');
    zip.Filename:=ruta + 'BackUp\' + FormatDateTime('DDMM_hhmm',now)+'.ZIP';
    zip.Add;
    if FileExists(ruta + 'Base.mdb') then
     DeleteFile(ruta + 'Base.mdb');
    CopyFile(pchar(ruta + 'basenueva.mdb'),Pchar(ruta+'Base.mdb'),false);
    if FileExists(ruta+'basenueva.mdb') then
     DeleteFile(ruta+'basenueva.mdb');
    result:=TRUE;
 EXCEPT
    REsult:=FALSE
 END;
 end;

Este codigo lo que hace es zipear una base de datos la cual fue compactada por otro procedimiento..

Este otro agarra una lista de archivos y los zipea..
y tambien te paso la funcion que los dezipea!!

 
Código Delphi [-]
 Function zipear(FileName,RutaOrigen, RutaDestino:string;Lista:array of string):string;
 var zip1:tzip;
    i:integer;
 begin
   try
    zip1:=tzip.create(nil);
    i:=0;
    while lista[i]<>'' do
     begin
     zip1.FileSpecList.Add(RutaOrigen + lista[i]);
     i:=i+1;
     end;
 
    EscribirAuditoria('Comienza El Proceso de Zipeado: ' + FileName);
    zip1.Filename:=RutaDestino+FileName;
    zip1.ShowProgressDialog:=true;
    zip1.add;
    zipear:='correcto';
    EscribirAuditoria('Se Completo Correctamente: ' + filename);
   except
    zipear:='error';
    EscribirAuditoria('Se Produjo un Error Zipeando: ' + filename);
    EscribirAuditoria('Borrando el Archivo Zip: '+ FileName);
    DeleteFile(RutaDestino + FileName);
   end;
 end;
 
 {Funcion Que Realiza el desZipeado de los Archivos
 y devuelve el estado final del proceso}
 Function deszipear(FileName,RutaOrigen,RutaDestino:string):string;
 var zip1:tzip;
 begin
    try
     zip1:=tzip.create(nil);
     EscribirAuditoria('Comienza El Proceso de DesZipeado: ' + FileName);
     zip1.Filename :=RutaOrigen + FileName;
     zip1.ExtractPath:=RutaDestino;
     zip1.ShowProgressDialog:=false;
     zip1.Extract;
     deszipear:='correcto';
     EscribirAuditoria('Se Completo Correctamente: ' + filename);
     Escribirauditoria('Borrando El Archivo ZIP: ' +Filename);
     DeleteFile(RutaOrigen + FileName);
    except
     deszipear:='error';
     EscribirAuditoria('Se Produjo un Error DesZipeando: ' + filename);
     Escribirauditoria('Borrando Archivos Que Componen : ' +Filename);
     DeleteFile(RutaDestino + '*.*');
     EscribirAuditoria('Borrando el Archivo Zip: ' + FileName);
     DeleteFile(RutaOrigen + FileName);
    end;
 end;

[jachguate]

Bien, entonces estos vínculos podrian serte útiles:

http://en.wikipedia.org/wiki/Compression_algorithm
http://www.gzip.org/zlib/rfc-deflate.html
http://www.gzip.org/deflate.html
http://www.gzip.org/algorithm.txt
http://www.programmersheaven.com/zone24/cat857/

Hasta luego.

[Enan0]

Ok me retracto no habia entendido tu pregunta.. lo que queres hacer es escribir tu propio metodo de compresion de archivos.
Si tenes tiempo y ganas de investigar, podes buscar sobre REDES NEURONALES ARTIFICIALES, en las cuales se tulizan estos modelos para la compresion de archvios.. (compresion de todo tipo de información)..

[[Delphius]]

Como dice Enan0, si quieres escribir tu propio algoritmo tal vez te resulte de muchísima utilidad bucar en google con estos términos:

• Códigos de Huffman
• LZ77
• LZSS
• LZRW1
• LZ78
• LZW
• LZJH

Ahora, si no tienes mucha noción de esos algoritmos, te recomiendo revisar los links de esta búsqueda realizaba en google

[juliopag1]

Me pondre a revisar!!

Thank's