Esempi in C++ (Cpp) per SysLoadLibraryWithErrFlag

Esempio n. 1

File: currency.c Progetto: DeegC/10d

zSHORT
fnLoadString( zVIEW   vSubtask,
              zCPCHAR cpcModuleName,
              zULONG  ulID,
              zPCHAR  pchReturnString,
              zSHORT  nBufferMax )
{
   LPLIBRARY hLibrary;

   if ( cpcModuleName && *cpcModuleName )   // DLL_Name
   {
      hLibrary = SysLoadLibraryWithErrFlag( vSubtask, cpcModuleName,
                                            zLOADLIB_RESOURCES );
      if ( hLibrary )
      {
         zSHORT nLanguageCode;

         HINSTANCE hInstDLL = (HINSTANCE) SysGetInstance( hLibrary );
         SysGetLanguageCode( &nLanguageCode );
         return( LoadString( hInstDLL, ulID + (nLanguageCode * 100) - 100,
                             pchReturnString, nBufferMax ) );
      }
   }

   return( -1 );
}

Esempio n. 2

File: tzsioprs.c Progetto: arksoftgit/10c

////////////////////////////////////////////////////////////////////////////////////////////////////////
// Local Operations
////////////////////////////////////////////////////////////////////////////////////////////////////////
// Load HZVAFFZ.DLL
static zSHORT fnLoadHzvaffz ( zVIEW vSubtask )
{
  // Load the DLL (must be in the path)

  g_hLib = SysLoadLibraryWithErrFlag( vSubtask, "HZVAFFZ", 0 );
  if ( g_hLib == 0 )
    return( 500 );

  pfnOpenEnv = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaOpenEnv");
  if (pfnOpenEnv == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 501 );
  }

  pfnFreeEnv = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaFreeEnv");
  if (pfnFreeEnv == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 502 );
  }

  pfnGetAllServerNames = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetAllServerNames" );
  if (pfnGetAllServerNames == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 503 );
  }

  pfnGetAnzahlServerNames = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetAnzahlServerNames" );
  if (pfnGetAnzahlServerNames == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 504 );
  }

  pfnGetAnzahlCatalogFiles = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetAnzahlCatalogFiles" );
  if (pfnGetAnzahlCatalogFiles == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 505 );
  }

  pfnGetAllCatalogFiles = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetAllCatalogFiles" );
  if (pfnGetAllCatalogFiles == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 506 );
  }

  pfnGetLocalCatalogs = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetLocalCatalogs" );
  if (pfnGetLocalCatalogs == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 513 );
  }

  pfnReadCatalog = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaReadCatalog" );
  if (pfnReadCatalog == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 514 );
  }

  pfnFreeCatalogStructs = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaFreeCatalogStructs" );
  if (pfnFreeCatalogStructs == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 515 );
  }

  pfnWriteWSK = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaWriteWSK" );
  if (pfnWriteWSK == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 516 );
  }

  pfnGetPathname = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetPathname" );
  if (pfnGetPathname == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 517 );
  }

  pfnGetServerCatalogs = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaGetServerCatalogs" );
  if (pfnGetServerCatalogs == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 520 );
  }

  pfnReadServerCatalog = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaReadServerCatalog" );
  if (pfnReadServerCatalog == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 521 );
  }

  pfnFreeListMemory = (DLL_ENTRY_S) SysGetProc( g_hLib, "hzvaFreeListMemory" );
  if (pfnFreeListMemory == NULL)
  {
      SysFreeLibrary( vSubtask, g_hLib );
      return( 522 );
  }

  return( 0 );
}