PureBoard

Code: Alles auswählen

/*
 * ARIS Repository API sample program (step04.exe)
 *
 * Copyright (c) 1998 - 2000 by IDS Scheer AG
 * All Rights Reserved.
 *
 * >> show all groups and models using the user default <<
 * >> language in a selected ARIS database              <<
 *
 * This short sample code initializes the first platform, prompts
 * for a server to loggon and shows the available databases at the
 * specified server. After opening the specified database with
 * system/manager, the user default language and the configuration
 * FULLMETHOD, all groups and models will be displayed at the
 * screen. If any error appears the error text will be shown at
 * the screen and the sample program aborts immediately.
 */

#ifndef _API_ARISAPI_H
#	include "arisapi.h"
#endif

#ifndef _INC_STDIO
#	include <stdio.h>
#endif

#ifndef _INC_STDLIB
#	include <stdlib.h>
#endif

#ifndef _INC_STRING
#	include <string.h>
#endif

#ifndef __wtypes_h__
#	include <wtypes.h>
#endif


/* global error handling function, which will be called by
   each ARIS Repository API error appeared */
void myErrorHandler( ArisErrorRec *pError )
{
	char Text[_MAX_ERROR_TEXT];
	/* check if the error is stranger than a warning by the severity */
	if( ArisErrorGetSeverity( pError ) != _ARIS_ERROR_LOW ) {
		/* if the error is not just a warning, the error text
		   will be printed to screen and the program aborts. */
		ArisErrorGetText( Text, sizeof( Text ), pError );
		printf( "\n* %s\n\n", Text );
		exit( EXIT_FAILURE );
	}	
} /* myErrorHandler() */


/* main program entry point */
int main( void ) 
{
	/* automatic variables for instances */
	ArisErrorRec    Error;
	ArisPlatform    hPlatform = NULL;
	ArisServer      hServer   = NULL;
	ArisMethod      hMethod   = NULL;
	ArisDatabase    hDatabase = NULL;
	ArisGroup       hGroup    = NULL;
	ArisModel       hModel    = NULL;

	/* automatic variables for keys */
	ArisPlatformKey PKey      = ARIS_NOKEY;
	ArisChar        SKey      [_MAX_SERVER];
	ArisChar        DbKey     [_MAX_DATABASE];
	ArisLanguageKey LKey      = 1033; /* locale id */
	ArisChar        CKey      [_MAX_CONFIG_KEY];
	ArisGroupKey    GKey      = ARIS_NOKEY;
	ArisModelKey    MKey      = ARIS_NOKEY;

	/* automatic variables for strings */
	ArisChar        szVersion [_MAX_VERSION];
	ArisChar        szText    [255];

	/* regularise the global error handling function */
	ArisErrorHandlerSet( myErrorHandler );
	
	/* show the version of the ARIS Repository API */
	printf( "Library: %s\n\n", ArisApiGetVersion( szVersion, _MAX_VERSION ) );

	/* initialize the first (and only) ARIS platform */
	hPlatform = ArisPlatformCreate( &Error );
	PKey = ArisPlatformGetFirst( hPlatform, &Error );
	ArisPlatformInit( hPlatform, PKey, &Error );

	/* show all ARIS servers registered at the local machine */
	hServer = ArisServerCreate( hPlatform, &Error );
	printf( "%d server(s) found:\n", ArisServerGetCount( hPlatform, &Error ) );
	for( ArisServerGetFirst( hPlatform, SKey, sizeof( SKey ), &Error );
	    !ArisErrorGetNum( &Error );
	     ArisServerGetNext ( hPlatform, SKey, sizeof( SKey ), &Error ) ) {
		printf( "  %s\n", SKey ); 
	}
	/* ask for the server to be initialized */
	printf( "\nPlease enter a valid server name: "); SKey[0] = '\0';
	scanf( "%s", SKey );
	/* the specified server will be initialized */
	printf( "Initializing server '%s'...\n\n", SKey );
	ArisServerInit( hServer, SKey, &Error );
	ArisServerLogin( hServer, &Error );

	/* try to initialize the english ARIS method,
	   otherwise use the installed ARIS language */
	hMethod = ArisMethodCreate( hServer, &Error );
	ArisMethodInit( hMethod, "en", &Error );

	/* show all available ARIS databases */
	hDatabase = ArisDatabaseCreate( hServer, &Error );
	printf( "%d database(s) found:\n", ArisDatabaseGetCount( hServer, &Error ) );
	for( ArisDatabaseGetFirst( hServer, DbKey, sizeof( DbKey ), &Error );
	    !ArisErrorGetNum( &Error );
	     ArisDatabaseGetNext ( hServer, DbKey, sizeof( DbKey ), &Error ) ) {
		printf( "  %s\n", DbKey );
	}
	/* ask for the database to be opened */
	printf( "\nPlease enter a valid database name: "); DbKey[0] = '\0';
	scanf( "%s", DbKey );
	/* the specified database will be opened with system/manager default */
	printf( "Initializing database '%s'...\n\n", DbKey );
	ArisDatabaseInit( hDatabase, DbKey, &Error );
	ArisDatabaseOpen( hDatabase, "Guest", "guest", OPEN_STANDARD, NULL, &Error );

	/* the user default language will be initialized */
	ArisLanguageInit( hDatabase, LKey, &Error );
	printf( "Initializing language %s...\n\n", ArisLanguageGetName( hDatabase, szText, sizeof( szText ), &Error ) );

  /*
	 * the configuration 'entire method' will be initialized.
   *
	 * You can find all available filter GUIDs in the  
   * configuration wizard of the ARIS Toolset. The
   * following GUID corresponds to the entire method.
   *
   */
	strcpy( CKey, "DD838074-AC29-11d4-85B8-00005A4053FF" );
	printf( "Initializing configuration '%s'...\n\n", CKey );
	ArisConfigInit( hDatabase, CKey, &Error );

	/* show all available ARIS groups in the database */
	hGroup = ArisGroupCreate( hDatabase, &Error );
	printf( "%d group(s) found:\n", ArisGroupGetCount( hDatabase, &Error ) );
	for( GKey = ArisGroupGetFirst( hDatabase, &Error );
	    !ArisErrorGetNum( &Error );
	     GKey = ArisGroupGetNext ( hDatabase, &Error ) ) {
		ArisGroupInit( hGroup, GKey, &Error );
		printf( "  %s\n", ArisGroupGetAttr( hGroup, AT_NAME, szText, sizeof( szText ), &Error ) );
	}

	/* show all available ARIS models in the several groups */
	hModel = ArisModelCreate( hDatabase, &Error );
	for( GKey = ArisGroupGetFirst( hDatabase, &Error );
	    !ArisErrorGetNum( &Error );
	     GKey = ArisGroupGetNext ( hDatabase, &Error ) ) {
		ArisGroupInit( hGroup, GKey, &Error );
		printf( "\n%d model(s) found in group '%s':\n", ArisModelGetCount( hGroup, &Error ),
		ArisGroupGetAttr( hGroup, AT_NAME, szText, sizeof( szText ), &Error ) );
		/* show all ARIS models in the current group */
		for( MKey = ArisModelGetFirst( hGroup, &Error );
			!ArisErrorGetNum( &Error );
			 MKey = ArisModelGetNext ( hGroup, &Error ) ) {
			ArisModelInit( hModel, MKey, &Error );
			printf( "  %s\n", ArisModelGetAttr( hModel, AT_NAME, szText, sizeof( szText ), &Error ) );
		}
	}

	/* deinitialize all objects and free all memory allocated by ArisXxxCreate() */	 
	ArisModelFree    ( &hModel   , &Error );
	ArisGroupFree    ( &hGroup   , &Error );
	ArisDatabaseClose(  hDatabase, &Error );
	ArisDatabaseFree ( &hDatabase, &Error );
	ArisMethodFree   ( &hMethod  , &Error );
	ArisServerLogout (  hServer  , &Error );
	ArisServerFree   ( &hServer  , &Error );
	ArisPlatformFree ( &hPlatform, &Error );

	return EXIT_SUCCESS;
} /* main() */

/* end of file step04.c */

Code: Alles auswählen

#ArisApi = 0
  Ergebnis = OpenConsole()
  If OpenLibrary(#ArisApi, "ATSApi.dll")
    PrintN("Geoeffnet")
  Else
    PrintN("Konnte diese bloede Dll nicht oeffnen")
  EndIf
PrintN("Oeffne ArisPlatformCreate")
      hPlatform = CallFunction(#ArisApi, "ArisPlatformCreate" ,Error)

  If CallFunction(#ArisApi, "ArisPlatformGetFirst", hPlatform, Error )
    PrintN("hallo1")
PrintN("Oeffne ArisPlatformGetFirst")
    PKey = CallFunction(#ArisApi, "ArisPlatformGetFirst", @hPlatform, Error )
  EndIf
  PrintN("Hello again")
	CallFunction(#ArisApi, "ArisPlatformInit", hPlatform, PKey, Error) 
PrintN("Hallo")
    hServer.l = CallFunction(#ArisApi, "ArisServerCreate", hPlatform, Error)
PrintN(Str(hServer))
PrintN("CreateServer: "+Str(Error))
  CallFunction(#ArisApi, "ArisServerInit", hServer, "servername.net", Error)
PrintN(Str(Error))

Code: Alles auswählen

    hPlatform = CallFunction(#ArisApi, "ArisPlatformCreate" ,Error) 

Code: Alles auswählen

    hPlatform = CallFunction(#ArisApi, "ArisPlatformCreate" ,@Error)