Salut,
Je souhaite établir lancer une appli à distance d'un PC sur un autre.
Pour cela j'utilise le DCom. J'ai paramêtré mon PC suivant votre cours intitulé "Le modèle COM". Cependant quand je souhaite éxecuter le programme à distance, j'ai toujours le même message d'erreur : "Accès refusé".
Dans l'observateur d'évènement j'ai le message suivant qui intervient :
Le client lance l'appli de la façon suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 DCOM a reçu l'erreur "Erreur d'accès général refusé " de l'ordinateur 192.168.33.12 lors de l'activation du serveur : {784A0DD1-39F8-413C-A561-90B8E03EE73F}
Si vous pouviez me dépanner je galère dessus depuis maintenant pas mal de temps.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.Button1Click(Sender: TObject); const CLASS_TestDCOM: TGUID = '{784A0DD1-39F8-413C-A561-90B8E03EE73F}'; var v : variant; begin v:=CreateRemoteCOMObject('192.168.33.7', Class_TestDCOM)as IDispatch; //v:=CreateRemoteCOMObject('Aautomation-074', Class_TestDCOM) ; ShowMessage('toto'); ShowMessage(v.GetName); end;
Merci
Anthony
Partager