[D2010] Comment utiliser SetDefaultPrinter dans une application console ?

Comment utiliser SetDefaultPrinter dans une application console ?

J'ai essayé, sans succès :

Code:

---

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. :bug:

Que faut-il lui donner ?
:hola:

As-tu essayé SetDefaultPrinterA (PANSICHAR) ?

Que donne GetDefaultPrinter ?

Citation:

---

Envoyé par tourlourou

Que donne GetDefaultPrinter ?

---

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

Citation:

---

Envoyé par tourlourou

As-tu essayé SetDefaultPrinterA (PANSICHAR) ?

---

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

Citation:

---

descripteur non valide

---

Code:

---

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

---

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

Citation:

---

Envoyé par tourlourou

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

---

Ca marche !! 8O

:merci:

Code:

---

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 !