dll einbinden und API Funktion aufrufen: Problem mit Pointer (gelöst) (Allgemeines zu Perl)

[thread]15686[/thread]

dll einbinden und API Funktion aufrufen: Problem mit Pointer [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
perl_rookie

2010-11-28 16:52
User since
2010-11-23
3 Artikel
BenutzerIn
Hallo Zusammen

Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe eine C++ dll mit der API-Funktion int recvData(char* p_buffer, int size),
welche einen Buffer der Größe size mit Zeichen füllt.
(API-Funktion funktioniert bei Aufruf aus einem C++ Projekt)
Nun will ich die dll in Perl einbinden. Dafür habe ich folgendes Skript geschrieben:
Code: (dl )

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

#dll_test.pl################################################ use Win32::API; my $recv = new Win32::API('mydll', '_recvData@8','PI','I'); if(not defined $recv) { die "Can´t import API recvData: $!\n"; } else { my $size = 8; my $buffer = "\x00" x $size; my $p_buffer = unpack('L', pack('P', $buffer)); $recv->Call($p_buffer, $size); } ############################################################
Der Der Win32::API Aufruf funktioniert soweit, die Funktion $recv wird auch ausgeführt,
jedoch ist die Variable buffer immer noch leer.Ich denke dass irgendwas bei der
Übergabe der Adresse $p_buffer nicht funktioniert. Die API-Funktion erwartet ja einen Pointer,
über welchen der buffer gefüllt wird. Hat jemand eine Ahnung was ich machen muß,
damit die Übergabe funktioniert und der Buffer mit Zeichen gefüllt ist?

Vielen Dank im Voraus

//Modedit GwenDragon: Code in CODE-Tags stellen!
Last edited: 2010-11-29 09:26:16 +0100 (CET)
- +4 replies
- Gast Graf Herschel
  
  2010-11-28 17:57
  Code: (dl )
  
  1 2 3 4 5
  
  recvData(u_char **p_buffer, u_int size) for((u_int)i=0; i<size; i++) *(*p_buffer+i)='x'; *(*p_buffer+i)='\0';
  
  Probier es aus und versuche dein call mit \$p_buffer.
  Wenn du mfc verwendest, sieht es anders aus.
  Das Beispiel gilt für GCC bzw. MinGW
  
  Gruß
  
  //Modedit GwenDragon: Code in CODE-Tags stellen!
  Last edited: 2010-11-29 09:26:02 +0100 (CET)
  - +3 replies
  - perl_rookie
    
    2010-11-29 12:03
    
    User since
    2010-11-23
    3 Artikel
    BenutzerIn
    
    Danke erstmal für deine Antwort,
    
    wenn ich deinen Vorschlag versuche, erhalte ich folgende Fehlermeldung:
    
    perl.exe - Fehler in Anwendung
    Der Vorgang "written" konnte nicht auf dem Speicher durchgeführt werden
    
    Grüße
    - +2 replies
    - Gast Graf Herschel
      
      2010-11-29 15:23
      
      Verwendest du mfc?
      Last edited: 2010-11-29 15:28:28 +0100 (CET)
      - perl_rookie
        
        2010-11-30 11:50
        
        User since
        2010-11-23
        3 Artikel
        BenutzerIn
        
        Nein ich verwende kein MFC!
        
        Hab es gestern nach längerem probieren geschaft.
        Lösung:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        #dll_test.pl################################################ use Win32::API; my $recv = new Win32::API('mydll', '_recvData@8','PI','I'); if(not defined $recv) { die "Can´t import API recvData: $!\n"; } else { my $size = 8; my $p_resultString = pack("A$size",); #pack a ASCII String for pointer parameter in recv $recv->Call($p_resultString , $size); my $result = unpack("A$size", $p_resultString); #unpack ASCII String } ############################################################

View all threads created 2010-11-28 16:52.