rsib32.dll mit Perl ansprechen

Randy Gast 02.10.2009 10:58 #1433245

Lesenswert?

•

Hallo,

ich will ein R&S Speki per LAN steuern. Dazuliefert der Hersteller eine 
dll mit:
http://www.rohde-schwarz.com/webhelp/zvb/HW_Interfaces/LAN_Interfaces/RSIB_Interface_Functions.htm

Um das mit Perl aus steuern zu können habe ich mir das durchgelesen:
http://search.cpan.org/~acalpini/Win32-API-0.41/API.pm

Das Beispiel aus o.g. Link funktioniert, aber schon der erste Versuch 
eine Funktion aus der rsib32.dll anzusprechen quittiert der perl 
Interpreter mit einer
"Perl Command Line Interpreter hat ein Problem festgestellt und muss 
beendet werden. Problembericht senden?"

Ich bin bei Perl absoluter Anfänger. Ich bin deshalb unsicher ob ich das 
"Call by Reference" der dll-Funktion richtig benutze. Das importieren 
der Dll-Funktion bereitet auch schon Schwierigkeiten - Perl will kein 
"short" und kein "unsigned".
Hat jemand eine Idee was man machen kann?
Ist Perl für sowas überhaupt geeignet? Die Beispiele des Herstellers 
sind in Visual C, C++, Visual Basic und .Net. Aber ich wollte eigentlich 
keins dieser Fässer aufmachen. Nur ein bisschen Quick&Dirty Daten vom 
Gerät holen, ohne gleich eine neue IDE zu erlernen.

Vielen Dank
Randy

#!/usr/bin/perl -w
use Win32::API;
use strict;
my $ub;              # short
my $ibsta = 42;          # short
my $ref_ibsta = \$ibsta;
my $iberr = 43;          # short
my $ref_iberr = \$iberr;
my $ibcntl = 16777318;      # unsigned long
my $ref_ibcntl = \$ibcntl;
print "Hello world!\n";
Win32::API->Import("kernel32", "int GetCurrentProcessId()");
$PID = GetCurrentProcessId();
print "$PID\n";          # das funktioniert
#Win32::API->Import("RSIB32", "short WINAPI RSDLLibfind( char far *udName, short far *ibsta, short far *iberr, unsigned long far *ibcntl)");
    # Perl kennt keinen "WINAPI", kein "short" und kein "unsigned"
Win32::API->Import("RSIB32", "int RSDLLibfind( char far *udName, int far *ibsta, int far *iberr, long far *ibcntl)");
#Win32::API->Import("RSIB32", "int RSDLLibfind( char *udName, int *ibsta, int *iberr, long *ibcntl)");
    # far oder nicht far: Wird beides akzeptiert
$ub = RSDLLibfind("172.16.48.11", $ref_ibsta, $ref_iberr, $ref_ibcntl); # hier stürzt es ab
print "ub: $ub\n";
print "ref_ibsta: $ibsta\n";
print "ref_iberr: $iberr\n";
print "ref_ibcntl: $ibcntl\n";

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

rsib32.dll mit Perl ansprechen

Antwort schreiben