Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   zippear con abbrevia en HOT? (2 preguntas) (https://www.clubdelphi.com/foros/showthread.php?t=38228)

jamiguel77 07-12-2006 06:50:56

zippear con abbrevia en HOT? (2 preguntas)
 
1) Hola a todos como le hago con abbrevia para comprimir:

c:\temp
c:\temp2

y claro todas sus subcarpetas?

2) abbrevia tiene la capacidad de comprimir en HOT? (definiendo HOT: aunque el usuario este usando el archivo lo comprime, me imagino hasta la ultima vez que guardo) si no es el caso de que lo haga existe algun otro componente que si lo haga?


Gracias!

jamiguel77 07-12-2006 07:04:25

Aclarando lo de compriimir 2 carpetas o mas.... HOT mmm
 
lo que quisiera es: que guardara el path completo de cada carpeta, por que si ejecuto este codigo:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  AbZipper, AbArcTyp, AbZBrows, AbMeter, AbBrowse, AbBase, AbZipKit, AbZipPrc, AbZipTyp;
type
  TForm1 = class(TForm)
    AbZipKit: TAbZipKit;
    Button1: TButton;
    Label1: TLabel;
    AbMeter1: TAbMeter;
    AbMeter2: TAbMeter;
    Label2: TLabel;
    AbVCLMeterLink2: TAbVCLMeterLink;
    AbVCLMeterLink1: TAbVCLMeterLink;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    AbZipKit.StoreOptions := [soRecurse];
    AbZipKit.FileName := 'c:\copia.zip';
    AbZipKit.BaseDirectory := 'C:\t';
    abzipkit.CompressionMethodToUse:=smBestMethod;
    abzipkit.DeflationOption:=doMaximum ;
    AbZipKit.AddFiles('*.*',0);
    AbZipKit.BaseDirectory := 'C:\temp';
    AbZipKit.AddFiles('*.*',0);
    AbZipKit.CloseArchive;
    AbZipKit.Save;
  finally
    showmessage('Operacion Completada');
  end;
end;
end.

me agrega lo de las 2 carpetas en un archivo y no se que archivos pertenecen a cada carpeta, por lo que respecta a lo de HOT no marca ningun error ya lo probe abriendo un archivo de excel(claro el archivo de excel esta incluido en la ruta c:\t), no marca ningun error, eso esta bien, pero no lo agrega ademas de que surge, otra pregunta:

como captar el archivo que no pudo comprimir? para asi guardarlo en un log y despues cuando lo revise darme cuenta que nose comprimio el archivo.

Gracias

Gydba 11-12-2006 22:18:16

Buenas y santas.

Primero un comentario al márgen: existen por invocación divina unas etiquetas CODE.. para que tu texto salga formateado y sea más leible. Pero eso se los dejo a los moderadores.

En cuanto a tu cuestión los abrevia toman el archivo hasta donde fueron modificados por última vez, aunque hay programas que bloquean el archivo porque graban constantemente y ahí existe el problema. Pero eso pasa con cualquier compresor.

Yo probaría con:
Código Delphi [-]
  StoreOptions := (soRecurse + soFreshen);

O bien hecharía un vistaso a la documentación (web en: sourceforge.net/projects/tpabbrevia/) que explica muy bien como utilizar a los componentes. Creo que también tienen una propiedad ExtractOptions o similar, quizás cuando descomprimís no la estás parametrizando bien.

Lamento no poder ser de mayor ayuda puesto que hace años que no toco la parte de compresión.


La franja horaria es GMT +2. Ahora son las 23:43:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi