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

[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.