Win32-API-0.55 problem
am 22.10.2008 08:42:52 von Sean Lin
ActivePerl-5.8.8.824 containing the Win32-API-0.55,
This module can not return the function reference parameter.
It is no problem to install the
http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/ Windows/Win32-API-0.53.zip
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32-API-0.55 problem
am 22.10.2008 09:11:26 von Justin Allegakoen
--===============0504010138==
Content-Type: multipart/alternative;
boundary="----=_Part_24666_21465462.1224659486690"
------=_Part_24666_21465462.1224659486690
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
*
**2008/10/22 Sean Lin
*
>
> *ActivePerl-5.8.8.824 containing the Win32-API-0.55,
> This module can not return the function reference parameter.
>
> It is no problem to install the
>
> http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/ Windows/Win32-API-0.53.zip
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> *
*
Hi Sean,
Please provide a *small* sample of the code that is failing for you, and let
us know the dll that youre trying to interface with.
Posting the same sparsely detailed e-mail twice is not going to get you a
reply.
Alternatively you could try adding:-
use ESP;
print "Do something to return the function reference paramter";
Or you could try using pack and unpack to get the data if the dll documents
it as using a struct.
Cheers,
Just in
*
------=_Part_24666_21465462.1224659486690
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
2008/10/22 Sean Lin <>
ActivePerl-5.8.8.824 containing the Win32-API-0.55,
This module can not return the function reference parameter.
It is no problem to install the
_______________________________________________
ActivePerl mailing list
To unsubscribe:
Hi Sean,
Please provide a *small* sample of the code that is failing for you, and let us know the dll that youre trying to interface with.
Posting the same sparsely detailed e-mail twice is not going to get you a reply.
Alternatively you could try adding:-
use ESP;
print "Do something to return the function reference paramter";
Or you could try using pack and unpack to get the data if the dll documents it as using a struct.
Cheers,
Just in
------=_Part_24666_21465462.1224659486690--
--===============0504010138==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0504010138==--
Re: Win32-API-0.55 problem
am 22.10.2008 13:01:23 von Sean Lin
2008/10/22 Justin Allegakoen :
>
> Please provide a *small* sample of the code that is failing for you, and let
> us know the dll that youre trying to interface with.
This is my *small* sample...
DLL function
==============================
API_TEST_API int __stdcall sum_integers_ref(int a, int b, int *c) {
*c = a + b;
return 1;
}
Perl script
==============================
use Win32::API;
$function = Win32::API->new('API_test', 'int sum_integers_ref(int a,
int b, int* c)');
$c = 0;
$function->Call(3, 2, $c);
print "c = $c";
Win32-API-0.53 result
==============================
c = 5
Win32-API-0.55 ..... 0.57 result
==============================
c = ?
Complete DLL source code
http://code.google.com/p/libwin32/source/browse/tags/Win32-A PI/?r=354#Win32-API/0.44/API_test_dll%3Fstate%3Dclosed
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32-API-0.55 problem
am 22.10.2008 13:42:24 von Brian Raven
Sean Lin <> wrote:
> 2008/10/22 Justin Allegakoen :
>>
>> Please provide a *small* sample of the code that is failing for you,
>> and let us know the dll that youre trying to interface with.
>
>
> This is my *small* sample...
>
>
> DLL function
> ==============================
> API_TEST_API int __stdcall sum_integers_ref(int a, int b, int *c) {
> *c = a + b;
> return 1;
> }
>
>
> Perl script
> ==============================
> use Win32::API;
> $function = Win32::API->new('API_test', 'int sum_integers_ref(int a,
> int b, int* c)'); $c = 0; $function->Call(3, 2, $c); print "c = $c";
>
>
>
>
> Win32-API-0.53 result
> ==============================
> c = 5
>
>
>
> Win32-API-0.55 ..... 0.57 result
> ==============================
> c = ?
>
>
>
> Complete DLL source code
>
http://code.google.com/p/libwin32/source/browse/tags/Win32-A PI/?r=354#Wi
n32-API/0.44/API_test_dll%3Fstate%3Dclosed
>
It may not be your problem, but I notice that your file API_test.h
contains no reference to the function you are trying to call. Does it
work for other functions in that dll?
HTH
--
Brian Raven
------------------------------------------------------------ -----------------------------------------------
This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy. Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Win32-API-0.55 problem
am 22.10.2008 23:20:54 von Bill Luebkert
Sean Lin wrote:
> 2008/10/22 Justin Allegakoen :
>> Please provide a *small* sample of the code that is failing for you, and let
>> us know the dll that youre trying to interface with.
>
>
> This is my *small* sample...
I'm not sure what the problem is, but I would start by diffing 0.53 or 0.54
source and .pm against 0.54 or 0.55 (which ever is the first failing against
the last good one) to see what changed and caused the problem. It will probably
be obvious if there aren't a lot of changes to pore over.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs