Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^5: Call C DLL Functions in Perl

by BrowserUk (Patriarch)
on Feb 18, 2012 at 17:50 UTC ( [id://954775]=note: print w/replies, xml ) Need Help??


in reply to Re^4: Call C DLL Functions in Perl
in thread Call C DLL Functions in Perl

What Mr Inscrutable almost tried to convey to you but couldn't be bothered to phrase in terms intelligible to non-aliens is:

You should not need to do anything to Perl strings in order to pass them to your DLL via Win32::API.

That is, you should not need to use pack or anything else. This should work:

use Win32::API; my $dec = Win32::API->new('mydll.dll', 'OpenConnection', 'PPP', 'L') o +r die $^E; $return = $dec->Call( 'test', 'test', 'test' ); print $return;

Assuming that there is a database called 'test', and a user called 'test', with 'test' as the password.

If that doesn't work, then you'll need to tell us how you know it didn't work.

Ie. Did you get an error message? If so, what was it? If not, what other indication do you have that it didn't work?


With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://954775]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2024-04-26 00:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found