DCOM problem .....
DCOM problem .....
1. I could run it in same pc(server,client)
2. I can lunch server from client
3. I get a "interface not supported" When I running following line in client
procedure TAxesBrain.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer; <<-- OK
ConnectEvents(punk); <<-- OK
Fintf := punk as IAxesBrain; <<------ give me "interface not supported"
end;
end;
P.S
iUnknown = IIterface
IAxesBrain = interface(IDispatch)
['{1F110135-14DE-4ACE-ADF3-017ED1A35687}']
procedure Test(iTestNumber: Smallint); safecall;
:
FIntf: IAxesBrain;
1. I could run it in same pc(server,client)
2. I can lunch server from client
3. I get a "interface not supported" When I running following line in client
procedure TAxesBrain.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer; <<-- OK
ConnectEvents(punk); <<-- OK
Fintf := punk as IAxesBrain; <<------ give me "interface not supported"
end;
end;
P.S
iUnknown = IIterface
IAxesBrain = interface(IDispatch)
['{1F110135-14DE-4ACE-ADF3-017ED1A35687}']
procedure Test(iTestNumber: Smallint); safecall;
:
FIntf: IAxesBrain;
Comments
Post a Comment