Discussion :

[Lung]

Comment utiliser SetDefaultPrinter dans une application console ?

J'ai essayé, sans succès :

Code :

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

1
2
3
4
if not SetDefaultPrinter(PChar(MaVariableChaine)) then
if not SetDefaultPrinter(PChar(MonTableauDeChar)) then
if not SetDefaultPrinter(nil) then
if not SetDefaultPrinter('') then

Dans tous les cas, j'obtiens une EAccesViolation.

Que faut-il lui donner ?

[tourlourou]

As-tu essayé SetDefaultPrinterA (PANSICHAR) ?

Que donne GetDefaultPrinter ?

[Lung]

Que donne GetDefaultPrinter ?

Il fonctionne bien.
J'ai le nom de l'imprimante par défaut dans le buffer.

As-tu essayé SetDefaultPrinterA (PANSICHAR) ?

Non. Je viens d'essayer, et maintenant j'ai le message :

descripteur non valide

Code :

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

if not SetDefaultPrinterA(PAnsiChar(Printer.Printers[0])) then

[tourlourou]

Utilise SetDefaultPrinter...A ou ...W (PWideChar) selon le type de chaîne reçu dans le buffer au GetDefaultPrinter

[Lung]

Utilise SetDefaultPrinter...A ou ...W (PWideChar) selon le type de chaîne reçu dans le buffer au GetDefaultPrinter

Ca marche !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   {$IFDEF COMPILATION_SERVEURTELNET}
   // Recherche l'imprimante par défaut.
   if GetDefaultPrinter(Buffer, @nTaille) then
   begin
      // Si pas d'imprimante.
      if nTaille = 0 then
      begin
         if Printer.Printers.Count > 0 then
         begin
            // Définition d'une imprimante par défaut.
            if not SetDefaultPrinterW(PChar(Printer.Printers[0])) then
            begin

Étonnant que SetDefaultPrinter tout court ne fonctionne pas, et qu'il faille utiliser SetDefaultPrinterW !