Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-10-2017
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Poder: 17
gdlrinfo Va por buen camino
Compactar directorio en delphi

Estimados no puedo lograr compactar un directorio con la función tzipfile de Delphi envio un ejemplo:
Código Delphi [-]
var
SearchRec: TSearchRec;
zip: tzipfile;
begin

Zip := TZipFile.Create;
Zip.Open ('C:\123.zip', zmWrite);
if FindFirst('c:\123\*.*', faAnyFile, SearchRec) = 0 then
repeat
   Zip.Add ('C:\123\'+ SearchRec.name);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
 end;

Al utilizar esto me dice que no encuentra el directorio yo quiero compactar todo lo que hay en c:\123N DESDE YA MUCHAS GRACIAS!!!!
Responder Con Cita
  #2  
Antiguo 13-10-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Ya es un poco antigua, pero puedes echarle un vistazo a esta entrada en el blog.
Se explican las operaciones básicas y tienes el código de un ejemplo, al que puedes echarle un vistazo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 13-10-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Otra cosa, sustituye la línea del zip.add, por esta otra:

Código Delphi [-]
      if (SearchRec.name <> '.') and (SearchRec.name <> '..') then begin
        Zip.Add ('R:\123\'+ SearchRec.name);
      end;

Es posible que te esté intentando aññadir los ficcheros "." y "..", y eso te provoque errores.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Compactar Base d Datos Access desde Delphi. Drakyto Conexión con bases de datos 6 22-02-2010 23:23:29
Establecer directorio por defecto Delphi al Abrir ingabraham Varios 4 17-06-2008 22:19:19
Compactar Base d Datos Access desde Delphi. Drakyto Conexión con bases de datos 3 19-02-2008 03:57:07
Compactar BD SQL Server desde Delphi sammersan Conexión con bases de datos 0 26-12-2006 12:11:56
Compactar y Reparar una BD desde Delphi Sr.Scorpion Conexión con bases de datos 2 14-04-2005 21:46:17


La franja horaria es GMT +2. Ahora son las 17:05:40.


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
Copyright 1996-2007 Club Delphi