Pointer in PERL? What to use pointer expected?

N

Neo

I'm using Win32::COM module to access an ActiveX object.
What to use where a pointer to a buffer is returned from a function???


C Declaration is as follows :
long ReadM( VARIANT * pArr );
pArr A pointer to a VARIANT that contains a pointer to a SAFEARRAY.

Here is what Documentation says :
ReadM Reads a SAFEARRAY of 8-bit integers (bytes).
The ReadM functions read a message from a channel. The entire message is
placed into a single dimensional SAFEARRAY, and a pointer to the SAFEARRAY
is returned in the parameter pArr.


Sample Visual Basic Code :-
~~~~~~~~~~~~~~~~~~~~~
Dim rtdx As Object
Dim read_array As Variant
Dim status As Long
Dim i As Integer
status = rtdx.ReadM( read_array)
If ( status = Success ) Then
For i = LBound( read_array ) to UBound( read_array )
Print read_array(i)
Next i
End If



I want to do this in PERL...
But catched in Variant, Pointer, SAFEARRAY game...!

How do I call ReadM() function and get data from it...???

Thnx!
-Neo
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
474,156
Messages
2,570,878
Members
47,413
Latest member
KeiraLight

Latest Threads

Top