Remoting simple et concret avec evenement

Description

Pas de panique, c'est une application extrêmement simple !!!
Il s'agit d'une application concrete réalisée pour un client (gratuitement).

Origine de l'application :
Oracle Mobile Server est installé sur un serveur. Le moteur WEBTOGO est executé dessus.
Ce serveur est un serveur de synchronisation entre des PDA et une Application de gestion de maintenance sous oracle centralisée. Un utilisateur est designé Administrateur pour paramétrer WEBTOGO.

Le problème :
Il arrive que Mobile server "Plante" et qu'un administrateur système (qui dispose des droits d'accès sur le serveur) soit obligé d'arreter et de redemarrer "Mobile Server" pour que cet utilisateur puisse ajouter de nouveaux utilisateurs PDA.

But de l'application :
On installe sur le serveur qui contient "Mobile Server" une application serveur qui écoute et execute les commandes qu'elle reçoit.
On installe sur l'ordinateur de l'administrateur de l'application une Application Cliente qui, lorsqu'il appui sur Arreter, STOP l'application Mobile Server (qui se trouve sur le serveur) et lorsqu'on appui sur Démarrer, LANCE l'application Mobile Server.

C'est tout bête mais tres utile. L'administrateur de l'application n'a plus besoin d'une tierce personne pour redémarrer l'application situé sur le serveur (à distance).

La solution est découpé en 3 composants :

Le client
Le serveur
L'Interface

PS : je sais très bien que j'aurai pu faire uniquement un bouton redémarrer et enlever la pause de 5 secondes mais dans un soucis de simplicité et de rapidité de développement (30 minutes) ceci n'a pas été fait.

PS: dans le .config vous trouverez les clés suivantes :

<add key="Application" value="L:\oracle\Ora10gL\Mobile\Server\bin\runmobileserver.bat" />
<add key="ApplicationName" value="Mobile Server" />
<add key="ApplicationKillName" value="java" />

La 1ère est l'application à démarrer lorsqu'on appui sur "Démarrer"
les 2 autres sont utilisé pour detecté l'application à fermer :
Application Name => si le titre de la fenêtre contient "Mobile Server"
ApplicationKillName => c'est le nom du processus à détruire.

Bref, en remplacant seulement ces 3 valeurs, vous pourrez démarrer/arreter n'importe quelle application à distance.

Dernière chose. Le port utilisé pour le serveur est le 1069.

Vos commentaires (constructifs) sont les bienvenus.

Source / Exemple :


'N'oubliez pas de modifier dans le FORM LOAD du client
'FRSV000634 par l'IP ou le NOm de VOTRE SERVEUR

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Button1.Visible = False
    Try
      Dim channel As TcpChannel = New TcpChannel
      ChannelServices.RegisterChannel(channel)
      remoteOperation = CType(Activator.GetObject(GetType(ITelviewRemote.ITelviewRemote), _
   "tcp://FRSV000634:1069/RemoteOperation"), ITelviewRemote.ITelviewRemote)
    Catch ex As Exception
      MessageBox.Show("Erreur de connexion au serveur" & vbCrLf & ex.Message)
    End Try
  End Sub

Conclusion :


'N'oubliez pas de modifier dans le FORM LOAD du client
'FRSV000634 par l'IP ou le NOm de VOTRE SERVEUR

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.