[Win32::Printer::Enum] - Windows Standarddrucker (solved) (Fragen zu Perl-Modulen)

[thread]17710[/thread]

[Win32::Printer::Enum] - Windows Standarddrucker [solved]

Tags: perl5 Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+10 replies
Kean

2012-08-29 14:49

User since
2004-08-18
464 articles
BenutzerIn

Es gibt in dem Modul Win32::Printer::Enum die Möglichkeit sich eine Listemit allen unter Windows installierten Druckern zu generieren.
Wie bekomme ich aber heraus welcher dieser Drucker der Standartdrucker ist??

Nach der Modulbeschreibung hätte ich vermutet dass Printers(1); den Standartdrucker zurück gibt. Bei mir funktioniert dies aber leider nicht...

Oder mache ich etwas falsch?
- +2 replies
- Linuxer
  
  2012-08-29 15:42
  
  User since
  2006-01-27
  3891 articles
  HausmeisterIn
  
  Was heißt "Bei mir funktioniert dies aber leider nicht..." genau?
  Gibt es eine Warnung oder eine Fehlermeldung? Wie lautet diese?
  Passiert nicht das erwartete? Was passiert stattdessen?
  Wie sieht der Code aus, den Du ausprobierst?
  
  Liefere doch bitte ein paar mehr Informationen...
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Kean
    
    2012-08-30 09:19
    User since
    2004-08-18
    464 articles
    BenutzerIn
    
    Es kommt gar keine Fehlermeldung.
    
    Hier die Codevarianten die ich versucht habe:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my @printer = Printers(1); foreach(@printer) { print $_{PrinterName}; }
    
    Code (perl): (dl )
    
    1 2
    
    my %printer = Printers(1); print $printer{PrinterName};
    
    Code (perl): (dl )
    
    1 2
    
    my $printer = Printers(1); print $printer;
- +7 replies
- FIFO
  
  2012-08-30 00:18
  
  User since
  2005-06-01
  469 articles
  BenutzerIn
  
  Printers(1) gibt nur unter Win95/ME Informationen zum Standarddrucker. AFAIK lässt sich die API-Funktion EnumPrinters() sonst nicht zum Bestimmen des Standardruckers verwenden, hierfür gibt es GetDefaultPrinter(), versuch doch mal, die über Win32::API aufzurufen.
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +6 replies
  - Kean
    
    2012-08-30 09:21
    User since
    2004-08-18
    464 articles
    BenutzerIn
    
    So?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    use Win32::API; my $GetDefaultPrinter = Win32::API->new( "rundll32", "int GetDefaultPrinter()" ); my $PID = $GetDefaultPrinter->Call(); print $PID;
    
    da kommt folgende Ausgabe:
    
    Code: (dl )
    
    Can't call method "Call" on an undefined value
    - +5 replies
    - FIFO
      
      2012-08-30 11:34
      
      User since
      2005-06-01
      469 articles
      BenutzerIn
      
      Eher so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      use warnings; use strict; use Win32::API; my $winspool_path = 'c:\\windows\system\winspool.drv'; my $printer_name_size = 256; my $printer_name = " " x $printer_name_size; # Speicher allozieren my $GetDefaultPrinter = Win32::API->new($winspool_path, 'GetDefaultPrinter', 'PP', 'I'); $GetDefaultPrinter->Call($printer_name, $printer_name_size); print $printer_name;
      
      Der String in $printer_name ist \0-terminiert, musst also ggf. ~~chop verwenden.~~ den String kürzen: $printer_name =~ s/\x00.*//;.
      
      Editiert von FIFO: Stringkürzung präzisiert
      Last edited: 2012-08-30 14:57:00 +0200 (CEST)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - +2 replies
      - Kean
        
        2012-08-30 14:49
        
        User since
        2004-08-18
        464 articles
        BenutzerIn
        
        Bringt die gleiche Fehlermeldung wie zuvor.
        Teste auf einem Windows7 Rechner.
        
        FIFO
        
        2012-08-30 14:58
        
        User since
        2005-06-01
        469 articles
        BenutzerIn
        
        Pfad zur winspool.drv suchen ...
        edit oder nur basename verwenden, wie Gast schon gezeigt hat.
        Last edited: 2012-08-30 14:59:27 +0200 (CEST)
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - +2 replies
      - guest gast2
        
        2012-08-30 14:52
        
        Das Funktioniert auf Windows 7 x64:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        use warnings; use strict; use Win32::API; my $winspool_path = 'winspool.drv'; my $printer_name_size = 256; my $printer_name = " " x $printer_name_size; # Speicher allozieren my $GetDefaultPrinter = Win32::API->new($winspool_path, 'GetDefaultPrinter', 'PP', 'I'); $GetDefaultPrinter->Call($printer_name, $printer_name_size); print $printer_name;
        
        Last edited: 2012-08-30 14:55:26 +0200 (CEST)
        
        Kean
        
        2012-08-31 13:28
        
        User since
        2004-08-18
        464 articles
        BenutzerIn
        
        Ok so funktioniert es. Auch unter WinXP.
        Danke vielmals!

View all threads created 2012-08-29 14:49.