Drucken aus Windows-Dienst

[JohannesK]

Hallo,

ich habe ein Problem mit dem Drucken aus einem Windows-Dienst heraus bzw. bereits mit der Druckerzuweisung.

Folgender Quelltext:

Delphi-Quellcode:

for i := 0 to printer.printers.Count-1 do // heraussuchen aller definierten Windows-Drucker
    begin
    if printer.Printers.strings[i] = DrName then druckerindex := i;  // DrName kommt aus einem Datenbankeintrag
    end;
   
    printer.Printerindex := druckerindex;

   // die Alternative wäre:
    printer.SetPrinter(pChar(DrName), pchar('WINSPOOL'), PCHAR(''), Art);

Der Code funktioniert in einem normalen Progamm ohne Probleme, leider nicht in einem Dienst.

Hat jemand einen Tip ?

Gruss