Zugriffe auf .dll über Win32::API (solved) (Fragen zu Perl-Modulen)

[thread]17404[/thread]

Zugriffe auf .dll über Win32::API [solved]

Tags: perl5 Win32::API dll Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

Subtrees:
Informationen zur CO₂ DLL (5 articles) 2012-05-08 15:52
Lösung (3 articles) 2012-05-08 16:05

+18 replies
guest Fabian

2012-05-08 13:39
Liebe PERL-Gemeinde,
ich wende mich mit folgendem Problem an Euch:
Ich möchte auf eine Funktion in einer .dll zugreifen welche mir die Dichte von CO2 bei bestimmten Druck/Temperaturbedingungen berechnet.

Die .dll heißt Carbondioxide.dll und die Funktion dazu DOTP mit den Argumenten Druck und Temperatur. Diese Argumente sind als Referenz zu übergeben; der Rückgabewert erfolgt direkt als value schreiben die Autoren der .dll.

Mein Code crasht leider und ich würde mich freuen, wenn mir jemand helfen kann. VIELEN DANK VORAB!!!

CODE ->
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

# header stuff use feature ':5.10'; binmode(STDOUT, ":encoding(cp850)"); use Win32::API; # header end # ******************************* # -> THE MAGIC SHOULD START HERE: # ******************************* # invoke the function 'DOTP' within the Carbondioxide.dll # with 2 arguments, Double precision 'DD' and a Double precision return 'D' # (shall calculate the density of co2 at given temperature in Kelvin and pressure in MPa) # !!! ARGUMENTS shall be handed over BY REFERENCE whereas # RETURN values of the function are given back BY VALUE $function=Win32::API->new('CARBONDIOXIDE','DOTP','DD','D'); $T=300; $P=6; $return = $function->Call(\$T,\$P); # CRASHES here for unknown reason say $return."\n";
modedit Editiert von GwenDragon: Code in CODE-Tags gestellt
Last edited: 2012-05-08 14:06:17 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2012-05-08 14:41
  User since
  2005-01-17
  14741 articles
  Admin1
  Code: (dl )
  
  $return = $function->Call(\$T,\$P); # CRASHES here for unknown reason
  
  Bist du sicher, dass du eine Referenz anstatt des Wertes an die Funktion übergeben musst?
  Übergib doch mal zum Test Werte statt Referenzen auf die Variablen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - guest Fabian
    
    2012-05-08 14:48
    
    Jepp - ich habe versucht die Werte direkt zu übergeben aber das führt nicht zum Erfolg.
    
    Die Doku der Entwickler sagt auch ausdrücklich:
    "All functions, input, and output values are defined as DOUBLEPRECISION. The arguments are transferred BY REFERENCE, whereas the values of the functions are given back BY VALUE. "
    
    Danke und beste Grüße
    
    Fabian
- GwenDragon
  
  2012-05-08 14:43
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Crosspost: http://bytes.com/topic/perl/answers/940030-accessi...
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- GwenDragon
  
  2012-05-08 14:50
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Ich muss rätseln:
  Ist das ein 32- oder 64bit-Perl?
  Ist das ein 32- oder 64bit-Windows?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - guest Fabian
    
    2012-05-08 14:57
    
    Oh - es ist ein 32 Bit Windows System auf dem ein 32 Bit PERL läuft (Strawberry Perl 5.12.3.0).
    
    Danke!!!
    - GwenDragon
      
      2012-05-08 15:16
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Mal mit Strawberry-Perl 5.10 versucht?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2012-05-08 15:24
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Ich habe eigentlich keine Probleme mit Win32::API auf Strawberry Perl 5.10.
      
      Allerdings könnte es sein, dass die carbondioxide.dll nicht sauber erstellt wurde. Aber ich weiß es eben nicht.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2012-05-08 14:59
  
  Subtree with 6 replies: Informationen zur CO₂ DLL
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Würdest du bitte mal posten, wo weitere Informationen zur DLL zu finden sind?
  Last edited: 2012-05-08 15:43:13 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- murphy
  
  2012-05-08 15:35
  
  Subtree with 4 replies: Lösung
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  Guest Fabian
  [...]
  Die .dll heißt Carbondioxide.dll und die Funktion dazu DOTP mit den Argumenten Druck und Temperatur. Diese Argumente sind als Referenz zu übergeben; der Rückgabewert erfolgt direkt als value schreiben die Autoren der .dll.
  [...]
  
  Code (perl): (dl )
  
  $function=Win32::API->new('CARBONDIOXIDE','DOTP','DD','D');
  
  [...]
  
  Wenn ich das richtig verstehe, bekommt die Funktion zwei Zeiger als Argumente aber Du weist Win32::API an sie mit zwei Fließkommazahlen als Argumente aufzurufen — das kann ja nicht funktionieren.
  
  Wenn die Funktion aber wirklich Zeiger auf Gleitkommazahlen als Argumente erwartet, dann wird der Aufruf über Win32::API ein wenig hässlich, denn das müsste in etwa so aussehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
  
  use 5.010; use strict; use warnings; use Win32::API; # Wrapper for external function with awkward interface sub DOTP { # Get arguments my ($T, $P) = @_; # Prepare foreign function interface, if necessary state $ffi = Win32::API->new( 'CARBONDIOXIDE', 'double DOTP(LPDOUBLE lpT, LPDOUBLE lpP)' ); # Pack arguments into memory to be passed to the function my $bufT = pack('d', $T); my $bufP = pack('d', $P); # Perform external call and return value return $ffi->Call($bufT, $bufP); } # Test the thing say DOTP(300, 6);
  
  Last edited: 2012-05-08 16:05:26 +0200 (CEST)
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-05-08 13:39.