Misterio en Photoshop

[[coso]]

Código Delphi [-]
ShellExecute(Handle, 'Open', 'Photoshop', pchar('"' + ListBox1.Items[ListBox1.ItemIndex] + '"'), nil, SW_SHOW);

esta linea no te funciona...prueba abrir photoshop desde consola con algun parametro, a ver que ocurre.

[roman]

Yo pediría primero esto:

Código Delphi [-]
var
  S: String;

...

S := '"' + ListBox1.Items[ListBox1.ItemIndex] + '"';
ShowMessage(S);
ShellExecute(Handle, 'Open', 'Photoshop', pchar(S), nil, SW_SHOW);

y que nos diga exactamente que dice el ShowMessage.

// Saludos

[[Al González]]

¡Hola!

Empezado por Delphius

...es posible que se deba a que la propiedad Items es de tipo TStrings y la función PChar() no interpreta apropiadamente este tipo...

Si Items es un derivado de TStrings, entonces la expresión ListBox1.Items[ListBox1.ItemIndex] es de tipo String, y por tanto no presenta problemas para convertirse a PChar.

Cuando pasa algo como esto, lo primero que solemos hacer es verificar cuál es el valor que está arrojando la expresión sospechosa. Una instrucción como

Código Delphi [-]
ShowMessage ('[' + ListBox1.Items[ListBox1.ItemIndex] + ']');

(o usar el depurador) bastaría para empezar a indagar dónde está el problema.

Saludos.

Al.

[roman]

¿Y esos corchetes?

// Saludos

[marcoszorrilla]

Curioso, pero acabo de realizar la siguiente prueba y funciona correctamente.

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;

Un Saludo.

[roman]

Marcos, en tu prueba, ¿qué contiene ListBox1.Items[ListBox1.ItemIndex]? Hay algún espacio?

// Saludos

[marcoszorrilla]

Exactamente:

C:\Fotos\ClubDelphi\jachguate.jpg


Un Saludo.

[[Al González]]

Empezado por roman

¿Y esos corchetes?

// Saludos

Ah, los corchetes.

Son, si no me equivoco, para lo mismo que tú has empleado las comillas dobles a los extremos de la concatenación (ahora he visto que ambos planteamos al mismo tiempo la sugerencia del ShowMessage ). Vaya, que lo importante es usar algún par de caracteres visibles a los extremos para ver si de casualidad la cadena en cuestión lleva algún carácter invisible al comienzo o al final que sea la causa de la anomalía presentada.

Saludos.

Al.

P.D. En mi caso el uso de corchetes es una antigua y arraigada costumbre.

[[Delphius]]

Empezado por roman

ListBox1.Items.Strings[ListBox1.ItemIndex] viene a ser lo mismo que ListBox1.Items[ListBox1.ItemIndex].

Yo opino como coso, la última línea que pone es la misma que al principio, o sea ...

// Saludos

Me consta de que es lo mismo... no más lo decía para probar, y sacar dudas... me resulta tan extraño que no funcione con leer desde Items... que me dije ¡entonces probemos con otra cosa!

Para mi que hay algun dedito de por medio O la última... en una de esas PhotoShop espera otros parámetros antes y/o después ¡Ya no se que podría decir! Se me acaban las ideas. No tengo Photoshop.

Saludos,

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

[noeljr]

hola:

yo he hecho pruebas y me funciona perfectamente aunque es con el Paint Shop Pro, pero creo que es igual.

lo que me gustaría saber es si en las líneas del listbox aparece toda la dirección del fichero, por ejemplo:

c:\temporal\imagen1.jpg

o si sólo aparece imagen1.jpg

si sólo aparece el nombre del fichero no se podrá abrir pero si pones en cada línea del listbox la ruta completa creo que no tendrás problema.

miguel núñez