¿Por qué ShellExecute imprime pdf en win8 y no en win7?

[[Waldo]]

Buen día, hola tengo este código

Código Delphi [-]
ShellExecute(Self.Handle,'print',PChar('archivo.pdf'),NIL,NIL,0);

en la maquina donde se desarrolla ejecuta perfectamente la función, pero cuando llevo la aplicación a otra maquina no hace nada. no entiendo el porque. ojala me podrían ayudar.

[[Waldo]]

Empezado por Waldo

Buen día, hola tengo este código

Código Delphi [-]
ShellExecute(Self.Handle,'print',PChar('archivo.pdf'),NIL,NIL,0);

en la maquina donde se desarrolla ejecuta perfectamente la función, pero cuando llevo la aplicación a otra maquina no hace nada. no entiendo el porque. ojala me podrían ayudar.

También he descubierto que tampoco me ejecuta la apertura del archivo PDF, es como si no funcionara el shellexecute

[look]

Empezado por Waldo

También he descubierto que tampoco me ejecuta la apertura del archivo PDF, es como si no funcionara el shellexecute

¿esta instalado algun lector de pdf en la pc que no funciona?

[[Waldo]]

Empezado por look

¿esta instalado algun lector de pdf en la pc que no funciona?

Si por que ejecuto el archivo desde el explorador y me abre el acrobat sin problemas.

[Casimiro Notevi]

Por favor, no olvides poner títulos descriptivos a tus preguntas, "Ayuda" no es ningún título que describa nada.
A ver si damos ejemplo, que eres un usuario "Premium"

[[Waldo]]

Empezado por Casimiro Notevi

Por favor, no olvides poner títulos descriptivos a tus preguntas, "Ayuda" no es ningún título que describa nada.
A ver si damos ejemplo, que eres un usuario "Premium"

Una disculpa tienes razon. Ojala pudiera modificarlo.

[Casimiro Notevi]

Empezado por Waldo

Una disculpa tienes razon. Ojala pudiera modificarlo.

.

[[Waldo]]

Código Delphi [-]
ShellExecute(0, nil, 'calc.exe', '', '', SW_SHOWNORMAL);

esa instrucción si me la ejecuta en las otras maquinas pero la de Print no, realmente ya me siento desesperado.

[Casimiro Notevi]

Empezado por Waldo

Código Delphi [-]ShellExecute(0, nil, 'calc.exe', '', '', SW_SHOWNORMAL);


esa instrucción si me la ejecuta en las otras maquinas pero la de Print no, realmente ya me siento desesperado.

¿La de Print?

[[Waldo]]

Empezado por Casimiro Notevi

¿La de Print?

Amigo me refiero al código inicial que puse es una instrucción para imprimir un archivo pdf, me funciona en windows 8 pero en 7 no.

[The_Duke]

Revisa que el servicio de cola de imprecion esta activado y que tenga impresora instalada

[[Waldo]]

Empezado por The_Duke

Revisa que el servicio de cola de imprecion esta activado y que tenga impresora instalada

Gracias por contestar, Tengo instalado varia impresoras que el mismo sistema utiliza sin problemas, también esta instalado el programa asociado al archivo en este caso el pdf, la cola de impresión esta vacía, y eso sucede en las otras dos maquinas que utilizan windows 7, ya revise permisos del ejecutable, todas las maquinas son a 32 bits, donde si funciona es en windows 8, y es precisamente donde se programa en delphi 7.

[Casimiro Notevi]

Empezado por Waldo

Amigo me refiero al código inicial que puse es una instrucción para imprimir un archivo pdf, me funciona en windows 8 pero en 7 no.

Bueno, todo eso lo sabes tú, pero no es lo que has preguntado al inicio.

[[Waldo]]

Empezado por Casimiro Notevi

Bueno, todo eso lo sabes tú, pero no es lo que has preguntado al inicio.

ok lo expongo de nuevo...

Código Delphi [-]
ShellExecute(Self.Handle,'print',PChar('archivo.pdf'),NIL,NIL,0);

esta instrucción me funciona bien en windows 8, y es el equipo donde se programa.

pero cuando el ejecutable es llevado a otra pc no funciona, de hecho no marca error siquiera, simplemente es como si no existiera la instrucción.

pero cuando utilizo

Código Delphi [-]
ShellExecute(0, nil, 'calc.exe', '', '', SW_SHOWNORMAL);

si funciona en todas las maquinas

[ecfisa]

Hola Waldo.

De lo leído del hilo quedaría revisar la existencia, el nombre y la ruta del archivo .PDF en los equipos en que no ejecuta la impresión. Si ShellExecute recibe un nombre de archivo inválido no mostrará error de ningún tipo pero no realizará la acción.

Para salir de dudas proba de la siguiente forma:

Código Delphi [-]
procedure PrintPDF(aFileName: TFileName);
begin
  if not FileExists(aFileName) then
    raise Exception.Create('Error en la ruta o el nombre del archivo');
  ShellExecute(Screen.ActiveForm.Handle, 'print', PChar(aFileName), nil ,nil, 0)
end;

// llamada:
...
begin
  PrintPDF('archivo.pdf');
end;

Saludos

[[Waldo]]

Empezado por ecfisa

Hola Waldo.

De lo leído del hilo quedaría revisar la existencia, el nombre y la ruta del archivo .PDF en los equipos en que no ejecuta la impresión. Si ShellExecute recibe un nombre de archivo inválido no mostrará error de ningún tipo pero no realizará la acción.

Para salir de dudas proba de la siguiente forma:

Código Delphi [-]
procedure PrintPDF(aFileName: TFileName);
begin
  if not FileExists(aFileName) then
    raise Exception.Create('Error en la ruta o el nombre del archivo');
  ShellExecute(Screen.ActiveForm.Handle, 'print', PChar(aFileName), nil ,nil, 0)
end;

// llamada:
...
begin
  PrintPDF('archivo.pdf');
end;

Saludos

Utilice el código sugerido, no me arroja ningún error, ya verifique manualmente que el archivo existe y que la dirección del archivo a imprimir es correcto, y nada lo ignora, pero cuando lo hago en la pc donde lo programo funciona perfecto.

[[Waldo]]

Logre solucionarlo, curiosamente cuando me iba a la carpeta de los archivos pdf, y lo ejecutaba abría el acrobat sin problemas por lo que suponía que estaba asociado el archivo, hasta que utilice este código,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 errorcode: integer;
begin
 errorcode :=
  ShellExecute(0, 'open', pchar('c:\test.txt'), nil, nil, SW_NORMAL);
 case errorcode of
  2:showmessage('file not found');
  3:showmessage('path not found');
  5:showmessage('access denied');
  8:showmessage('not enough memory');
  32:showmessage('dynamic-link library not found');
  26:showmessage('sharing violation');
  27:showmessage('filename association incomplete or invalid');
  28:showmessage('DDE request timed out');
  29:showmessage('DDE transaction failed');
  30:showmessage('DDE busy');
  31:showmessage('no application associated with the given filename extension');
 end;

que me ayudo claramente que era lo que sucedía. y Bingo según el sistema no hacia ninguna aplicación asociada al archivo ( raro) por lo que tuve que renacer la asociación de archivo y listo. Gracias a todos por el interés y su tiempo.

[[AzidRain]]

La solución que encontraste era la primera a probar. Si no tienes asociada ninguna aplicación a un archivo x, así mandes n comandos windows nunca hará nada con ellos porque no sabe con que aplicación usarlos. Lo quise poner aquí para que sirva de referencia a alguien con la misma duda.

[ecfisa]

Hola AzidRain.

Y tenés toda la razón en tu apreciación. Pero del mensaje #12, creí entender que ya había explorado esa posibilidad:

Empezado por Waldo

Gracias por contestar, Tengo instalado varia impresoras que el mismo sistema utiliza sin problemas, también esta instalado el programa asociado al archivo en este caso el pdf, la cola de impresión esta vacía, y eso sucede en las otras dos maquinas que utilizan windows 7, ya revise permisos del ejecutable, todas las maquinas son a 32 bits, donde si funciona es en windows 8, y es precisamente donde se programa en delphi 7.

Saludos