Consejo acerca de qué componente utilizar para comprimir archivos

[alastor]

Hola.
Estoy haciendo un sistema que requiere de salvar la informacion de forma comprimida. Yo he estado usando el arj para hacerlo pero en muchas ocaciones no funsion por la longitud de las palabras en el camino(esn DOS solo so 8 digitos) o por otras razones. Si alguien conosiese alguna forma de comprimir desde delphi usando por ejemplo WINRAR, WINACE u otro compartador se lo agradeceria.
___________________
Saludos

[Sotrono]

Hola, éste hilo te va a ser de ayuda. Con el buscador del foro seguramente vas a encontrar muchos otros hilos útiles.

Bytes!!

[dec]

Hola,

Alastor, compañero, a ver si es posible que titules los Hilos de forma más descriptiva, porque, "Salva???", no parece que vaya a ayudar mucho en un futuro, cuando se buscara información mediante el buscador de los Foros, más bien al contrario, confundiría al personal, ¿no te parece?

Echa un vistazo a la guía de estilo de estos Foros para más información.

PD. Esta vez me encargo yo de dar un título más descriptivo a tus dos últimos Hilos, "Salva???" y "Duda", la próxima vez espero que tengas un poco más de conciencia de lo que te he comentado acerca de la importancia de titular los Hilos convenientemente. No se trata de hacer un máster, sino de utilizar un poco el sentido común.

[Neftali [Germán.Estévez]]

Hace un par de días hemos estado hablando de lo mismo...

[Enan0]

Como he comentado otras veces siempre utilizo el componente TZIP.
http://www.programmersheaven.com/dow.../download.aspx

de aca podes descargarlo. y simplemente con transportar las DLL's tu aplicacion estaria funcionando.

ACa Dejo un ejemplo de un codigo que utilizo para Comprimir un archibvo si llega a un determinado Tamaño

Código Delphi [-]
Procedure ZipFile(FName,DestName:string);
var
  Zfile:TZip;
  FHandle:integer;
  T:real;
  aux:string;
begin
  try
    FHandle := FileOpen(FName, 0);
    try
      t := (getfilesize(FHandle,nil)/1048576);
    finally
      FileClose(FHandle);
    end;
    if T<200 then
      exit;
    Zfile:=TZip.create(nil);
    Zfile.Filename:=ExtractFilePath(paramstr(0))+'LogFile\'+DestName+'.old';
    Zfile.ShowProgressDialog:=false;
    Zfile.FileSpecList.Add(fname);
    Zfile.add;
    sleep(900);
    if FileExists(fname) then
      DeleteFile(pchar(fname));
    Zfile.free;
  except
    on e:exception do
    aux:=e.message;
  end;

end;

el porceso para la descompresion es similar. igual esta en los ejemplos

Saludos

[alastor]

Muchas gracias por todas las sugerencias incluyendo la del titulo. ¿Alquien sabe donde encontrar algun manual para principiantes de los Indy??

[dec]

Hola,

Empezado por Alastor

¿Alquien sabe donde encontrar algun manual para principiantes de los Indy??

¿Esto no debería ir en un nuevo Hilo? En todo caso, de los componentes que mencionas tienes la posibilidad de descargar su documentación (que podrías incluso añadir a la del propio Delphi) y una serie de ejemplos de uso de los distintos componentes. Son muy completos, eso sí, manuales no me suena que... tal vez existan, pero no puedo decirte sino lo dicho...