Calling dll function(created in VC++) from Perl

isha has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Calling dll function(created in VC++) from Perl by BrowserUk (Patriarch) on Apr 21, 2008 at 04:58 UTC
I have a dll build in VC++. C code, or C++? The name mangling that C++ does makes things harder. I tried to do this with Win32::API but didn't success. Show us the code! Win32::APi can call functions in dlls--it is its sole purpose in being. So, either you did some thing wrong, or ...? Without seeing what you tried, guessing is useless. 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Calling dll function(created in VC++) from Perl by tachyon-II (Chaplain) on Apr 21, 2008 at 05:01 UTC
You need some wrapper code to get at your functions. XS perlxs perlxstut is one way to do it. You may find Inline::C and Inline::CPP easier to work with to start. A quick way to get started is to examine some of the Win32 modules on CPAN and look at how they are doing it. Two C XS examples I did a few years ago are Geo::Coordinates::VandH::XS and Digest::JHash. I only mention these because they are short and relatively trivial so pretty easy to grok at a glance.	[reply]
Re: Calling dll function(created in VC++) from Perl by ikegami (Patriarch) on Apr 21, 2008 at 05:05 UTC
Your DLL function needs to be compiled with the `WINAPI` calling convention (`_cdecl`?). I don't care to guess as to what other mistakes you could have made. Perhaps you should show us what you tried. Alternatively, you could write an XS interface to it or use Inline::C.	[reply] [d/l] [select]


go ahead... be a heretic
	PerlMonks