Printer.GetPrinter ??

[ascotlx]

Moin Liste,

ich habe da ein kleines Verständnis Problem:

ich möchte mir dem Anschluss eines Druckers anzeigen lassen, dies möchte
ich aber nicht über die Registry tun. Ich habe dazu Printer.GetPrinter genommen
und lasse mir nun die Variablen ausgeben die mir diese Prozedur liefert (Device, Driver, Port)
nur steht in Port nichts drin. Das Device wird angezeit, der Rest ist leer.

Delphi-Quellcode:

    ...
    type
    ...
    PrinterSetupDialog1: TPrinterSetupDialog;
    ...
    uses Printers;
    ....
    procedure TForm1.FormCreate(Sender: TObject);
    var
      ADevice, ADriver, APort: array [0..255] of Char;
      ADeviceMode: THandle;

    begin
    //  PrinterSetupdialog1.Execute;
      Printer.PrinterIndex := Printer.PrinterIndex;
      Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );

      Label1.Caption := ADevice;
      Label2.Caption := ADriver;
      Label3.Caption := APort;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      close;
    end;

... und nun kommt's, wenn ich die Zeile:

Delphi-Quellcode:

    PrinterSetupdialog1.Execute;

mit einbringe, bekomme ich den Port, aber nicht den Driver (ist mir derzeit aber
auch nicht so wichtig, mein Focus sitzt auf dem Port).

Warum muss ich einen Dialog öffnen um an die gewünschten Informationen zu kommnen.
Ist das nun ein Feature oder ein Bug ??
Kann mir jemand helfen, oder sagen ... das is' so ??!

Gruss und besten Dank
ascotlx

[Flocke]

In der Unit Printers.pas holt Delphi sich die Liste der zur Verfügung stehenden Drucker mit der API-Funktion EnumPrinters. Für NT und Nachfolger (2000, XP, 2003) geschieht dies mit Level 4, für ältere System (95, 98, Me) mit Level 5 (nur lokale Drucker).

In der PRINTER_INFO_4-Struktur (wg. Level 4) steht nur der Druckername (sowie der Servername) - das reicht aus, um den Drucker zu öffnen (insbesondere im Netz).

Der PrintDialog ruft die SetPrinter Methode des TPrinter-Objekts auf und übergibt dabei die zusätzliche Information. Allerdings wohl nur für den aktuellen Drucker.

Wenn du die Infos wirklich brauchst, dann rufe selbst EnumPrinters mit Level 5 auf - dann kriegst du auch den Port (Beispielcode kannst du dir in Printers.pas von Delphi ansehen).