Unit Printers... Probleme mit Printerindex

[Jelly]

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.