Comprimir un archivo( que quede .zip), desde Builder sin mostrar Winzip

[JuanErasmo]

Buenas tardes.
Señores , necesito comprimir un archivo que me quede en formato .zip
como si lo hubiese comprimido con WinZip pero que lo haga desde el código.
Muchas Gracias y este es un buen reto!

[dec]

Hola,

Yo utilizo los componentes Turbo Power Abbrevia en Delphi 7 y acabo de cerciorarme de que se incluyen versiones para C++ Builder y ejemplos de uso en ambos casos. A mí me van muy bien. Se distribuyen junto a su código fuente gratuitamente.. Pruébalos a ver qué te parecen.

[JuanErasmo]

No es posible hacer esto llamando al Winzip y pasandole el archivo como parametro?
Gracias.
Por favor dime el sitio donde pueda bajarlo. y gracias otra vez

[dec]

Hola,

Empezado por JuanErasmo

No es posible hacer esto llamando al Winzip y pasandole el archivo como parametro?

Bueno, es que eras tú el interesado en hacerlo programáticamente, no utilizando el WinZip... por eso propuse lo que propuse

Empezado por JuanErasmo

Por favor dime el sitio donde pueda bajarlo.

¿Los componentes TurboPower Abbrevia? En su página Web tienes los enlaces que te llevarán a descargarlos.

Haciendo alguna prueba he visto que lo ponen tan sencillo para comprimir un archivo y descomprimir un archivo Zip tanto en Delphi 7 como en C++ Builder:

  // C++ Builder
  // compresor: TAbZipKit
  
  // Comprimir
  //
  compresor->FileName = "C:\\archivo.zip";
  compresor->AddFiles("C:\\archivo.txt", faAnyFile);
  compresor->Save();
  
  // Descomprimir
  //
  SetCurrentDir("C:\\");
  compresor->FileName = "C:\\archivo.zip";
  compresor->ExtractFiles("*.*");
  compresor->CloseArchive();

Sin embargo, evidentemente, las cosas pueden complicarse y ahí están los componentes porque parecen bastante potentes: uno de los ejemplos que viene con los mismos es todo un programa compresor/descompresor de archivos Zip.

[JuanErasmo]

Gracias Dec. Al fin lo logré utilizar.

Agradezco mucho tu ayuda. Eres un excelente programador y moderador.
Tus respuestas son rápidas y efectivas.
Gracias otra vez.

[Grefu]

En primer lugar hola a todos. Soy nuevo pero llevaba un monton de tiempo encontrar un sitio como este. He intentado ser autodidacta con el Delphi pero veo ke lo irremediable es acudir en busca de ayuda y creo que este es el lugar más acertado

A mi no me funciona lo de comprimir joopeee....
He intentado mirando ejemplos pero no me entero de nada...
¿Sería mucha molestia que alguien me ponga el código que debo incluir? Asi como de las unidades...
Estoy haciendo una aplicacion que dado un nombre de archivo y unas imagenes, se guarden en un zip con ese nombre de archivo. Algo facilito pero que me está volviendo loco...

AbZipper1: TAbZipkit;
 
abZipper1.filename:='C:\\yo.zip';  <---- aki me peta
AbZipper1.addfiles(openPictureDialog1.FileName,0);

Se que algo está mal pero no se que es. Me da un error en tiempo de ejecucion....