Unit Printers... Probleme mit Printerindex

[Jelly]

Zum verrückt werden... Auf einigen Rechner im LAN hab ich folgendes Verhalten, wenn ich versuche in der Klasse TPrinter (Unit Printers) den Printerindex auszulesen. Folgender Code führt dann zu der Fehlermeldung There is no default printer currently selected

Delphi-Quellcode:

Showmessage (format('Printerindex = %d',[Printer.PrinterIndex])) ;

Kuck ich mir die Gettrmethode von PrinterIndex an:

Delphi-Quellcode:

function TPrinter.GetPrinterIndex: Integer;
begin
  if FPrinterIndex = -1 then SetToDefaultPrinter;
  Result := FPrinterIndex;
end;

scheint wohl FPrinterindex = -1 der Fall zu sein, da in die Prozedur SetToDefaultPrinter gesprungen wird:

Delphi-Quellcode:

procedure TPrinter.SetToDefaultPrinter;
var
  I: Integer;
  ByteCnt, StructCnt: DWORD;
  DefaultPrinter: array[0..79] of Char;
  Cur, Device: PChar;
  PrinterInfo: PPrinterInfo5;
begin
  ByteCnt := 0;
  StructCnt := 0;
  if not EnumPrinters(PRINTER_ENUM_DEFAULT, nil, 5, nil, 0, ByteCnt,
    StructCnt) and (GetLastError <> ERROR_INSUFFICIENT_BUFFER) then
    RaiseLastWin32Error;
  PrinterInfo := AllocMem(ByteCnt);
  try
    EnumPrinters(PRINTER_ENUM_DEFAULT, nil, 5, PrinterInfo, ByteCnt, ByteCnt,
      StructCnt);
    if StructCnt > 0 then
      Device := PrinterInfo.pPrinterName
    else begin
      GetProfileString('windows', 'device', '', DefaultPrinter,
        SizeOf(DefaultPrinter) - 1);
      Cur := DefaultPrinter;
      Device := FetchStr(Cur);
    end;
    with Printers do
      for I := 0 to Count-1 do
      begin
        if TPrinterDevice(Objects[I]).Device = Device then
        begin
          with TPrinterDevice(Objects[I]) do
            SetPrinter(PChar(Device), PChar(Driver), PChar(Port), 0);
          Exit;
        end;
      end;
  finally
    FreeMem(PrinterInfo);
  end;
  RaiseError(SNoDefaultPrinter);
end;

Und diese Methode ruft in der letzten Zeile die besagte Fehlermeldung auf.

Aber warum ist FPrinterindex = -1. Es ist definitiv ein Standarddrucker definiert auf dem System. Auch das manuelle Setzen in meinem Code mittels

Delphi-Quellcode:

Printer.Printerindex := 0 ;

führt zu gleicher Fehlermeldung.

Kennt jemand diese Phänomen. Ich weiss irgendwie nicht mehr weiter.

[shmia]

Zitat:

Zitat von Jelly

Zum verrückt werden... Auf einigen Rechner im LAN hab ich folgendes Verhalten, wenn ich versuche in der Klasse TPrinter (Unit Printers) den Printerindex auszulesen.

Einfach an den betroffenen Rechnern Startmenu -> Einstellungen -> Drucker und Fax
Einen Drucker doppel-klicken und dann im Menue Drucker->Als Standard Drucker festlegen, Fertig

[Jelly]

Zitat:

Zitat von shmia

Einfach an den betroffenen Rechnern Startmenu -> Einstellungen -> Drucker und Fax
Einen Drucker doppel-klicken und dann im Menue Drucker->Als Standard Drucker festlegen, Fertig

Dort ist ja ein Standarddrucker definiert...

Nach langem Googeln hab ich jetzt das hier gefunden. Es scheint unter Delphi 4 ein Problem beim Druckernamenvergleich zu geben, weil zwischen Gross- und Kleinschreibung unterschieden wird. In der obigen SetToDefaultPrinter Methode in der Printers Unit habe ich dann folgenden Abschnitt von

Delphi-Quellcode:

for I := 0 to Count-1 do 
begin 
   if TPrinterDevice(Objects[I]).Device = Device then 
   begin 
     with TPrinterDevice(Objects[I]) do 
       SetPrinter(PChar(Device), PChar(Driver), PChar(Port), 0); 
     Exit; 
   end; 
end;

geändert in

Delphi-Quellcode:

for I := 0 to Count-1 do 
begin 
   if uppercase(TPrinterDevice(Objects[I]).Device) = uppercase (Device) then 
   begin 
     with TPrinterDevice(Objects[I]) do 
       SetPrinter(PChar(Device), PChar(Driver), PChar(Port), 0); 
     Exit; 
   end; 
end;

Erste Tests an einigen Rechner ware erfolgreich. Scheint also daran gelegen zu haben.

[generic]

ich hab hier im netzwerk ein ähnliches problem.
allerdings mit quickreport.

dieser ist manchmal der meinung das die tprinterliste anders ist als wie die api abfragt.
bei uns kommt das deswegen weil die drucker entweder direkt am server anschlossen sind und der user den drucker "lokal" nutzt.
wenn er am client pc sitzt nutzt er den netzwerk drucker.

die tprinter ermittelt dann (bei uns) den namen falsch. das hat auch etwas mit dem profil des users zu tun.
in der registry stehen dann mehr drucker als wie der user anwählen kann, weil ja die lokalen server drucker nicht mehr verfügbar sind. diese heissen aber gleich.

kompliziertes problem, kompliziert zu beschreiben, aber vieleicht hilft es dir ja.
(std-drucker setzten hilft bei uns nicht)

ein work arround geht wenn es nur netzwerkdrucker am pc gibt, alle löschen im user profil und neu verbinden.

[Jelly]

Zitat:

Zitat von generic

ein work arround geht wenn es nur netzwerkdrucker am pc gibt, alle löschen im user profil und neu verbinden.

Wir haben hier NUR Netzwerkdrucker. Das Problem lag wirklich an der Gross- und Kleinschriebprüfung in der Printers Unit. Scheint auch nur bei Delphi 4 aufzutreten. Unter Delphi 6 werden die Druckenamen caseinsensitive verglichen.