Misterio en Photoshop

[roman]

Empezado por Al González

Son, si no me equivoco, para lo mismo que tú has empleado las comillas dobles a los extremos de la concatenación

Pues no Al, las comillas dobles no están para ver si algo se nos escapa. Son imperativas. Vamos a ver un ejemplo más detallado (con Gimp, pues no tengo Photoshop).

Este fragmento fallará:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Exe: String;
  Params: String;

begin
  Exe := 'C:\Archivos de programa\GIMP-2.0\bin\gimp-2.2.exe';
  Params := 'C:\Documents and Settings\roman\Mis documentos\bookmark.png';
  ShellExecute(Handle, 'open', PChar(Exe), PChar(Params), nil, SW_SHOW);
end;

El error que manda Gimp es éste:




y eso que, al parecer, intenta varias cosas. Pero lo que se observa aquí es que los espacios en la ruta del archivo de la imagen, confunden al ejecutable pues es como si se mandaran varios parámetros.

De hecho, si se manda ese mismo Params a una aplicación Delphi, ParamCount muestra que hay cuatro parámetros:

• C:\Documents
• and
• Settings\roman\Mis
• documentos\bookmark.png

Por eso son necesarias las comillas dobles. Si el fragmento anterior las incluye:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Exe: String;
  Params: String;

begin
  Exe := 'C:\Archivos de programa\GIMP-2.0\bin\gimp-2.2.exe';
  Params := '"C:\Documents and Settings\roman\Mis documentos\bookmark.png"';
  ShellExecute(Handle, 'open', PChar(Exe), PChar(Params), nil, SW_SHOW);
end;

Gimp abre el archivo sin problemas.

Todo radica en un ejecutable y los parámetros que se mandan. Si un parámetro contiene espacios entonces debe encerrarse entre comillas dobles. Esto es independiente de si es Photoshop, Gimp o cualquier otro programa, de dibujo o de lo que sea.

// Saludos

[marcoszorrilla]

Anoche no seguí porque ya era algo tarde, pero confirmo lo que dice Román, estuve haciendo pruebas y en cuanto la ruta contiene espacios en blanco no funciona, por lo tanto es imperativo el uso de las comillas dobles.

Un Saludo.

[rafita]

Hola,
Sólo apostillar que la respuesta que te han dado los compañeros es correcta.

He hecho pruebas con este código y funciona perfectamente:

procedure TForm1.Button1Click(Sender: TObject);
var
  Exe: String;
  Params: String;
begin
  if ListBox1.ItemIndex<0 then ListBox1.ItemIndex:=0;
  Exe := 'C:\Archivos de programa\Adobe\Photoshop CS\PhotoShop.EXE';
  Params := QuotedStr('"'+ListBox1.Items[ListBox1.ItemIndex]+'"');
  ShellExecute(Handle, 'open', PChar(Exe), PChar(Params), nil, SW_SHOW);
end;

Observa la función QuotedStr, añade unas comillas simples al resultado de unir unas ComillasDobles + NombreFichero + ComillasDobles.

Si mi fichero es
C:\Documents and Setting\Rafita\Imagenes retocadas\Foto14.psd,
el parámetro que le pasas a ShellExecute es
'"C:\Documents and Setting\Rafita\Imagenes retocadas\Foto14.psd"'

Creo que el amigo HemSoft se había enterado con el post de Roman, pero por si acaso, añado esto.
Un saludo,

[tcp_ip_es]

yo tampoco aporto nada, tan solo la confirmación de que a mi me funciona perfectamente.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:= '"'+ ListBox1.Items[ListBox1.ItemIndex]+ '"';
ShellExecute(Handle, 'Open', 'Photoshop',PChar(s) , nil, SW_SHOW);
end;

y te dejo lo mismo pero con winexec por si las moscas....

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s2:String;
begin
s2:= '"C:\Archivos de programa\Adobe\Photoshop 7.0\photoshop.exe" "'+ ListBox1.Items[ListBox1.ItemIndex]+ '"';
WinExec(PChar(s2),SW_SHOWNORMAL);
end;

que por cierto también me funciona.... aqui hay algo que no nos estas contando

[HenSoft]

Gracias a todos por ayudarme. La idea de mostrar un mensaje o almacenarlo en una variable me demostró que tenía un \ de mas en otra parte del código y de ahí el error de photoshop.

Creo que ya podría cambiar el títuo del hilo de:

Misterio en Photoshop

a

Torpeza en Henry

Saludos y gracias a todos, son gente muy capaces

Henry

[[Delphius]]

Empezado por HenSoft

Gracias a todos por ayudarme. La idea de mostrar un mensaje o almacenarlo en una variable me demostró que tenía un \ de mas en otra parte del código y de ahí el error de photoshop.

Creo que ya podría cambiar el títuo del hilo de:

Misterio en Photoshop

a

Torpeza en Henry

Saludos y gracias a todos, son gente muy capaces

Henry

Ya lo decía yo...

Empezado por Yo

Para mi que hay algun dedito de por medio

No hay problema... a todos nos suele pasar. Si me pagaran por cada despistada yo sería rico.

Saludos,

[HenSoft]

Delphius muchas gracias, tenías razón con lo del dedito.

[[Al González]]

Empezado por roman

Pues no Al, las comillas dobles no están para ver si algo se nos escapa. Son imperativas. Vamos a ver un ejemplo más detallado...los espacios en la ruta del archivo de la imagen, confunden al ejecutable pues es como si se mandaran varios parámetros...Si un parámetro contiene espacios entonces debe encerrarse entre comillas dobles...

Claro, Román. Esto de las comillas dobles lo conocía desde hace tiempo, al fijarme cómo Windows definía las propiedades de algunos accesos directos (cuando recién se permitió el uso de espacios en las rutas de archivo), pero no me detuve a observar que no sólo mostrabas la cadena con ShowMessage, sino que además hacías la llamada a ShellExecute.

Mi sugerencia era solamente observar el valor de la cadena, para, primero que otra cosa, verificar visualmente si se trataba de un dato váldo. Mi sospecha era que hubiese algún espacio en blanco en alguno de los extremos o algún otro carácter con mayor posibilidad de conflicto (como al parecer fue el caso con la diagonal demás encontrada).

Saludos.

Al González.