problema a la hora de comprimir con abbrevia

[danielmj]

Hola,

estoy teniendo problemas a la hora de comprimir un archivo, el código que tengo es este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=  'C:\Users\dani\Desktop\psrFactura.csv';
  Zip := TAbZipper.Create(Application);
  zip.FileName:= 'C:\Users\dani\Desktop\psrFactura.zip';
//  zip.Password:= '123456789abcdef';
  zip.Save;
end;
end.

El problema es que el archivo que se crea con extensión .zip pesa 0 bytes y no se puede abrir, dice que está dañado. ¿alguna idea?

Saludos y gracias.

[Casimiro Notevi]

Mira los ejemplos que trae, creo recordar que así no funciona.

[Casimiro Notevi]

O haz una simple búsqueda por los foros.

[danielmj]

Hola casimiro, ya lo encontre, me baje un pdf de sourceforge y ya está funcionando, la forma es:

Código Delphi [-]
..
zip.FileName:= 'C:\prueba\prueba.zip';
  zip.AddFilesEx('c:\prueba\parametro1','parametro2',0);
  zip.Save;
  zip.Free;
..

La linea en rojo es la principal aquí, no sé si habrá mas formas pero de momento esta ha funcionado. A saber:
Parametro1 Sería el archivo o archivos a comprimir según su extensión. Puede ser "C:\prueba.txt" o "*.txt"
Parametro2, son los archivos que no se deben tocar igualmente según su extensión. Por ejemplo "*.pas"
El valor 0, es para indicar que no toque ninguno de los archivos distintos a Parametro1

Bueno, espero haberme explicado y si estoy equivocado en algo que me corrija.
Un saludo.