Zugriffe auf .dll über Win32::API (gelöst) - #158196 (Fragen zu Perl-Modulen)

murphy

2012-05-08 15:35

User since
2004-07-19
1776 Artikel
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 CPAN:

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 CPAN:

Win32::API ein wenig hässlich, denn das müsste in etwa so aussehen:

Code (perl): (dl )

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.