Win32::API (Fragen zu Perl-Modulen)

[thread]21517[/thread]

Win32::API

Tags: perl5 Ähnliche Threads

Leser: 7

Articles: hide open all | hide show old branches

+9 replies
rosti

2023-12-11 17:27

User since
2011-03-19
3472 Artikel
BenutzerIn

Moin, lange Winterabende und so....

Also ich möchte per Win32::API die hier https://learn.microsoft.com/en-us/uwp/api/windows.... beschriebene Funktion benutzen zur Erstellung eines USB-Devices.

Namespace: Windows.Devices.Usb
public static IAsyncOperation<UsbDevice> FromIdAsync(string deviceId);

Die deviceId liegt mir vor, die habe ich aus der Registry gefischt. Nun liefert o.g. Funktion ja ein Objekt und mit diesem Objekt sollen weitere Methoden aufgerufen werden. Und das alles per Win32::API. Bevor ich da weiter rumwürge frage ich mal hier ob das überhaupt geht ;)

MFG
- +5 replies
- rosti
  
  2023-12-12 16:16
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Für Weiterentwicklungen: MinGW oder MS Visual Studio was meint Ihr?
  - +4 replies
  - GwenDragon
    
    2023-12-12 16:31
    
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Für Perl? GCC. Wieso fragst du MingW bzw. VS?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - rosti
      
      2023-12-12 17:10
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Nun, ich habe Active Perl und ActiveState empfiehlt VS. MingW hatte ich aber auch schon, so werde ich bei MingW bleiben. MinGW integriert cpp ung gcc ;)
      
      Der eigentliche Grund ist, ich will von LibUSB weg denn die ist ziemlich umständlich zu installieren. Mein Ziel ist, eine dll zu erstellen deren Funktionen ganz einfach über Win32::API in Perl benutzt werden können. Funktionen die z.B. das Windows.Device.Usb - Objekt gar nicht nach draußen reichen. Das werde ich mit Inline::C machen, das ist schöner als XS.
      
      mfg
      - +2 replies
      - GwenDragon
        
        2023-12-12 17:26
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ah, OK - ActiveState, da muss ich passen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        rosti
        
        2023-12-12 19:16
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        Ich war auch ne Weile raus. Jetzt habe ich einfach mal cpan auf der Kommandozeile eingegeben und siehe da, da werden MinGW und dmake automatisch installiert ;)
        
        mfg
- +3 replies
- rosti
  
  2023-12-12 21:42
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Nun meine ersten Schritte zur Erstellung einer .dll
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  use strict; use warnings; use Inline ( C => 'DATA', directory => 'inline_dir', name => 'Hello', ); hello(); __DATA__ __C__ #include <stdio.h> void hello(){ puts("Hello 123!!"); }
  
  Das erstellt eine Hello.dll
  
  Versuch, die Funktion aus der dll aufzurufen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  use strict; use warnings; use Win32; use Win32::API; my $dll = Win32::LoadLibrary('Hello') || die $^E; my $f = Win32::API::More->new("Hello", "void hello()") or die $^E;
  
  wirft: Die angegebene Prozedur wurde nicht gefunden
  
  Was mache ich falsch???
  - +2 replies
  - bianca
    
    2023-12-13 08:21
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Könntest du mal die Datei und die Prozedur unterschiedlich eindeutig benamsen, sodass man Groß-/Kleinschreibefehler ausgeschlossen hat.
    10 print "Hallo"
    20 goto 10
    - rosti
      
      2023-12-13 10:18
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Das Ganze auf die .dll zu beschränken und mit Win32::API darauf rumzuhacken ist ja auch nicht der übliche Weg. Ich werde das jetzt so machen wie es in der Doku steht, also mit Inline C oder CPP entwickeln, das heißt das zunächst das Verzeichnis blib erstellt wird (b steht für build). In blib liegt dann alles drin womit ich entweder make install aufrufe oder eine .ppd für den Perl Package Manager erstellen kann.
      
      Sowas habe ich vor 10 Jahren schonmal gemacht, Dienst nach Vorschrift sozusagen und das hat funktioniert ;)

View all threads created 2023-12-11 17:27.