Misterio en Photoshop
 

Hola a todos:

Curiosamente me sucede esto:

Quiero abrir una imágen con photoshop. El usuario escoge de un listbox un elemento y pincha un botón para que se abra esa imágen con Photoshop. Para ello utilizo el siguiente código:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar(ListBox1.Items[ListBox1.ItemIndex]), nil, SW_SHOW);

Pero Photoshop no abre la imagen, dice que el archivo no es correcto :eek:. Si le paso un string en ves del elemento del listbox funciona perfecto, algo así:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar('C:\imagen.jpg'), nil, SW_SHOW);

¿Alguien me ayuda? Necesito abrir la imagen con photoshop pero pasandole la dirección del archivo desde un listbox.

Saludos :rolleyes:

Henry

Hola,

¿El "listbox" contiene las rutas absolutas de las imágenes? Supongo que sí, y, entonces, no me explico cómo no funciona, sobre todo si dices que funciona pasándole una "cadena" con la ruta de una determinada imagen...

Hola,

Asumiendo que en el ListBox está la ruta completa de la imagen, podría probar asignando ListBox1.Items[ListBox1.ItemIndex] a una variable String antes y así el Pointer Char tenga dónde apuntar con más seguridad.

Y... siempre tendrá la ruta del ejecutable de PhotoShop en la variable de entorno PATH? porque si no, sería bueno incluirla en el parámetro de ShellExecute.

Pues he probado todo eso ya y no se porque no funciona, de hecho photoshop se abre, pero genera un error, en el listbox está la dirección completa de la imagen y no pongo la ruta de photoshop sino solo 'Photoshop'

Hola,
si le estas pasando la cadena asi tal cual, por ejemplo listbox1.Items[0] := 'c:\archivos de programa\fichero.gif', estas llamando a ejecutar asi:

photoshop c:\archivos de programa\fichero.gif

donde el primer argument es 'c:\archivos', el segundo 'de', y el tercero 'programa\fichero.gif'. Creo que con un quotedstr lo solucionas. saludos.

O añadir comillas dobles, en lugar de las simples que añade QuetedStr.
Revisa que no tengas ningun espacio (supongo que ya lo has hecho)

Gracias a todos por su ayuda, aun no resuelvo el problema. Si uso quotedstr entonces se abre photoshop con su asistente para crear una imagen en blanco. ¿Cómo puedo probar con las dos comillas?

¿Será photoshop el del problema y no Delphi? ¿Entonces por qué con el string en ves del pchar funciona perfectamente?

Saludos

Henry

Hola...

Para hacerlo con doble comilla solo tienes que hacer algo como esto:

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

Lo anterior sería algo como photoshop "c:\archivos de programa\fichero.gif"



Saludos...

Con comillas y todo sigue dando el siguiente error:

No se ha podido cumplir porque porque no es el tipo de documento correcto.

Saludos

hola, creo q el photoshop abre .psp, aunque puede importar .jpg, etc...¿si pruebas de abrir un documento .psp tambien te dice documento incorrecto?

El archivo de proyecto de photoshop es .PSD pero abre imagenes .jpg, .bmp, .gif, ect sin tener que importarlas. Acabo de probar con un archivo .PSD y hace exactamente lo mismo.

Continúa el misterio :confused:

Saludos

Henry

¿nos puedes poner la linea?

Aqui va de nuevo:

Quiero abrir una imágen con photoshop. El usuario escoge de un listbox un elemento y pincha un botón para que se abra esa imágen con Photoshop. Para ello utilizo el siguiente código:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar(ListBox1.Items[ListBox1.ItemIndex]), nil, SW_SHOW);

Pero Photoshop no abre la imagen, dice que el archivo no es correcto :eek:. Si le paso un string en ves del elemento del listbox funciona perfecto, algo así:

if not (ListBox1.ItemIndex=-1) then
ShellExecute(Handle, 'Open', 'Photoshop', pchar('C:\imagen.jpg'), nil, SW_SHOW);

¿esa es la ultima linea?

¿la misma que al principio?

si, la misma

entonces...¿no has probado nada de lo que te hemos dicho?

¿Y te funciona empleando una variable string de forma intermedia? Es decir almacenando en una variable string el contenido del ListBox y luego pasando dicha variable en ShellExecute.

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

¿Porqué no pruebas con emplear esto?

Código Delphi [-]
PChar(ListBox1.Items.Strings[ListBox1.ItemIndex])

Saludos,

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

Por supuesto que he probado todo lo que me han dicho y todo lo que he alcanzado a imaginarme, pero simplemente no funciona. Acabo de probar la variante de Delphius y nada.

No por gusto le puse a este hilo como asunto: Misterio en Photoshop :eek:

Saludos

Henry

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.

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

¡Hola!

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. :)

¿Y esos corchetes?

// Saludos

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.

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

// Saludos

Exactamente:

C:\Fotos\ClubDelphi\jachguate.jpg


Un Saludo.

Ah, los corchetes. :p

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. ;)

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:D 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,

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

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.

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:

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,

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 :D

Problema resuelto
 

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

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

Saludos,

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.

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