Problem in accessing DLL function from perl module.

$ReturnVal = $GetHandle->Call($FileIndex);

> Hi I am trying to access DLL function(Dll is developed in VC++).from
> perl module.
> Here is my code :
> The following function is present in cfm.pm module.
> sub CheckFileInTOC
> {
> my($FileIndex) = @_;
> $GetHandle = new
> Win32::API('perlfunction.dll','fnGetTOCContent','I','I');
> # $GetHandle = new
> Win32::API('clisocketsd.dll','fnInitCLISocket','I','I');
> if(not defined $GetHandle) {
> die "Can't import API fnGetTOCContent: $!\n";
> }
> $ReturnVal = $GetHandle->Call($FileIndex);
> print("We are in cfm module now\n");
> }
> DLL function is as follows
> int fnGetTOCContent(int nFileName )
> {
> printf("Hello you are in dll\n");
> return 1;
> }
> When I call CheckFileInTOC function of cfm.pm, it calls function from
> DLL and prints on console :Hello You are in dll.
> But after this statement I get the following error.
> The instruction at "0x28040110"refernced memory at "0x00000004".The
> memory could not be "written".

>> Hi I am trying to access DLL function(Dll is developed in VC++).from
>> perl module.
>> Here is my code :
>> The following function is present in cfm.pm module.
>> sub CheckFileInTOC
>> {
>> my($FileIndex) = @_;
>> $GetHandle = new
>> Win32::API('perlfunction.dll','fnGetTOCContent','I','I');
>> # $GetHandle = new
>> Win32::API('clisocketsd.dll','fnInitCLISocket','I','I');
>> if(not defined $GetHandle) {
>> die "Can't import API fnGetTOCContent: $!\n";
>> }
>> $ReturnVal = $GetHandle->Call($FileIndex);
>> print("We are in cfm module now\n");
>> }
>> DLL function is as follows
>> int fnGetTOCContent(int nFileName )
>> {
>> printf("Hello you are in dll\n");
>> return 1;
>> }
>> When I call CheckFileInTOC function of cfm.pm, it calls function from
>> DLL and prints on console :Hello You are in dll.
>> But after this statement I get the following error.
>> The instruction at "0x28040110"refernced memory at "0x00000004".The
>> memory could not be "written".
> Looks to me that code should work.
> Check that $FileIndex is in fact an integer.
> If it is the number (eg) 9, that should be fine. But if it was the
> string '9' (or a non-numeric string), that might cause problems. (I
> don't know if Win32::API converts numeric strings to numbers as
> happily as perl does.)
> Cheers,
> Rob

$ReturnVal = $GetHandle->Call(1 * $FileIndex);

> > Hi I am trying to access DLL function(Dll is developed in VC++).from
> > perl module.
> > Here is my code :
> > The following function is present in cfm.pm module.
> > sub CheckFileInTOC
> > {
> > my($FileIndex) = @_;
> > $GetHandle = new
> > Win32::API('perlfunction.dll','fnGetTOCContent','I','I');
> > # $GetHandle = new
> > Win32::API('clisocketsd.dll','fnInitCLISocket','I','I');
> > if(not defined $GetHandle) {
> > die "Can't import API fnGetTOCContent: $!\n";
> > }
> > $ReturnVal = $GetHandle->Call($FileIndex);
> > print("We are in cfm module now\n");
> > }
> > DLL function is as follows
> > int fnGetTOCContent(int nFileName )
> > {
> > printf("Hello you are in dll\n");
> > return 1;
> > }
> > When I call CheckFileInTOC function of cfm.pm, it calls function from
> > DLL and prints on console :Hello You are in dll.
> > But after this statement I get the following error.
> > The instruction at "0x28040110"refernced memory at "0x00000004".The
> > memory could not be "written".
> Looks to me that code should work.
> Check that $FileIndex is in fact an integer.
> If it is the number (eg) 9, that should be fine. But if it was the string
> '9' (or a non-numeric string), that might cause problems. (I don't know if
> Win32::API converts numeric strings to numbers as happily as perl does.)
> Cheers,
> Rob- Hide quoted text -
> - Show quoted text -

> Hi I am trying to access DLL function(Dll is developed in VC++).from
> perl module.

> DLL function is as follows
> int fnGetTOCContent(int nFileName )
> {
> printf("Hello you are in dll\n");
> return 1;
> }
> When I call CheckFileInTOC function of cfm.pm, it calls function from
> DLL and prints on console :Hello You are in dll.
> But after this statement I get the following error.
> The instruction at "0x28040110"refernced memory at "0x00000004".The
> memory could not be "written".
> When I debug this Application error in perl.exe I again get 1 message
> box displaying
> Unhandled exception in perl.exe(PERL58.DLL):0xC0000005:Access
> Violation.