Komponente TPrinterInfo v2.0

[toms]

Zitat:

Zitat von RWarnecke

Die Komponente steht für folgende Delphi-Versionen zur Verfügung :

:arrow: Delphi 6
:arrow: Delphi 7
:arrow: Delphi 2005
:arrow: Delphi 2006
:arrow: Delphi 2007
:arrow: Delphi 2009

Funktioniert auch unter D5, wenn

Zeile 128 geändert wird zu

Delphi-Quellcode:

constructor Create(AOwner: TComponent);

ud Zeile 195 zu:

Delphi-Quellcode:

inherited Create;

[RWarnecke]

Hallo Toms,

welche Version hast Du als Ausgang genommen für die Änderungen ? Denn in den Zeilen 128 und 195 steht bei mir das nicht.

[toms]

Die oben verlinkte Unit "Download als Komponente"

Delphi-Quellcode:

constructor TPrinterInfo.Create(AOwner: TComponent);
begin
  inherited Create; //<- geändert!

Delphi-Quellcode:

    property PaperTrays         : TStrings     read GetPaperTrays;
    property PaperSizes         : TStrings     read GetPaperSizes;
    constructor Create(AOwner: TComponent);
    destructor Destroy; override; //<- geändert!
  end;

[RWarnecke]

Dank dem Hinweis von Toms, habe ich die Komponente nun für Delphi 5 online gestellt.

[RWarnecke]

Hallo zusammen,

ich habe jetzt die Entwicklung an der Unit GetPrinterInfo.pas eingestellt und führe alle Änderungen und Erweiterungen nur noch in der Komponente durch. Wer Turbo Delphi besitzt kann diese Komponente trotzdem noch weiter nutzen, indem er in die USES-Klausel PrinterInfoComp einfügt und die Komponente zur Laufzeit erstellt.

Das aktuelle Changelog sieht folgendermaßen aus :

Changelog:
Version 1.6:

[+] Eigenes Icon für die Komponente hinzugefügt, welches in der Toolpalette angezeigt wird.
[+] Property "ColorPrinting" hinzugefügt. Damit kann überpüft werden ob der Drucker Farbe drucken kann
[+] Property "JobNameList" hinzugefügt. Dient zum Anzeigen der Jobnamen aus der Druckerqueue

ChangeLog erstellt durch DevProject Manager und phpbb Plugin

Testet bitte fleißig und gebt mir reichlich Feedback, da es meine erste Komponente ist. :wink:

[RWarnecke]

Hallo zusammen,

ich habe die Komponente TPrinterInfo erweitert und das Update online gestellt. Alles weitere erfahrt Ihr im Changelog oder im Kommentar der Unit PrinterInfo.pas.

Changelog:
Version 2.0:
[+] Die Eigenschaft "Memory" hinzugefügt
[+] Die Eigenschaft "SupportDuplex" hinzugefügt
[+] Die ID des Standarddrucker als Eigenschaft hinzugefügt. (z.B. für eine Auswahl in einer Combobox)
[+] Mehrere Properties für die Komponente TJobInfo hinzugefügt. (siehe Kommentar in der Unit)
[+] Neue Komponente TJobInfo für die Informationen der Druckeraufträge.
[+] TPrinterCustomInfo als Steuerungsklasse für TJobInfo und TPrinterInfo hinzugefügt.[*] Die Hauptklasse TPrinterCustom erstellt[*] Die Liste der Jobnamen kann jetzt über die Klasse TJobInfo abgerufen werden.

Testet einfach mal die Komponente und gebt mir Feedback, was Ihr davon haltet und was man noch verbessern kann.

Edit: Rechtschreibfehler korrigiert.

[toms]

Zitat:

Zitat von RWarnecke

[+] Die Eigenschaft "SuportDuplex" hinzugefügt

Sollte das nicht SupportsDuplex heißen?

[RWarnecke]

Zitat:

Zitat von toms

Sollte das nicht SupportsDuplex heißen?

Ja, stimmt. Danke.

[baumina]

Hallo Rolf,

der Link stimmt zwar nimmer, aber ich denke ich hab Dein Projekt hier gefunden. Danke dafür.

Zu deiner Info: Um das MemoryLeak zu vermeiden, habe ich bei mir im destructor TPrinterCustom.Destroy ein FreeAndNil(FPrinterListName) hinzufügen müssen.