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 ); }
//////////////////////////////////////////////////////////////////////////////////////////////////////// // 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 ); }