Problemas con el ZIP Y EL UNZIP para backups

[dec]

Hola,

No te doy una respuesta, pero, yo de ti echaría un vistazo a los componentes TurboPower Abbrevia, puesto que te permiten comprimir y descomprimir archivos (también en formato Zip) de una forma bastante sencilla y sin depender de ningún programa externo.

[BuRtOn]

Hola dec, si se que existen componentes mas sencillos, pero el hecho es que ya me habia funcionado todo, y no se que sibalos le borro mi amigo o que le hizo y no me funciona, y es una aplicación comercial, y nos toca entregarla hoy a las 6:30 am, entiendes, asi que no se otro metodo ni utilizar componentes para hacer el backuo, asi que me toca rectificar y encontrar el error...Gracias

[BuRtOn]

Saludos Roman, no se que tan viable sea escribir el parametro entre ", ya que me generaria error.Gracias por tu respuesta.

[roman]

Es la forma en que funciona Windows, así que es bastante viable. Prueba a hacerlo manualmente y verás como las " no sólo son deseables sino imperativas.
Pero, como dije antes, depende de lo que haga exactamente FileRun1.

// Saludos

[roman]

Código Delphi [-]
FileRun1.Parameters :=
  '"' + ExtractFilePath(Application.ExeName) + 'Backupbd\' + Edit1.Text + '.zip" "' +
  ExtractFilePath(Application.ExeName) + 'bd\*.*"';

// Saludos

[BuRtOn]

Diosssssssssss esto me esta matandooo haaaa mi amigo es un destructor, no roman no me salio....mira como tengo el codigo:


Botón Comprimir

Código Delphi [-]
procedure TfrmBackup.ComprimirClick(Sender: TObject);
begin
FileRun1.Directory:=ExtractFilePath(Application.ExeName);
FileRun1.FileName:='zip.exe';
FileRun1.Parameters:='"' + ExtractFilePath(Application.ExeName) + 
 'Backupbd\' + Edit1.Text+'.zip" "' + ExtractFilePath(Application.ExeName) + 'bd\*.*"';
FileRun1.Execute;
end;

Botón descomprimir

Código Delphi [-]
procedure TfrmBackup.DescomprimirClick(Sender: TObject);
begin
opdAbrir.InitialDir := ExtractFilePath(Application.ExeName)+'Backupbd';
if (opdAbrir.Execute)then
begin
FileRun1.Directory := ExtractFilePath(Application.ExeName);
FileRun1.FileName := 'unzip.exe';
FileRun1.Parameters := opdAbrir.FileName+' -d C:\';
FileRun1.Execute;

end;
end;

y aun no asi me sale, pero en cuanto al FileRun1, esta perfecto por que no lo movieron para nada, se que es codigo, y es la parte de comprimir...por que no me comprime ahora...haaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

[dec]

Hola,

De todas formas, ¿no te retorna "FileRun" ningún error ni nada? Es que en otro momento, si llega a "fallar" por otro motivo... no sé, se me hace raro. Deberías poder obtener algún tipo de error o excepción, ¿no?