I bought this computer chip that allows me to turn on/off digital outputs and read analogue inputs. the designers have made the task of communicating with the chip very easy with the use of a dll (called wsp.dll). The dll has 3 main functions that allow me to communicate with the chip.

1. InitWasp() - no parameter inputs, returns Boolean value

2. SetOutputs() - one integer parameter passed by value, returns integer value

3. ReadInputs() - one parameter which is a reference to an integer and returns an integer value. The reference to the integer is actually the reference to the first integer in an integer array, with the subsequent 3 array values also being used to store analogue results.

The problem that I am having is I can't get the function ReadInputs() to work because I can not figure out how to define it in Perl. I have been using Win32::API to try and accomplish this. The working code in perl for InitWasp() and SetOutputs() is as follows. 

use Win32::API;

#start up
#
Win32::API->Import("wsp", "int InitWasp()");
Win32::API->Import("wsp", "int SetOutputs(int a)");

#how functions are called
#
InitWasp();
SetOutputs(1);

[download]

The designers of the chip have supplied an example program that works in visual basics and is as follows 

'connect to dlls

Declare Function InitWasp Lib "wsp.dll" () As Boolean

Declare Function SetOutputs Lib "wsp.dll" (ByVal outputs As Integer) A
+s Integer

Declare Function ReadInputs Lib "wsp.dll" (ByRef analogue As Integer) 
+As Integer

'how functions are called
InitWasp()  ' initialize the wasp board for USB comms

SetOutputs(8)

Dim analogue(4) As Integer
Dim x As Double

ReadInputs(analogue(0))
x = analogue(1)

[download]

If you could please show me how to define ReadInputs() in perl and how to call the function it would be much appreciated. I have been trying to get this to work for weeks and can not figure it out.

Also I don’t know if I have defined InitWasp() and SetOutputs() completely correct because the return value seems to be gibberish, they do talk to the chip correctly though so this is not a big issue at all.

The last bit of information I would like to give you is the header file (wd.h) that the chip designers have supplied is as follows. I don’t know if this will come in as any use since my Perl program did not use the header file. (Maybe there is an easier method) 

// Header file for use with wsp.dll

typedef bool    (*Type_InitWasp)();                                
typedef bool    (*Type_ReadInputs)(int *analogue);
typedef bool    (*Type_SetOutputs)(int digital);

[download]

In reply to Win32::API cant define function by BarneySimpson

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.