Misterio en Photoshop

[HenSoft]

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

[dec]

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

[TOPX]

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.

[HenSoft]

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'

[coso]

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.

[Neftali [Germán.Estévez]]

...Creo que con un quotedstr lo solucionas.

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)

[HenSoft]

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

[maeyanes]

Hola...

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


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

[HenSoft]

Con comillas y todo sigue dando el siguiente error:

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

Saludos

[coso]

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

[HenSoft]

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

[coso]

¿nos puedes poner la linea?

[HenSoft]

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

[coso]

¿esa es la ultima linea?

[coso]

¿la misma que al principio?

[HenSoft]

si, la misma

[coso]

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

[Delphius]

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

PChar(ListBox1.Items.Strings[ListBox1.ItemIndex])

Saludos,

[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

[HenSoft]

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

[coso]

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:


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!

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

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]

¿Y esos corchetes?

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

[Delphius]

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

[roman]

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


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:

http://img89.imageshack.us/img89/7984/errorshellexecutejg9.png (http://imageshack.us)
http://img89.imageshack.us/img89/errorshellexecutejg9.png/1/w422.png (http://g.imageshack.us/img89/errorshellexecutejg9.png/1/)

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:


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


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

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

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


Para mi que hay algun dedito de por medio:D

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]

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