Comprimir archivos con turbo power abbrevia

[[white_zombie]]

Hola

Gracias por la respuesta, con ella he confirmado lo que pensaba, que es un error del comoponente porque por mas que he mirado la ayuda no he visto nada para arreglarlo.

Intetare usar otra herramienta aunque esta a parte de este fallo me gustaba.

Si sabes de alguna herramienta parecida y que vaya bien te agradeceria que me la indicases.

Muchas gracias.

[dec]

Hola,

Pues sí, sí que sé de otros componentes que funcionan bastante bien, pero, si no los mencioné antes es porque son gratuitos, en su versión "personal" (mira su licencia porque no sé hasta qué punto puedes usarlo en ciertas aplicaciones) y son los componentes ZipForge. Yo los he utilizado y no me fueron mal. De todos modos, a poco que busques en páginas como Torry's Delphi Pages encontrarás otros componentes para lo que te es menester: comprimir y descomprimir archivos Zip. También en estos Foros se ha tratado este tema y se han referido componentes para estos menesteres: busca en los foros por "comprimir archivos" y palabras-clave semejantes a ver si tienes suerte.

De todos modos, hombre, yo creo que no estaría demás que escribieras en el Foro de los componentes conque lo hemos intentado primeramente, porque, muy posiblemente obtengas respuestas a la cuestión que nos preocupa. No pierdes nada y es posible que logres una solución: por mucho que hallamos probado es posible que nos pasara inadvertida la solución. En fin, por probar, ya digo que no pierdes nada en absoluto.

[Casimiro Noteví]

Por casualidad... ¿has mirado los ejemplos que trae?.

Puede que encuentres algo interesante en ellos.

[[white_zombie]]

Hola, si que he mirado en los ejemplos y no he visto nada para resolver este problema aunque puede haber algo y no me he dado cuenta.

Solo me queda esperar a ver si alguien del foro me orienta por el buen camino porque yo ya estoy harto de hacer pruebas y no obtener resultado.

Gracias por la sugerencia.

Un saludo.

[dec]

Hola,

Bien. No hay error alguno en el componente, a lo menos en cuanto a lo que nos ocupa respecta. Me precipité al pensarlo así, puesto que, aunque hize pruebas y demás, no había leído suficiente en la ayuda del método "AddFiles", concretamente, o no hize las suficientes pruebas. Lo siguiente consigue exactamente lo que planteas. Si lo pruebas verás cómo se comprimen todos los archivos, incluyendo los subdirectorios del directorio "Internet Explorer", sin que en el archivo "Zip" quede la ruta completa de dicho directorio, es decir, "C:\Archivos de programa\Internet Explorer\". De todos modos revisa la ayuda del componente, da más de sí, fijo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  AbZipKit.StoreOptions := [soRecurse];
  AbZipKit.FileName := 'C:\archivo.zip';
  // Nos "situamos" en el directorio que vamos a comprimir
  AbZipKit.BaseDirectory := 'C:\Archivos de programa\Internet Explorer';
  AbZipKit.AddFiles('*.*', 0); // Y añadimos todos sus archivos
  AbZipKit.CloseArchive;
  AbZipKit.Save;
end;

[Casimiro Noteví]

Como dice dec, esa es la forma de usarlo, indicando el directorio "base" en relación al cual se grabará.

Ejemplo de código en uno de mis programas:

  zip.FileName := cPath + cFicheroZip;
  zip.BaseDirectory := ExtractFilePath(ParamStr(0));
  zip.Password := cClaveEncriptar;
  zip.AutoSave := true;
  zip.AddFiles(cFichero,0);
  zip.AutoSave := False;
  zip.CloseArchive;

Por cierto, en los ejemplos y en la ayuda viene especificado.

[[white_zombie]]

Hola

Ahora si que va bien, muchas gracias por las respuestas y por el tiempo que os habeis tomado en buscarlas.

La verdad es que a veces la respuesta esta delante de las narices y no se ve, yo estaba empeñado en buscar la solucion en las opciones de busqueda y compresion pero bueno ya esta solucionado, cosa que os agradezco.


Un Saludo.