Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 05-08-2006
Avatar de Enan0
Enan0 Enan0 is offline
Miembro
 
Registrado: may 2004
Ubicación: Argentina
Posts: 565
Poder: 23
Enan0 Va por buen camino
Como he comentado otras veces siempre utilizo el componente TZIP.
http://www.programmersheaven.com/dow.../download.aspx

de aca podes descargarlo. y simplemente con transportar las DLL's tu aplicacion estaria funcionando.

ACa Dejo un ejemplo de un codigo que utilizo para Comprimir un archibvo si llega a un determinado Tamaño

Código Delphi [-]
Procedure ZipFile(FName,DestName:string);
var
  Zfile:TZip;
  FHandle:integer;
  T:real;
  aux:string;
begin
  try
    FHandle := FileOpen(FName, 0);
    try
      t := (getfilesize(FHandle,nil)/1048576);
    finally
      FileClose(FHandle);
    end;
    if T<200 then
      exit;
    Zfile:=TZip.create(nil);
    Zfile.Filename:=ExtractFilePath(paramstr(0))+'LogFile\'+DestName+'.old';
    Zfile.ShowProgressDialog:=false;
    Zfile.FileSpecList.Add(fname);
    Zfile.add;
    sleep(900);
    if FileExists(fname) then
      DeleteFile(pchar(fname));
    Zfile.free;
  except
    on e:exception do
    aux:=e.message;
  end;

end;

el porceso para la descompresion es similar. igual esta en los ejemplos

Saludos
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
Antes de hacer una salva de la BD dtomeysoto Conexión con bases de datos 3 22-05-2006 20:26:21
paradox salva y no salva Dantael Conexión con bases de datos 4 11-03-2005 12:13:43


La franja horaria es GMT +2. Ahora son las 12:28:57.


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