Alle installierten Schriftarten in array schreiben (Win32) (gelöst) (Allgemeines zu Perl)

[thread]16339[/thread]

Alle installierten Schriftarten in array schreiben (Win32) [gelöst]

Tags: perl5 Schriftart Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+18 replies
Kean

2011-05-23 10:58

User since
2004-08-18
463 Artikel
BenutzerIn

Wie kann ich ein Array mit den Namen aller installierten Schriftarten füllen?
- +12 replies
- pktm
  
  2011-05-23 11:04
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Schau mal, ob Win32::Fonts::Info das Richtige für dich ist.
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +10 replies
  - Kean
    
    2011-05-23 11:22
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Das Modul sieht nicht schlecht aus. Die Beispiele in der Doku funktionieren bei mir aber leider nicht:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use Win32::Fonts::Info; my $F=Win32::Fonts::Info->new(); my $truetypefonts = $F->GetTrueTypeFonts(); foreach (keys %{$truetypefonts}) { print $_ . "=" . %{$truetypefonts}->{$_} . "\n"; }
    
    Auf den Code folgt keine Ausgabe.
    - +9 replies
    - GwenDragon
      
      2011-05-23 11:29
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Schon getestet, was $F und $truetypefonts beinhalten? Sind die leer?
      
      Was zeigt denn:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      use strict; use warnings; use Win32::Fonts::Info; my $F=Win32::Fonts::Info->new() or die $!; my $truetypefonts = $F->GetTrueTypeFonts() or die $!; foreach (keys %{$truetypefonts}) { print $_ . "=" . %{$truetypefonts}->{$_} . "\n"; }
      
      Last edited: 2011-05-23 11:38:58 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +7 replies
      - Kean
        
        2011-05-23 11:34
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        $F beinhaltet einen Hash mit folgendem Inhalt:
        
        Code: (dl )
        
        1 2 3 4
        
        RASTERFONTS= numberoffontfamilies= VECTORFONTS= TRUETYPE=
        
        $truetypefonts ist leer
        
        +2 replies
        
        GwenDragon
        
        2011-05-23 11:38
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Schon msg #149027 probiert?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Kean
        
        2011-05-23 11:41
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        2011-05-23T09:38:06 GwenDragon
        Schon msg #149027 probiert?
        
        Ja und es funktioniert! Danke für den Link.
        Ich denke ich nehme dann diesen Weg, wenn es mit Win32::Fonts::Info nicht funktioniert.
        
        +4 replies
        
        pktm
        
        2011-05-23 11:49
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Hm, blöd. Das Modul scheint tatsächlich nicht zu funktionieren. Ich bekomme hier in der VM mit WinXP folgende Ausgabe:
        
        Code: (dl )
        
        No such file or directory at ftest.pl line 10.
        
        Bei folgendem Skript:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        #!perl use strict; use warnings; use utf8; use Data::Dumper qw/Dumper/; use Win32::Fonts::Info; my $F=Win32::Fonts::Info->new() or die $!; my $truetypefonts = $F->GetTrueTypeFonts() or die $!; print Dumper($F); exit(0);
        
        Dann doch besser das, was GwenDragon da bei den Perlmonks gefunden hat:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
        
        #!perl use strict; use warnings; use utf8; $|=1; use Win32API::Registry qw( :ALL ); my ($key, $uIndex, $name, $nameLength, $type, $data, $dataLength ); my $ok=RegOpenKeyEx( HKEY_LOCAL_MACHINE , "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", 0, KEY_READ, $key ); if($key){ my $uIndex=0; do{ RegEnumValue ( $key, $uIndex, $name, $nameLength, [], $type, $data, $dataLength ); print "$name=$data\r\n"; $uIndex++; } while(!regLastError()); } RegCloseKey( $key );
        
        Das funktioniert auch, zumindest werden ganz viele Schriften ausgegeben :)
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        +3 replies
        
        Kean
        
        2011-05-27 08:35
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Das Script von den PerlMonks liefert keine saubere Liste mit den Font Family Namen der Schriftarten.
        
        Mit
        
        Code (perl): (dl )
        
        my @array = $mw->fontFamilies;
        
        erhält man eine saubere Liste mit den verfügbaren Schriftarten.
        
        +2 replies
        
        pq
        
        2011-05-27 11:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann kann der thread also als geloest markiert werden?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Kean
        
        2011-05-27 11:33
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Genau :-)
      - Kean
        
        2011-05-23 11:36
        
        User since
        2004-08-18
        463 Artikel
        BenutzerIn
        
        Ausgabe:
        
        Code: (dl )
        
        1 2 3
        
        Using a hash as a reference is deprecated at C:\Users\Tester\Desktop\test.pl lin e 10. Bad file descriptor at C:\Users\Tester\Desktop\test.pl line 6.
  - GwenDragon
    
    2011-05-23 11:28
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Das Modul macht nichts anderes als über die Win32-API die Registrierungseinträge zu den Fonts auszulesen.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2011-05-23 11:12
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  use strict; use warnings; $|=1; use Win32API::Registry qw( :ALL ); my ($key, $uIndex, $name, $nameLength, $type, $data, $dataLength ); my $ok=RegOpenKeyEx( HKEY_LOCAL_MACHINE , "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", 0, KEY_READ, $key ); if($key){ my $uIndex=0; do{ RegEnumValue ( $key, $uIndex, $name, $nameLength, [], $type, $data, $dataLength ); print "$name=$data\r\n"; $uIndex++; } while(!regLastError()); } RegCloseKey( $key );
  
  Quelle: http://www.perlmonks.org/index.pl?node_id=663912
  Last edited: 2011-05-23 11:40:47 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2011-05-23 11:36
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  @Kean
  Wieso ist das ein Problem mit Graphischen Oberflächen?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Kean
    
    2011-05-23 11:39
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    2011-05-23T09:36:07 GwenDragon
    @Kean
    Wieso ist das ein Problem mit Graphischen Oberflächen?
    
    Ich habe das Problem unter dieser Kategorie eingeordnet, da ich dachte dass Schriftarten hier am besten reinpassen. In der Console benötigt man diese ja nicht.
    - GwenDragon
      
      2011-05-23 11:41
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      In der Kategorie geht es aber nur um Perl-Module, die selbst Benutzeroberflächen erzeugen.
      ich verschiebe mal.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2011-05-23 11:42
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Verschoben von Graphische Oberflächen nach Allgemeines zu Perl
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-05-23 10:58.