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 :
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}
Le client lance l'appli de la façon suivante :
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;
Si vous pouviez me dépanner je galère dessus depuis maintenant pas mal de temps.

Merci

Anthony