AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Verfügbare Druckerschächte eines Druckers anzeigen

Verfügbare Druckerschächte eines Druckers anzeigen

Ein Thema von jaevencooler · begonnen am 4. Jan 2006 · letzter Beitrag vom 26. Jan 2010
Antwort Antwort
Seite 1 von 2  1 2   
jaevencooler

Registriert seit: 8. Sep 2005
Ort: Friedrichshafen
41 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 4. Jan 2006, 17:00
Moin, Moin,

folgendes Problem:

Ich möchte eine Liste aller verfügbaren Schächte eine installierten Druckers finden, und anzeigen, sowie den Bincode herausfinden.

Hat jemand eine Idee


Beste Grüße
Michael
Michael
Wissen ist Macht, nichts wissen macht auch nichts.
  Mit Zitat antworten Zitat
WePo

Registriert seit: 11. Jan 2006
Ort: Buttenheim
20 Beiträge
 
Delphi 6 Professional
 
#2

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 11. Jan 2006, 19:30
Hi,
da jeder Druckerhersteller andere codes verwendet nutze mal ein Testprogramm.
www.qusoft.com / DIY Fixes / This article.
Dies ist die Seite von Quickreport. Deine Version D5 Ent sollte zudem über die source-codes , insbesondere qrprinter.pas verfügen. Du kannst dann das Druckerarray anpassen. Weiters auf der QR-Hilfeseite.
Gruß Werner
Machen wir dem Fehlerteufel einen Knoten in den Schwanz
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#3

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 11. Jan 2006, 22:42
Hallo,

erstmal willkommen in der DP

Das könnte auch Dir helfen:
Delphi-Forum: [TPrinter, VCL Win32] Papierquelle/Papierfach ermitteln und setzen
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
squetk

Registriert seit: 29. Aug 2004
Ort: Cottbus
118 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 13. Jan 2006, 00:35
Hallo,

die Klasse TJclPrintSet der JCL des Projekts JEDI verwaltet u.a. auch die Druckerschächte recht komfortabel.
  Mit Zitat antworten Zitat
QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.629 Beiträge
 
Delphi 10.3 Rio
 
#5

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 23. Okt 2006, 12:37
ja, aber leider GPL.
Andreas
#PerfMatters
  Mit Zitat antworten Zitat
Reinhard Kern

Registriert seit: 22. Okt 2006
772 Beiträge
 
#6

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 23. Okt 2006, 15:40
Zitat von jaevencooler:
Moin, Moin,

folgendes Problem:

Ich möchte eine Liste aller verfügbaren Schächte eine installierten Druckers finden, und anzeigen, sowie den Bincode herausfinden.

Hat jemand eine Idee :drunken:


Beste Grüße
Michael
Hallo Michael,

im Attachment ein Programm, das unter anderem genau das macht, Ausgabe u.a.:

Text Caps :
Supports character output precision.
Supports 90-degree character rotation.
Supports character rotation at any degree.
Supports underlining.
Supports strikeouts.
Paper Bins :
Automatischer Einzug = 7
Mehrzweckfach (MZ) = 1
Kassette = 2
Manuelle Papierzufuhr = 4
Untere Kassette = 11
Umschlag-Zuführung = 5
Paper Sizes :
Letter (8 ½ x 11 Zoll) = 1 (215.9x279.4)
Legal (8 ½ x 14 Zoll) = 5 (215.9x355.6)
Executive (7 ¼ x 10 ½ Zoll) = 7 (184.1x266.7)
A4 (210 x 297 mm) = 9 (209.9x296.9)
Com-10 Umsch (4 1/8 x 9½ Zoll) = 20 (104.7x241.3)
DL Umschlag (110 x 220 mm) = 27 (109.9x219.9)
C5 Umschlag (162 x 229 mm) = 28 (161.9x228.9)
B5 Umschlag (176 x 250 mm) = 34 (175.9x249.9)
Monarch Umsch (3 7/8 x 7½ Zoll) = 37 (98.3x190.5)

gibt auch alles andere aus, was man über den Drucker wissen sollte, und beruht auf Windows API. Ist allerdings ein uraltes TPW (Turbo Pascal für Windows) Programm, das ich seither nicht mehr gebraucht habe und deshalb nicht auf Delphi portiert. Es läuft jedoch nach wie vor, auch unter XP, und du müsstest alles Nötige finden, um das Windows API entsprechend zu benutzen.

Gruss Reinhard
Angehängte Dateien
Dateityp: zip prdiag_157.zip (74,2 KB, 46x aufgerufen)
  Mit Zitat antworten Zitat
uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 23. Okt 2006, 15:52
Probier mal das

Delphi-Quellcode:
function GetPaperTrays: TStrings;
var pDevMode : PDeviceMode;
    bin : array[0..255,0..23] of char;
    i : DWORD;
    Res : DWORD;
begin
if (FPaperTrays = nil) then begin
  try
    FPaperTrays := TStringList.Create;
  except
    FPaperTrays.Free;
    FPaperTrays := nil;
  raise;
  end;
end;
   FPaperTrays.Clear;
   GetPrinter(ADevice,ADriver,APort,hDMode);
   pDevMode := nil;
   Res := DeviceCapabilities(ADevice,APort,DC_BINNAMES,PCHAR(@(bin[0][0])),pDevMode);

    for i := 0 to Res-1 do
      begin
          FPaperTrays.Add(bin[i]);
      end;
    Result := FPaperTrays;
end;
Uwe
Uwe
  Mit Zitat antworten Zitat
uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 24. Okt 2006, 12:21
Würde mich schon interessieren ob es funktioniert oder nicht

Uwe
Uwe
  Mit Zitat antworten Zitat
HannsW

Registriert seit: 6. Jan 2010
26 Beiträge
 
#9

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 25. Jan 2010, 14:10
Zitat von uwewo:
Probier mal das

Delphi-Quellcode:
function GetPaperTrays: TStrings;
var pDevMode : PDeviceMode;
    bin : array[0..255,0..23] of char;
    i : DWORD;
    Res : DWORD;
begin
if (FPaperTrays = nil) then begin
  try
    FPaperTrays := TStringList.Create;
  except
    FPaperTrays.Free;
    FPaperTrays := nil;
  raise;
  end;
end;
   FPaperTrays.Clear;
   GetPrinter(ADevice,ADriver,APort,hDMode);
   pDevMode := nil;
   Res := DeviceCapabilities(ADevice,APort,DC_BINNAMES,PCHAR(@(bin[0][0])),pDevMode);

    for i := 0 to Res-1 do
      begin
          FPaperTrays.Add(bin[i]);
      end;
    Result := FPaperTrays;
end;
Uwe
Hallo Uwe,
liegt ja nun schonein wenig zurück, aber: es klappt nicht!

FPapertrays: TStringList; in die VAR einzufügen habe ich geschafft, aber
Delphi-Quellcode:
  GetPrinter(ADevice,ADriver,APort,hDMode);
  pDevMode := nil;
  Res := DeviceCapabilities(ADevice,APort,DC_BINNAMES,PCHAR(@(bin[0][0])),pDevMode);
ergibt unter D5 diese Meldungen
Zitat:
undefinierter Bezeichner : 'GetPrinter'
undefinierter Bezeichner : 'ADevice'
undefinierter Bezeichner : 'APort'
inkompatible Typen: 'Integer' und 'PChar'
Die Aufrufparameter von "DeviceCapabilities" stimmen nicht mitdenen in windows.pas überein,
und es übersteigt meine Fähigkeiten, dies Fehler zu lösen
Hanns
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Verfügbare Druckerschächte eines Druckers anzeigen

  Alt 25. Jan 2010, 14:16
Dann versuch es mal bei den Schweizern.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf