Misterio en Photoshop

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

Código Delphi [-]
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

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

[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

Saludos

Henry

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

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

[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

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

[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