Problemas con el ZIP Y EL UNZIP para backups

[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

[roman]

No lo creo Lepe. Parámetros son parámetros, y se separan con espacios. FAT o NTFS, es imposible que un programa distinga que si le mandas C:\Archivos de programa\hola en la línea de comandos, en realidad te refieres a un sólo parámetro y no a tres.

Y bueno, de hecho ayer mismo estuve probando esto, tanto en FileRun como en ShellExecute (con NTFS) y no funciona si se omiten las comillas dobles. Y, de hecho, examiné el código de FileRun y vi que usa ShellExecute. Claro que esto último ya no lo comenté porque nuestro amigo se desapareció.

// Saludos