Win32::API::Struct Daten werden nicht übernommen (gelöst) (Fragen zu Perl-Modulen)

[thread]19688[/thread]

Win32::API::Struct Daten werden nicht übernommen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+10 replies
hummer

2015-06-11 12:53
User since
2013-06-12
22 Artikel
BenutzerIn
Hallo Forum,
nach langer Perl-Pause muss ich mich wieder einem kleinem Projekt widmen und hoffe ihr könnt mir helfen.

anbei mein Problem.
Ich werde eine Verbindung mit einer SPS herstellen. Hierzu habe ich eine DLL, welche entsprechende Funktionen mir zur verfügung stellt. Anbei liegen mir auch entsprechende C-Code zur verwendung bei.
Ich würde aber gen bei Perl bleiben und diesen C-Code entsprechend in Perl umsetzen.

Mit Win32::API konnte ich eine Verbindung zur DLL herstellen.
Code: (dl )

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

use strict; use warnings; use v5.10; use Win32::API; Win32::API->Import('AdsDll.dll', 'LONG AdsGetDllVersion()') or die "$!"; my $pt = AdsGetDllVersion() or die "AdsGetDllVersion failed: $^E"; say $pt; ####Ergebnis seitens DLL Codiert 123456
So nun ist der Code aber Codiert, und gibt mir in diesem Datentyp "LONG" die Revision, Vision und Bild Nummer raus.
im C-Beispiel liegen hier noch entsprechende Headefiles bei.
Code: (dl )

1 2 3 4 5 6 7 8

typedef struct { unsigned char version; unsigned char revision; unsigned short build; } AdsVersion; typedef AdsVersion* PAdsVersion;
Wie kann ich nun die Dtructur in Perl umsetzen und dann den Wert übergeben, sodass ich entsprechend die einzelnen entcodierten Werte bekomme?

in C sieht das folgendermaßen aus:
Code: (dl )

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

void main() { long nTemp; AdsVersion* pDLLVersion; nTemp = AdsGetDllVersion(); pDLLVersion = (AdsVersion *)&nTemp; cout << "Version: " << (int)pDLLVersion->version << '\n'; cout << "Revision: " << (int)pDLLVersion->revision << '\n'; cout << "Build: " << pDLLVersion->build << '\n'; cout.flush(); getch(); }
in Perl habe ich folgendes Probiert:
anlegen einer Structur:
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

use strict; use warnings; use v5.10; use Win32::API; use Win32::API::Struct; use Data::Dumper; BEGIN{ } Win32::API::Struct->typedef( 'POINT', qw ( UCHAR version; UCHAR revision; USHORT build; ) ) or die "Typdef error $!\n"; my $pt = Win32::API::Struct->new('POINT');
Soweit so gut, mit
Code: (dl )

say $pt->sizeof();
bekomme ich dann auch eine Größe raus, welche um 1 größer ist als der Inhalt, also 4

weiter habe ich folgendes probiert:
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

use strict; use warnings; use v5.10; use Win32::API; use Win32::API::Struct; use Data::Dumper; BEGIN{} Win32::API::Struct->typedef( 'POINT', qw ( PCHAR version; PCHAR revision; PSHORT build; ) ) or die "Typdef error $!\n"; my $pt = Win32::API::Struct->new('POINT'); say $pt->sizeof(); Win32::API->Import('AdsDll.dll', 'LONG AdsGetDllVersion()') or die "$!"; $pt = AdsGetDllVersion('POINT') or die "AdsGetDllVersion failed: $^E"; say $pt->version;
Ergebnis:
Wrong number of parameters: expected 0, got 1.

Verwende ich nur dies:
Code: (dl )

$pt = AdsGetDllVersion() or die "AdsGetDllVersion failed: $^E";
bekomme ich folgende Fehlermeldung:
Can't locate object method "version" via package "196638" (perhaps you forgot to
load "196638"?) at P:\Perl\01_Dll_01.pl line 26.

Was mache ich falsch, wie kann ich das oben genannte ergbnis aus Code1 in die Struktur packen, damit ich die Werte bekomme,
ist es Sinnvoll die Headerdatei des C-Code in Perl einzubinden?

Vielen Dank für eure Hilfe.

Gruß
- +9 replies
- Raubtier
  
  2015-06-11 15:24
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  Ich würde wohl einfach das LONG nehmen und dann in Perl mittels perlfunc pack entpacken.
  
  Also bei deinem Struct wohl
  
  Code (perl): (dl )
  
  1 2
  
  $long = derApiCall(); say for unpack "CCs", pack "l", $long;
  
  Ich habe nie Lust darüber nachzudenken, wie herum die Parameterreihenfolge richtig ist, daher könnte es auch "sCC" sein ;-)
  Last edited: 2015-06-11 15:26:57 +0200 (CEST)
  - +8 replies
  - hummer
    
    2015-06-12 10:02
    User since
    2013-06-12
    22 Artikel
    BenutzerIn
    
    Hallo,
    
    vielen Dank für die schnelle Antwort.
    dein Beispiel hat mit die Daten sofort zerlegt.
    
    Nun noch eine kurze frage zum Schluss.
    
    gibt es eine Möglichkeit das Zerlegen der Daten genau in die Datenstruktur einzufügen?
    
    oder muss dies wieder über umwege geschehen
    
    Code: (dl )
    
    1 2 3 4 5
    
    my @Data = unpack "CCs", pack "l", $long; $pt -> {version} = $Data[0] $pt -> {reversion} = $Data[1] $pt -> {build} = $Data[2]
    
    bzw.
    
    Code: (dl )
    
    ($pt->{version},$pt->{reversion},$pt->{build}) = unpack "CCS", pack "l", $long;
    
    Geht doch bestimmt besser, vor allem bei langen Strukturen.
    Würde halt gern die Datenstruktur nehmen, da ich dies entsprechend 1zu1 aus der C-Headerdatei übernehmen kann.
    
    Danke im voraus
    - +7 replies
    - Raubtier
      
      2015-06-12 10:07
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Meinst du sowas wie das hier?
      
      Code (perl): (dl )
      
      1 2
      
      my %pt; @pt{qw(version revision build)} = unpack ...
      - +6 replies
      - Linuxer
        
        2015-06-12 11:30
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Oder mit Nutzung einer Hash-Referenz:
        
        Code (perl): (dl )
        
        @{ $pt }{qw( version revision build ) } = unpack ...;
        
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +5 replies
        
        hummer
        
        2015-06-12 12:46
        
        User since
        2013-06-12
        22 Artikel
        BenutzerIn
        
        Hallo,
        
        danke für die Beiträge, leider nicht genau das was ich mir vorstelle, vielleicht liege ich mit meinem Gedankengang auch total falsch.
        
        Ich habe folgende Struktur, welche ich mir über eine C-HEADER Datei hole
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        Win32::API::Struct->typedef( 'POINT', qw ( UCHAR version; UCHAR revision; USHORT build; ) ) or die "Typdef error $!\n" my $pt = Win32::API::Struct->new('POINT');
        
        nun möchte ich gern das unpack genau in diese Struktur einbetten
        
        also nach dem Motto:
        erster Wert in Struct = erster Werte in unpack, zweiter Wert .....
        
        Code: (dl )
        
        $pt = unpack...
        
        gibt es da eine Mögichkeit?
        
        oder ist dies total schwachsinnig, da mit Hash sich ja besser arbeiten lässt. Ziel war es das Datenformat aus dem Struct zu nutzen, um diese wieder an 'C' zurückgeben zu können,
        
        Ziel ist das auslesen einer SPS und entsprechende Befehle zu senden.
        Zielsystem Beckhoff)
        Last edited: 2015-06-12 12:48:11 +0200 (CEST)
        
        +4 replies
        
        hummer
        
        2015-06-12 13:15
        
        User since
        2013-06-12
        22 Artikel
        BenutzerIn
        
        Ich werde mit Hashs arbeiten. die typedef Strukturen sind sehr aufwendig und mit der Zeit unuebersichtlich. Und nutzen auch nicht das potenziel von Perl aus.
        
        Danke für eure Hilfe hat mich sehr viel weiter gebracht.
        
        viele Grüße
        
        +3 replies
        
        hummer
        
        2015-06-15 14:45
        
        User since
        2013-06-12
        22 Artikel
        BenutzerIn
        
        Hallo,
        
        ich brauche doch noch enmal eure Hilfe.
        
        ich habe den oben genannten Code eingesetzt, um aus einer DLL die Versionsnummer zu bekommen.
        
        Leider gibt mir mein Perl Code nicht die richtige Versionsnummer an, wie es ein DemoScript seitens des Herstellers asgibt.
        
        MeinCode:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        use strict; use warnings; use v5.10; use Win32::API; use Win32::API::Struct; use Data::Dumper; Win32::API->Import("$Dll", 'LONG AdsGetDllVersion()') or die "$!"; $LONG = AdsGetDllVersion() or die "AdsGetDllVersion failed: $^E"; @{$Data}{qw (version reversion build)} = unpack "CCS", pack "l", $LONG; print Dumper ($Data);
        
        Ausgabe:
        'reversion' => 0,
        'build' => 3,
        'version' => 30
        'VAR:LONG: = 196638'
        
        Ausgabe Hersteller:
        Revision: 0
        Build: 28
        Version: 31
        
        Benutzt wird die gleiche DLL da diese auf dem PC installiert wurde
        
        Kann mir einer Sagem ,wie es zu diesem Unterschied kommt.
        der entsprechende C-Code bitte aus dem 1. Beitrag nehmen.
        
        +2 replies
        
        Raubtier
        
        2015-06-15 17:36
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        Das kann dir wohl nur der Hersteller beantworten, denn
        3 * 256^0 + 0 * 256^1 + 30 * 256^2 = 196638
        
        hummer
        
        2015-06-25 08:03
        
        User since
        2013-06-12
        22 Artikel
        BenutzerIn
        
        Hallo,
        
        ich bin schon etwas weiter gekommen, habe aber noch einmal eine frage an euch.
        
        Zu der Dll die ich verarbeiten will, habe ich entsprechend ein C-Code Beispiel.
        Da ich ja absoluter absoluter C-Anfänger, und kann teilweise mit dem Code nix anfangen.
        Daher bitte ich euch um Hilfe bei folgendem Problem und umsetzung von C-Code in professionellen Perl-Code
        
        Ich habe eine DLL, mit einer Funktion um einer ID der Gegenstelle auszulesen.
        Im C-Code Beispiel wird mit Strukturen gearbeitet.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        long nErr, nPort; AmsAddr Addr; PAmsAddr pAddr = &Addr; // Kommunikationsport auf dem ADS Router öffnen nPort = AdsPortOpen(); nErr = AdsGetLocalAddress(pAddr); typedef struct { AmsNetId netId; USHORT port; } AmsAddr, *PAmsAddr; typedef struct { UCHAR b[6]; } AmsNetId, *PAmsNetId;
        
        LONG AdsGetLocalAddress(
        PAmsAddr pAddr
        );
        
        Parameter:
        pAddr
        [out] Zeiger auf die Struktur vom Typ AmsAddr.
        
        Rückgabewert:
        Gibt den Fehlerstatus der Funktion zurück.
        
        Mein erster Versuch war folgender.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        use strict; use warnings; use v5.10; use Win32::API; my $ObjDll = { _OpenPort => GetRefToDllFunction("$Path2Dll", 'AdsPortOpen', '', 'N'), _LocalAddr => GetRefToDllFunction("$Path2Dll", 'AdsGetLocalAddress', '???', 'N') }; sub GetRefToDllFunction(....); # Port öffnen, Rückgabewert des offenen Ports my $Port = $ObjDll->{_OpenPort}->Call(); # Lesen der NetId my $Result = $ObjDll->{_LocalAddr}->Call(???);
        
        Ich bekomme seitens des Systems die Fehlermeldung, dass die Adresse nicht gefunden werden kann, da der Port nicht offen ist.
        ist ja sowiet auch verständlich, der Port ist zwar offen, die Funktion weis aber nichts davon.
        
        Wie muss ich nun die Strukturen so anpassen, damit ich diese, wie im C-Code verwenden kann.
        Kann ich einfach den Port als Parameter übergeben?, dann bekomme ich aber die Adresse nicht zurück.
        Der Rückgabewert ist ein ErrorCode
        
        Über hilfe wäre ich sehr dankbar.
        
        Viele Grüße
        Last edited: 2015-06-25 08:06:59 +0200 (CEST)

View all threads created 2015-06-11 12:53.