Error E2140

Error E2140

Postby Jimmy » Fri Dec 02, 2022 12:50 pm

hi,

i try to include some HMG HB_FUNC() but got

Error E2140 .\\HB_FUNC.PRG 880: Declaration is not allowed here in function HB_FUN_HMG_ISFUNCDLL


Code: Select all  Expand view
HB_FUNC ( HMG_ISFUNCDLL ) //        HMG_IsFuncDLL ( pLibDLL | cLibName, cFuncName ) ---> Boolean
{
   HMODULE hModule = NULL;
   BOOL bRelease;

   if ( HB_ISCHAR (1) )
   {  hModule = LoadLibrary ((TCHAR *) hb_parc (1));
      bRelease = TRUE;
   }
   else
   {  hModule = hb_libHandle (hb_param (1, HB_IT_ANY));
      bRelease = FALSE;
   }

   CHAR * cFuncName = (CHAR *) hb_parc (2);           // this Line

   hb_retl (GetProcAddress (hModule, cFuncName) ? TRUE : FALSE);

   if (bRelease && hModule)
      FreeLibrary (hModule);
}
 

i try to change Position but than all CODE behind does get Warning ...

any Idea how i can change it :?:
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: Error E2140

Postby karinha » Fri Dec 02, 2022 1:02 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7826
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Error E2140

Postby Jimmy » Fri Dec 02, 2022 2:10 pm

hi,

thx for Answer

i want to use HMG Code under Fivewin
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 91 guests