Win32::API Übergabe Structuren an Dll (Fragen zu Perl-Modulen)

[thread]19742[/thread]

Win32::API Übergabe Structuren an Dll

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies
hummer

2015-07-29 18:52
User since
2013-06-12
22 Artikel
BenutzerIn
Hallo Forum,

ich benötige noch einmal eure Hilfe im Umgang mit DLL und der Übergabe von Strukturen.

Einleitend, möchte ich euch gern erst einmal den C-Code vorlegen, welcher mit zur Verfügung steht.

C-Main
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

void main() { long nErr, nPort; AmsAddr Addr; PAmsAddr pAddr = &Addr; DWORD dwData; // Kommunikationsport auf dem ADS Router öffnen nPort = AdsPortOpen(); nErr = AdsGetLocalAddress(pAddr); if (nErr) cerr << "Error: AdsGetLocalAddress: " << nErr << '\n'; // TwinCAT2 RTS1 Port = 801 pAddr->port = 801; }
Dieser Code benutz folgende C-Struct
Code: (dl )

1 2 3 4 5 6 7 8

typedef struct { AmsNetId netId; USHORT port; } AmsAddr, *PAmsAddr; typedef struct { UCHAR b[6]; } AmsNetId, *PAmsNetId;
So, nun möchte ich gern mein Programm dazu veranlassen, die Funktion AdsGetLocalAddress aufzurufen, die Parameter zu übergeben, und die Werte in einen z.B. Hash oder String + Array zu speichern.

Die Funktion bekommt den Struct übergeben, in welche sie zwei Werte Speichert. Zum einen speichert die den Port, welcher geöffnet wurde, zum anderen die NetId.
Als Rückgabewert bekomme ich den Fehlercode, ob die Funktion erfolgreich war oder ein Fehler vorliegt.

Meine Versuche mit der Dll waren bisher erfolgreich, wenn es um die Datenabfrage ging, aber leider nicht bei der Struct-Übergabe

Mein Versuch
Object:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

sub new { my $class = shift; my $Path2Dll = shift; my $self = { # Dll function Path Function IN OUT _LocalAddr => _GetRefToDllFunction("$Path2Dll", 'AdsGetLocalAddress', 'P', 'N'), }; bless $self, $class; return $self } sub _GetRefToDllFunction { my $refToDllFunction = Win32::API->new(@_); if(not defined $refToDllFunction) { die "ERROR: Trying to load $_[1] from $_[0].dll. Failure: $!\n"; } return $refToDllFunction; }
Soweit so gut, das einzige was hierbei noch falsch sein kann ist der Parameter, zur Übergabe 'P'

Was habe ich bisher probiert:
ich habe mit Win32:.API::Struct eine Struktur angelegt, wie diese im C-Code
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

... _LocalAddr => _GetRefToDllFunction("$Path2Dll", 'AdsGetLocalAddress', 'S', 'N'), ... Win32::API::Struct->typedef( AmsNetId => qw( UCHAR b[6]; ) ); Win32::API::Struct->typedef( AmsAddr => qw( AmsNetId netId; USHORT port; ) ); Win32::API->Import("$self->{_Path2Dll}" => 'LONG AdsGetLocalAddress(LPAmsAddr pt)'); my $pt = Win32::API::Struct->new('AmsAddr'); AdsGetLocalAddress($pt);
Fehler:
Use of uninitialized value in pack at C:/Perl/lib/Win32/API/Struct.pm line 317.
Use of uninitialized value in pack at C:/Perl/lib/Win32/API/Struct.pm line 317.
Win32::API a function was called with the wrong prototype and caused a C stack inconsistency EBP=28f8a0 ESP=28f89c

ich habe die jeweiligen Parameter gepackt:
Code: (dl )

1 2 3 4 5 6 7 8 9

sub GetLocalAddr { my $self = shift; my @AmsNetId = (0,0,0,0,0,0); my $Port = 0; my $Param = pack ('C6 S', @AmsNetId,$Port); my $Result = $self->{_LocalAddr}->Call($Param); }
Fehler:
Win32::API a function was called with the wrong prototype and caused a C stack inconsistency EBP=28f8a0 ESP=28f89c

Kann mir jemand helfen, wie ich hierbei am besten vorgehe kann.

Vielen Dank
- +4 replies
- FIFO
  
  2015-07-29 19:18
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  Hi, ich habe leider keine Zeit, mich in Deinen Code einzulesen, aber ich hatte mal ein ähnliches Problem und damals lag es daran, dass in der DLL nicht __stdcall, sondern __cdecl als Calling Convention erwartet wurde. Hier muss man dem Win32::API-Konstruktor als letztes Argment '__cdecl' (vor Version 0.69 '_cdecl' mit nur einem Unterstrich) mitgeben.
  
  Gruß FIFO
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +3 replies
  - hummer
    
    2015-07-29 19:49
    User since
    2013-06-12
    22 Artikel
    BenutzerIn
    
    Hallo,
    
    vielen Dank erst einmal für deine schnelle Antwort,
    ich verwende Win32:.API V0.65
    
    Ich habe entsprechend deines Vorschlages folgendes durchgeführt:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
    
    _LocalAddr => _GetRefToDllFunction("$Path2Dll", 'AdsGetLocalAddress', 'P', 'N','_cdecl'), sub GetLocalAddr { my $self = shift; my @AmsNetId = (0,0,0,0,0,0); my $Port = 0; my $Param = pack ('C6 S', @AmsNetId,$Port); # ggf. noch pack NetId und Port my $Result = $self->{_LocalAddr}->Call($Param); print $Result; (@AmsNetId,$Port) = unpack('C6 S',$Param); print $Port; }
    
    Die Fehlermeldung ist schon einmal weg, was ja schon einmal sehr gut ist.
    Aber ich bekomme keine Rückgabewerte im $Param
    Ich denke, das ich bei dem ersten Pack, etwas falsch mache,
    wie kann ich denn die verschachtelte Struktur des C-Codes am besten an die Funktion übergeben?
    
    Eben auch noch folgendes Ausprobiert:
    
    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
    
    sub GetLocalAddr1 { my $self = shift; Win32::API::Struct->typedef( AmsNetId => qw( UCHAR b[6]; ) ); Win32::API::Struct->typedef( AmsAddr => qw( AmsNetId netId; USHORT port; ) ); Win32::API->Import("$self->{_Path2Dll}" => 'LONG _cdecl AdsGetLocalAddress(LPAmsAddr pt)'); my %pt; tie %pt, 'Win32::API::Struct'=> 'AmsAddr'; AdsGetLocalAddress(\%pt); }
    
    Ein Teil der Fehlermeldung ist weg, nur noch dieses Hier:
    Use of uninitialized value in pack at C:/Perl/lib/Win32/API/Struct.pm line 317.
    Use of uninitialized value in pack at C:/Perl/lib/Win32/API/Struct.pm line 317.
    
    Hat da noch jemand einen Tipp für mich?
    
    Danke
    Last edited: 2015-07-29 20:09:42 +0200 (CEST)
    - +2 replies
    - FIFO
      
      2015-07-29 21:01
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Dass die Fehlermeldung unterbleibt, ist zwar schön, sagt leider nicht viel aus ...
      
      Dein C-Code zeigt, dass der Funktion AdsGetLocalAddress ein Pointer auf ein AmsAddr-struct
      übergeben wird. Laut Doku zu Win32::API::type musst Du evtl. einen eigenen typedef für die Pointervariante machen (mit ' *').
      Die Perl-(tied-)Hashreferenz kannst Du wahrscheinlich nicht einfach anstelle des struct-pointers übergeben.
      
      Die Fehlermeldung aus struct.pm spricht dafür, dass auch schon vorher was schiefläuft. Wo in Deinem Skript wird sie denn geworfen? Setzt Du einen Debugger ein?
      
      Verschachtelte structs sind prinzipiell möglich (lt. Aldo Calpini hier).
      
      In die richtige Verwendung von Win32::API::struct müsste ich mich nach längerer Pause erst wieder einlesen, dafür fehlt gerade die Zeit ...
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - hummer
        
        2015-07-29 21:36
        
        User since
        2013-06-12
        22 Artikel
        BenutzerIn
        
        Hallo,
        
        also ich habe jetzt probiert und probiert, und eine echt dumme lösung gezaubert, welche echt besser gehen muss.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        sub GetLocalAddr0 { my $self = shift; my $Param1 = pack ('C6S',0,0,0,0,0,0,0,0 ); # ggf. noch pack NetId und Port my $Result = $self->{_LocalAddr}->Call($Param1); print $Result; my ($A,$B,$C,$D,$E,$F,$P) = unpack('C6S',$Param1); print "A:$A\n"; print "B:$B\n"; print "C:$C\n"; print "D:$D\n"; print "E:$E\n"; print "F:$F\n"; print "P:$P\n"; }
        
        Alles Ohne Strukturen, ohne Array, usw. stupft, jeder Wert = eine Variable.
        
        mhh, naja bis aufs erste weiß ich zu mindestens, dass die DLL die Werte mir zurück gibt, aber eine Feine Lösung ist das nicht,
        
        Geht das nicht noch eleganter?
        
        Hat jemand eine Lösung
- Gast janus
  
  2015-07-30 08:35
  
  uninitialized value ...
  
  Löse dieses Problem selbst. Da ist ganz klar, was da zu tun ist und ohnehin wirst Du die Art und Weise des Herangehens an derartig simple, doch aussagekräftige Fehlermeldungen üben müssen.
  
  Und noch eine Anmerkung:
  
  Notiere @_ stets am Anfang einer sub, d.h., setze @_ nicht weiter unten irgendwo ein. Des Weiteren verwende NICHT einmal $_[0] und @_ innerhalb einer sub, entscheide Dich: Entweder oder. Idealerweise notierst Du am Anfang einer sub unter Verwendung aussagekräftiger Variablennamen, was von @_ verwendet wird.
  
  Dann wir auch Deine Fehlersuche einfacher. Und RTFM ;)
  Last edited: 2015-07-30 08:53:54 +0200 (CEST)

View all threads created 2015-07-29 18:52.