Usage de l'accès distant

Commande de compilation...
Commande d'exécution...
Fichiers sources...

upscmp Source=serveur AdaptateurServeurUpsNet=Oui Lanceur=Serveur

upscmp Source=client

Revenir en haut de la page...

upsorb PortUpsOrb=1632

serveur PortUpsOrb=1632 PortServeur=1640 NbServeurs=1

client PortUpsOrb=1632 PortServeur=1650 NbServeurs=1

Revenir en haut de la page...

Source Composant "Exemple d'emploi de l'accès distant" Version 1.0.0;

Principal
/*******/
Debut TantQue Vrai Faire Fin TantQue
Fin Principal
Source Composant "Exemple d'emploi de l'accès distant" Version 1.0.0;

Variable Principal
Debut MonServeur=Serveur("UpsKrn", 1, 0, 0, "serveur");
F=Fichier@MonServeur("/tmp/essai.txt", EcritureTexte);
F.Ecrire("Bonjour\nAu revoir\nEt a bientot\n");
F.Ecrire(1);
F.Ecrire("\n");
F.Ecrire(2.3);
F.Ecrire("\n");
F.Ecrire(Vrai);
F.Ecrire("\n");
F.Vider();
F.DeposerSurDisque();
F.Fermer();

F=Fichier@MonServeur("c:/tmp/essai.txt", LectureTexte);
E=F.LireUnMot(C, 20);
Ecran.Ecrire(C);
E=F.Lire(C, 4);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
E=F.LireUneLigne(C, 50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
P=F.LirePosition();
E=F.LireUneLigne(C, 50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
F.Lire(E);
Ecran.Ecrire(E);
F.Lire(R);
Ecran.Ecrire(R);
F.Lire(B);
Ecran.Ecrire(B);
E=F.Lire(C, 4);
F.FixerPosition(P);
E=F.LireUneLigne(C, 50);
Ecran.Ecrire(C);
Ecran.Ecrire(E);
Si F.FinDeFlux Alors Fin Si
F.Fermer();
Ecran.Ecrire("\n");

F=Fichier("/tmp/essai.txt@serveur", EcritureTexte);
F.Ecrire("Bonjour\n");
F.Fermer();

S=Synchronisation@MonServeur("MaSynchronisation", SynchronisationPrivee);
S.Prendre(SynchronisationLecturePartagee);
Ecran.Ecrire("On se synchronise\n");
S.Lacher();

T=TachePrincipale@MonServeur;
T.ChangerPrioriteRelative(10);
Ecran.Ecrire(T.LirePrioriteRelative());
T.SuspendreTache();
T.ReprendreTache();

Ecran.Ecrire(NomProgramme@MonServeur);
Ecran.Ecrire(EntrepotSysteme@MonServeur.TailleMemoireAllouee());
Ecran.Ecrire(EntrepotSysteme@MonServeur.TailleMemoireTotale());
Ecran.Ecrire(ServeurLocal.NomServeur);
Ecran.Ecrire(ServeurLocal@MonServeur.NomServeur);

F=Fichier("/tmp/essai.txt", EcritureTexte);
F.Ecrire("Bonjour\n");
F.Fermer();

CreerRepertoire("/tmp2@serveur");
CreerFichier("/tmp2/essai.txt@serveur");
CopierFichier("/tmp/essai.txt", "/tmp2/essai.txt@serveur");
CopierFichier("/tmp2/essai.txt@serveur", "/tmp/essai.txt");
CopierRepertoire("/tmp2@serveur", "/tmp3");
SupprimerFichier("/tmp2/essai.txt@serveur");
SupprimerRepertoire("/tmp2@serveur");
CopierRepertoire("/tmp3", "/tmp2@serveur");
SupprimerRepertoire("/tmp2@serveur");
RenommerRepertoire("/tmp3@serveur", "/tmp2@serveur");
ChangerDroitsDAcces("/tmp2/essai.txt@serveur", DroitLectureEcriture, DroitLecture, DroitLecture);
Selon LireDroitsDAcces("/tmp2/essai.txt@serveur", ?, ?) Faire Fin Selon
Ecran.Ecrire(LireCaracteristiquesFichier("/tmp2/essai.txt@serveur"));
SupprimerRepertoire("/tmp2");
Ecran.Ecrire("\n");

L1=ListerFichiers("/@serveur", Nul);
Pour FL=L1.ParcoursAuDebut() JusquA L1.DernierElement() Faire Fin Pour
Ecran.Ecrire("\n");

?=Executer@MonServeur("notepad.exe", Faux, Faux, E);
Ecran.Ecrire(E);
Fin Principal

Revenir en haut de la page...