1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Remoting simple et concret avec evenement

Remoting simple et concret avec evenement

0/5 (24 avis)

Vue 10 792 fois - Téléchargée 823 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
langju Messages postés 88 Date d'inscription mardi 6 février 2001 Statut Membre Dernière intervention 27 juillet 2007
11 juil. 2007 à 19:17
Vos commentaires et notes sont bienvenus. (Source pour débutant très simple à comprendre.)
dieuzorro Messages postés 21 Date d'inscription jeudi 6 janvier 2005 Statut Membre Dernière intervention 14 janvier 2008
12 juil. 2007 à 13:06
Salut,

Pourai-tu ajouter un evenement dans ton exemple?
langju Messages postés 88 Date d'inscription mardi 6 février 2001 Statut Membre Dernière intervention 27 juillet 2007
12 juil. 2007 à 13:31
les evenements sont à ajouter dans le remoteoperation.vb

PS: modifiez la source à votre convenance.
langju Messages postés 88 Date d'inscription mardi 6 février 2001 Statut Membre Dernière intervention 27 juillet 2007
12 juil. 2007 à 13:49
Quelle genre d'evenement aurais-tu voulu ajouter ?
cacalex Messages postés 69 Date d'inscription mardi 9 mars 2004 Statut Membre Dernière intervention 3 avril 2008
12 juil. 2007 à 13:57
Joli !

Si ça vraiment été codé en 30 min...

"PS: modifiez la source à votre convenance."

Compte sur moi !
:)
S'inscrire maintenant

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.

Du même auteur (langju)