note
liverpole
Hey madtoperl,
<p>Are you by any chance also using the username "jesuashok"?
<p>The reason I ask is that [id://jesuashok|he] [id://576676|also] [id://542227|has] [id://543989|trouble] [id://542744|with] [id://544852|crediting] [id://542220|his] [id://542988|sources], [id://539378|even] [id://526642|to] [id://542441|the point] of asking questions which are taken from other sources, after removing the authors' names first.
<p>On March 8, 2006, the following was posted [http://www.codecomments.com/archive211-2006-3-837775.html|at this site]:
<c>
I'm trying to use the Win32::API module to call a simple test case DLL
(call it "addValues.dll"). My DLL has a function in it called addValues:
extern "C" __declspec(dllexport)
double addValues(double a, double b) {
double c;
c = a + b;
cout << a << " " << b << " " << c << endl;
return(c);
}
My perl script to call this looks like:
use Win32::API;
$num1 = $ARGV[0];
$num2 = $ARGV[1];
$myFunc =
Win32::API->new('addValues', 'double addValues(double a, double
b)');
$out = $myFunc->Call($num1, $num2);
print "$out";
When executing this, perl bombs at the Call line, giving me the "Perl
Command Line Interpreter has encountered a problem and needs to close.
We are sorry for the inconvenience" message.
Note that if I change my dll function to take no arguments (hard coding
a and b within the function) and return a double, I have no problems,
e.g.
$myFunc = Win32::API->new('addValues', 'double addValues()');
$out = $myFunc->Call();
I have also tried the alternative calling syntax:
$myFunc = Win32::API->new('addValues', 'addValues', 'DD', 'D')
with no success.
</c>
Now, apart from changing a few variable names (eg. "<i>z = x + y;</i>" instead "<i>c = a + b;</i>"), your post is identical to the one from 2 1/2 months earlier! I notice you event have a typo where you changed "addValues" to "adnValues", but misspelled the function name:
<c>
$myFunc = Win32::API->new('adnalues', 'adnValues', 'DD', 'D')
</c>
<p>Furthermore, like some of jesuashok's [id://571926|examples of plagiarism], you seem very interested in Perl poetry. Unfortunately, in a number of cases, you have stolen that poetry from other people, and tried to pass it off as your own. [marto] posted [id://551725|this node] showing 5 examples where you took someone else's work without giving credit!
<p>So, why are you ripping off other people's work?!
<div class="pmsig"><div class="pmsig-465654">
<hr />
<font size="1">
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
</font>
</div></div>
551569
551569