DCOM - Creating a single server instance
Posted on 2003-03-14
I am facing a peculiar problem when I am using the remote data module.( File -> New -> Multi tier -> remote Data module)
I made a simple application server using remote data module object (myserver).Saved it on a machine 1 as 'server.dpr'. Ran it once.( so it gets registered).
I made a simple client with a dcom connection object and set its properties
computer name = 'machine1'
server name = 'server.myserver'
Placed the client on machine 2 and machine 3
a) Ran a client on machine 2 and machine 3
But i see that it creates an instance on machine 1 for each client.
b) I ran 2 client instance from machine 2 and surprisingly it doesnt open a new instance
c) I went and changed the (dcomcnfg.exe) identity tab to 'interactive user'
When i do so clients from machine 2 and 3 ,are not able to access the server at all.
The code where i am focussing is
Class_MyApartment, cimultiInstance, tmApartment);
class function CoMyApartment.Create: IMyApartment;
Result := CreateComObject(CLASS_MyApartment) as IMyApartment;
class function CoMyApartment.CreateRemote(const MachineName: string): IMyApartment;
Result := CreateRemoteComObject(MachineName, CLASS_MyApartment) as IMyApartment;
Can you throw some light on this issue of mine.