Problemas con el ZIP Y EL UNZIP para backups

[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?

[BuRtOn]

No dec, nada no me envia ningun mensaje de error ni de excepción.....y lo peor de todo es que me funcionaba....Haaaaa que piedraa brother...ya casi es la 1 y aqui arreglando esto pa llevarlo a las 6:30 am....de hoy...juasss...

[dec]

Hola,

Se me hace complicado ayudarte... creo que debe ser algo "tonto", pero, que, se nos pasa por alto. Pero tú estás a los mandos, por decirlo de algún modo. ¿Comprobaste que no hay procesos de los programas "zip" y "unzip" corriendo? Es posible que eso impida un buen funcionamiento de los mismos. En cualquier caso, insisto con los TurboPower Abbrevia: creo que ya habráis terminado (hay ejemplos de uso muy sencillos) y creo también que son una solución más elegante. Pero es mi opinión.

PD. Por si te sirve de algo aquí son las 7:53 de la mañana. Tienes suerte de estar allí.

[roman]

Casualmente tengo aquí un zip.exe y he hecho esta prueba:

Código Delphi [-]
uses ShellApi;

function DQuotedString(S: String): String;
begin
  Result := '"' + S + '"';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Parameters: String;

begin
  Parameters :=
    DQuotedString('c:\Documents and Settings\roman\Mis documentos\noseque.zip') +
    ' ' +
    DQuotedString('C:\Documents and Settings\roman\Mis documentos\Trabajo\cdsview\*.*');

  ShowMessage(Parameters);
  ShellExecute(Handle, 'open', 'zip.exe', PChar(Parameters), nil, SW_SHOW);
end;

que funciona bien. Es decir, lo mismo que te digo con las comillas dobles pero más ordenado y usando ShellExecute.

Puedes intentar cambiando FileRun por ShellExecute. Antes puedes probar poner entre comillas dobles tambien a FileRun1.Directory, pues también tiene espacios.

¿De dónde sale FileRun? ¿Es un componente hecho por ustedes?

// Saludos

[BuRtOn]

Es un action list, ---> Standard Action clases ---> File ----> TFileRun, es de delphi y no es ningun componente...

[roman]

¡¡Ya sé qué es FileRun!! Es una acción. He hecho esta prueba

Código Delphi [-]
FileRun1.Directory := Application.ExeName;
FileRun1.FileName := 'zip.exe';
FileRun1.Parameters :=
  DQuotedString('c:\Documents and Settings\roman\Mis documentos\noseque.zip') +
  ' ' +
  DQuotedString('C:\Documents and Settings\roman\Mis documentos\Trabajo\cdsview\*.*');
FileRun1.Execute;

y funciona bien.

// Saludos

[[Lepe]]

a ver si no recuerdo mal, teniendo windows XP instalado:

- con particiones FAT, necesita entrecomillar los parámetros
- con particiones NTFS, no es necesario entrecomillar los parámetros

No puedo asegurarlo al 100 %, porque no tengo FAT por aquí. Para curarte en salud, entrecomilla (comillas dobles) los parámetros y siempre funcionará.

... a estas horas ya habrá entregado el programa, pero los "service packs" están para algo .


Saludos