Misterio en Photoshop

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

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

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

[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