Write C code and return 0 not work.

[richard-service]

Dear Antonio, Mr.Rao

Why I run INITMODULE function return 0, but correct is some number not 0

I have a dll file.

C code

Code: Select all  Expand view

unsigned long InitModule ( char* pszModuleName, ;
                           void* pInitArgs,     ;
                           unsigned long* pulModuleHandle);
 

FWH code

Code: Select all  Expand view

INITMODULE("HCAPKCS11",@hICModule)

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"

   int WINAPI InitModule( LPSTR pszModuleName, void * pInitargs, LPDWORD pulModuleHandle);
                                       
   HB_FUNC( INITMODULE)
   {
     LPSTR   pszModuleName   = (char *) hb_parc(1);
     LPDWORD   pulModuleHandle = hb_parnl(2);
     LONG err;
     err=InitModule( pszModuleName, NULL, &pulModuleHandle );
     hb_retnl(err);
   }
#pragma ENDDUMP
 

[cnavarro]

Dear Antonio, Mr.Rao

Why I run INITMODULE function return 0, but correct is some number not 0

I have a dll file.

C code

Code: Select all  Expand view

unsigned long InitModule ( char* pszModuleName, ;
                           void* pInitArgs,     ;
                           unsigned long* pulModuleHandle);
 

FWH code

Code: Select all  Expand view

INITMODULE("HCAPKCS11",@hICModule)

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"

   int WINAPI InitModule( LPSTR pszModuleName, void * pInitargs, LPDWORD pulModuleHandle);
                                       
   HB_FUNC( INITMODULE)
   {
     LPSTR   pszModuleName   = (char *) hb_parc(1);
     LPDWORD   pulModuleHandle = hb_parnl(2);
     LONG err;
     err=InitModule( pszModuleName, NULL, &pulModuleHandle );
     hb_retnl(err);
   }
#pragma ENDDUMP
 

Please, try

Code: Select all  Expand view

INITMODULE("HCAPKCS11", , @hICModule)

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"

   int WINAPI InitModule( LPSTR pszModuleName, void * pInitargs, LPDWORD pulModuleHandle);
                                       
   HB_FUNC( INITMODULE)
   {
     LPSTR   pszModuleName   = (char *) hb_parc(1);
     LPDWORD   pulModuleHandle = hb_parnl(3);
     LONG err;
     err=InitModule( pszModuleName, NULL, &pulModuleHandle );
     hb_retnl(err);
   }
#pragma ENDDUMP
 

[richard-service]

Dear Antonio, Mr.Rao

Why I run INITMODULE function return 0, but correct is some number not 0

I have a dll file.

C code

Code: Select all  Expand view

unsigned long InitModule ( char* pszModuleName, ;
                           void* pInitArgs,     ;
                           unsigned long* pulModuleHandle);
 

FWH code

Code: Select all  Expand view

INITMODULE("HCAPKCS11",@hICModule)

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"

   int WINAPI InitModule( LPSTR pszModuleName, void * pInitargs, LPDWORD pulModuleHandle);
                                       
   HB_FUNC( INITMODULE)
   {
     LPSTR   pszModuleName   = (char *) hb_parc(1);
     LPDWORD   pulModuleHandle = hb_parnl(2);
     LONG err;
     err=InitModule( pszModuleName, NULL, &pulModuleHandle );
     hb_retnl(err);
   }
#pragma ENDDUMP
 

Please, try

Code: Select all  Expand view

INITMODULE("HCAPKCS11", , @hICModule)

#pragma BEGINDUMP

   #include "windows.h"
   #include "hbapi.h"

   int WINAPI InitModule( LPSTR pszModuleName, void * pInitargs, LPDWORD pulModuleHandle);
                                       
   HB_FUNC( INITMODULE)
   {
     LPSTR   pszModuleName   = (char *) hb_parc(1);
     LPDWORD   pulModuleHandle = hb_parnl(3);
     LONG err;
     err=InitModule( pszModuleName, NULL, &pulModuleHandle );
     hb_retnl(err);
   }
#pragma ENDDUMP
 

Thanks a lot. it's work.

[richard-service]

Dear all

This's other function below:

Code: Select all  Expand view

nsigned long GetKeyObjectHandle (
  unsigned long ulModuleHandle,
  unsigned long ulSessionHandle,
  int iKeyType,
  unsigned char* pKeyID,
  int iKeyIDLength,
  void* pvPara,
  int iParaLength,
  unsigned long* pulKeyObjectHandle)
 

How to make HB_GetKeyObjectHandle() function?

void* pvPara => Deadly

This is VB call function below:

Code: Select all  Expand view

Dim hKeyObject As Long
sKeyID(0) = &H1    
iKeyType = 0    
rtn = GetKeyObjectHandle(hICModule, hICSession, iKeyType, 0, 0, VarPtr(sKeyID(0)), 1, VarPtr(hKeyObject))