Objkrn

Commande de compilation

Dans le menu Project - Add Existing Item de Visual C++, il faut ajouter la bibliothèque ${UPS_HOME}/upscrb/upscrb/upsvtm_sc.lib pour que les méthodes statiques des classes soient disponibles.
Dans le menu Project - Properties de Visual C++, il faut spécifier que l'alignement des structures est de quatre octets via l'option de compilation /ZP4.

Commande d'enregistrement des objets Corba

${MICO_HOME}/bin/ird -ORBIIOPAddr inet:localhost:8888 --db 
${MICO_HOME}/db/db-ird

${MICO_HOME}/bin/micod -ORBIIOPAddr inet:localhost:9999 --db 
${MICO_HOME}/db/db-micod.txt --forward

upsvtm Corba=Charger

Commande d'exécution

${MICO_HOME}/bin/ird -ORBIIOPAddr inet:localhost:8888 --db 
${MICO_HOME}/db/db-ird

${MICO_HOME}/bin/micod -ORBIIOPAddr inet:localhost:9999 --db 
${MICO_HOME}/db/db-micod.txt --forward

objkrn -ORBIfaceRepoAddr inet:localhost:8888 -ORBImplRepoAddr 
inet:localhost:9999 -ORBBindAddr local:

Fichier source


#include <CORBA.h>

#include <mico/string.h>

#include <upskrn.hh>

#include <upssys.hh>

#include <upscrbexception.h>



using namespace std;



static CORBA::ORB *pOrb;

static CORBA::BOA *pBoa;

static CORBA::Object *pObjet;

static IUpsKrn *pIUpsKrn;

static IUpsSys *pIUpsSys;



/****************************************************************/

int main(int argc, char *argv[])

/****************************************************************/

{

IUpsKrnCaractere_var A;

IUpsKrnEntier_var L;

IUpsSysFichier_var Map;



pOrb=CORBA::ORB_init(argc,argv, "mico-local-orb");

if (!pOrb)

	return(1);
pBoa=pOrb->BOA_init(argc, argv, "mico-local-boa");

if (!pBoa)

	return(1);
pObjet=pOrb->bind("IDL:IUpsKrn:1.0");

if (!pObjet)

	return(1);

pIUpsKrn=IUpsKrn::_narrow(pObjet);

if (!pIUpsKrn)

	return(1);
pObjet=pOrb->bind("IDL:IUpsSys:1.0");

if (!pObjet)

	return(1);

pIUpsSys=IUpsSys::_narrow(pObjet);

if (!pIUpsSys)

	return(1);



try

	{

	pIUpsSys->Ecran()->Ecrire3(pIUpsKrn->CorbaString2Caractere(Entrer une 
		ligne :"));

	L=pIUpsSys->Clavier()->LireUneLigne(A);

	pIUpsSys->Ecran()->Ecrire3(pIUpsKrn->CorbaString2Caractere(Ligne lue 
		: ")->Additionner(A)->Additionner(pIUpsKrn->CorbaString2Caractere( 
		de taille "))->Additionner(pIUpsKrn->Caractere5(L)));

	pIUpsSys->Journal()->Ecrire3(pIUpsKrn->CorbaString2Caractere(Ligne 
		lue : ")->Additionner(A)->Additionner(pIUpsKrn->CorbaString2Caractere( 
		de taille "))->Additionner(pIUpsKrn->Caractere5(L)));

	Map=pIUpsSys->MiseAuPoint();

	if (!pIUpsKrn->EstNul((IUpsKrnObjet *)&(*Map)))
	Map->Ecrire3(pIUpsKrn->CorbaString2Caractere("Ligne lue : ")->Additionner(A)->Additionner(pIUpsKrn->CorbaString2Caractere( 
			de taille "))->Additionner(pIUpsKrn->Caractere5(L)));
	
pIUpsSys->Imprimante()->Ecrire3(pIUpsKrn->CorbaString2Caractere(Ligne 
		lue : ")->Additionner(A)->Additionner(pIUpsKrn->CorbaString2Caractere( 
		de taille "))->Additionner(pIUpsKrn->Caractere5(L)));

	pIUpsSys->Imprimante()->Vider();

	}

catch (UpsCrbException *E)

	{

	cout
	<< Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le source 
		'" << E->NomSourceEnErreur<< "' :" << endl;

	cout
	<< E->MessageErreur<< endl;

	return(1); 

	}

catch (CORBA::Exception &e)

	{

	cout
	<< "Erreur Mico : L'exception suivante a été envoyée :"
	<< endl;

	cout <<
	e << endl;

	return(1);

	}



A=NULL;

L=NULL;

Map=NULL;

CORBA::release(pIUpsSys);

pIUpsSys=NULL;

CORBA::release(pIUpsKrn);

pIUpsKrn=NULL;

delete pBoa;

delete pOrb;

return(0);

}