Discussion :

[Ben_Le_Cool]

Bonjour,

J'ai une commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 ShellExecute(Handle, 'Print', PChar(sFilename), nil, nil, SW_HIDE);

Cette commande fonctionnait bien depuis des années et le principe était que je détruit le fichier (qui est en fait temporaire) juste après. Mais sur des postes où sont installés Office 2010 ou office 2013, l'utilisateur a un message d'erreur indiquant que le fichier n'existe pas. Le fichier est donc effacé trop vite.
La question est: pourquoi ça marchait avec les autres versions d'Office? Comment prévenir ça?

PS: J'ai essayé avec des Sleep, ça ne fonctionne pas.

Merci.

[Ph. B.]

Bonjour,

Cette commande fonctionnait bien depuis des années et le principe était que je détruit le fichier (qui est en fait temporaire) juste après. Mais sur des postes où sont installés Office 2010 ou office 2013, l'utilisateur a un message d'erreur indiquant que le fichier n'existe pas. Le fichier est donc effacé trop vite.
La question est: pourquoi ça marchait avec les autres versions d'Office? Comment prévenir ça?

PS: J'ai essayé avec des Sleep, ça ne fonctionne pas.

La présence du fichier est-elle vérifiée avant l'appel à ShellExecute ?
L'erreur affichée est-elle celle fournie par ShellExecute ?
Comment se fait la suppression sachant que ShellExecute rend la main dès le traitement lancé (et donc pas forcément terminé) ?

[Ben_Le_Cool]

Bonjour,
La présence du fichier est-elle vérifiée avant l'appel à ShellExecute ?
L'erreur affichée est-elle celle fournie par ShellExecute ?
Comment se fait la suppression sachant que ShellExecute rend la main dès le traitement lancé (et donc pas forcément terminé) ?

Oui, il y a une vérification juste avant l'appel à ShellExecute.
L'erreur est affichée en dehors de mon application.
La suppression se fait juste après l'appel à ShellExecute. Mais comme je l'ai mentionné plus haut, cette portion de code fonctionnait depuis des années. Il a fallu qu'on installe Office 2010 ou Office 2013 pour que l'erreur apparaisse. Sur le même poste, si désinstalle Office 2010 et on installe Office 2003, l'erreur n'apparait pas et l'impression est faite le plus normalement du monde.

[Ph. B.]

Oui, il y a une vérification juste avant l'appel à ShellExecute.
L'erreur est affichée en dehors de mon application.
La suppression se fait juste après l'appel à ShellExecute. Mais comme je l'ai mentionné plus haut, cette portion de code fonctionnait depuis des années. Il a fallu qu'on installe Office 2010 ou Office 2013 pour que l'erreur apparaisse. Sur le même poste, si désinstalle Office 2010 et on installe Office 2003, l'erreur n'apparait pas et l'impression est faite le plus normalement du monde.

Avez vous essayé avec ShellExecuteEX qui ne permet de "reprendre" la main qu'une fois que l'application appelée a rendu la main ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
//..
  //
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  SEInfo.Wnd := Self.Handle;
  SEInfo.lpVerb := PChar('print');
  SEInfo.lpFile := PChar(sFilename);
  SEInfo.nShow := SW_HIDE;
 
  if ShellExecuteEx(@SEInfo) then
    repeat
      Sleep(250);
      GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated
  else
      MessageDlg('Erreur d''impression de ' + sFilename, mtError, [mbOK], 0);

Sinon, quelle version de Delphi ? quel nom de fichier (c.a.d. des caractères hors du commun) ?

[Ben_Le_Cool]

Je testerai ce bout de code demain et je te tiendrai au courant.
Pour le nom de fichier, pas de soucis de ce coté, comme je l'ai dit, ce bout de code fonctionne très bien avec les autres versions d'Office.
J'utilise Delphi 2010.