Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 07-12-2006
jamiguel77 jamiguel77 is offline
Miembro
 
Registrado: dic 2006
Posts: 21
Poder: 0
jamiguel77 Va por buen camino
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

Última edición por dec fecha: 11-12-2006 a las 22:41:26.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Comprimir archivos con turbo power abbrevia white_zombie OOP 15 19-02-2008 21:31:30
Drag and Drop con Componentes Abbrevia cabeza_as Varios 3 24-08-2006 23:07:06
Comprimir con el componente turbo power abbrevia white_zombie OOP 1 01-12-2005 13:23:45
2 Preguntas... Xianto Varios 2 10-02-2005 22:14:49
dos preguntas esocrates Varios 1 06-06-2003 17:37:16


La franja horaria es GMT +2. Ahora son las 11:00:26.


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