automatische Druckerauswahl funktioniert nicht immer

[PASST]

Hi allerseits,

Delphi 4 (update 3), WinNT4 bzw. WinXP

Ich habe eine Anwendung, die auf diverse Drucker drucken soll. Dabei soll der Benutzer nicht mit der Druckerauswahl belästigt werden, sondern ich habe die Auswahl des Druckers fest in einer ini-Datei eingebaut. Um den Drucker festzulegen, verwende ich folgenden Code (s.u.), der in diversen Newsforen empfohlen wurde.

Delphi-Quellcode:

procedure TFMain.SetDefaultPrinter(PrinterName: String);
var
   i: Integer;
   Device, Driver, Port : PChar;
   HdeviceMode: Thandle;
   aPrinter : TPrinter;
begin
  Printer.PrinterIndex := -1;
  OriginalDrucker := Printer.Printers[Printer.PrinterIndex];
  getmem(Device, 255);
  getmem(Driver, 255);
  getmem(Port, 255);
  aPrinter := TPrinter.create;
  for i := 0 to Printer.printers.Count-1 do
  begin
    if (uppercase(Printer.printers[i]) = uppercase(PrinterName)) then
    begin
      aprinter.printerindex := i;
      aPrinter.getprinter(device, driver, port, HdeviceMode);
      StrCat(Device, ',');
      StrCat(Device, Driver );
      StrCat(Device, Port );
      WriteProfileString('windows', 'device', Device);
      StrCopy( Device, 'windows' );
      SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device));
   end;
  end;
  Freemem(Device, 255);
  Freemem(Driver, 255);
  Freemem(Port, 255);
  aPrinter.Free;
end;

Es ist jetzt schon zu häufig passiert, dass der Drucker nicht wechselt, sondern auf den Windows-Standard-Drucker ausgegeben wird. Erst beim Neustart des Programms funktioniert der Wechsel wieder. Der Fehler tritt unter NT4 auf, da unsere Clients vorwiegend NT-Maschinen sind.

Woran kann das liegen?
Oder kann mir jemand einen Tipp geben, wie ich das ganze umgehen kann?

Gruß
Peter

P.S.: SORRY, habe gerade gemerkt, dass ich den falschen Code eingefügt hatte. Das ist aber jetzt korrigiert!

[shmia]

Deine Funktion macht keinen Mucks, wenn der übergebene Druckername nicht gefunden wird.
Hier solltest du besser eine Exception auslösen.
Manchmal (abhängig vom OS) wird der Druckername in Printer.Printers[] so gemeldet:

Code:

Druckername an LPT1:
Deskjet 1200 on LPT2:

Die könnte dazu führen, dass der Vergleich der Druckernamen fehlschlägt.

[PASST]

Woran kann es denn liegen, dass es auf dem selben Rechner manchmal funktioniert und manchmal nicht?
Dieses Fehlverhalten habe ich von gestern auf heute an drei verschiedenen Rechnern feststellen können.

[Hansa]

Hi,

ich habe eine ähnliche Vorlage gefunden wie shmia (von Peter Below, Team B) und abgewandelt :

Delphi-Quellcode:

procedure Drucke (st : string);
var
  BytesWritten: DWORD;
  hPrinter: THandle;
  DocInfo: TDocInfo1;
begin
  if not WinSpool.OpenPrinter(DruckerName, hPrinter, nil) then
    raise exception.create('Drucker nicht gefunden !');
  try
    DocInfo.pDocName := DruckerName;  // von INI festgelegter Standard-Drucker
                                      // beeinflußt Win-Standarddrucker nicht !
    DocInfo.pOutputFile := Nil;
    DocInfo.pDatatype := 'RAW';
    if StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then
      Abort;
    try
      if not StartPagePrinter(hPrinter) then
        Abort;
      try
        if not WritePrinter(hPrinter, @st[1], Length(st), BytesWritten)
        then
          Abort;
      finally
        EndPagePrinter(hPrinter);
      end;
    finally
      EndDocPrinter(hPrinter);
    end;
  finally
    WinSpool.ClosePrinter(hPrinter);
  end;
end;

procedure DruckLn (st : string);
begin
  Drucke (st+chr (10) + chr (13));
end;

Kann man das so verwenden ? Oder kann ich auch drucken, ohne dauernd diese Prozedur zu bemühen ? Gehen tut das schon so, auch mit Netzwerkdruckern.

Und dann noch das :

Delphi-Quellcode:

DocInfo.pDatatype := 'RAW';

Habe festgestellt, daß eine Änderung von "RAW" dazu führt, daß der Drucker nicht druckt. Außerdem vermisse ich die Hilfe dazu. Ist die eventuell im Win-SDK ?