• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 271
  • Last Modified:

Delphi5's mts question,I am so sorry for I have only 75 points because I am new to this site


I had write a mts data module and a client application. In mts,there are
three object: adoconnection,adoquery,datasetprovider. The purpose of them is
retrieve data from Oracle 8.0.5 .

The client application is like the following statement:

procedure TForm1.Button1Click(Sender: TObject);
var
IServer:IUnknown;
appobj:TGUID;
iRowCount:Integer;
IData:IAppserver;
Params,OwnerData:OleVariant;
Options:TGetRecordOptions;
sSql:string;
begin
appobj:=stringtoGUID('{6D285EEB-8D30-4685-8FDB-247163FA8998}')
IServer:=CreateRemoteComObject('first',AppObj);//'first' is my server's
name
sSql:='select * from sys.catalog';
iRowCount:=0;
Options:=[grMetaData,grReset];
try
IData:=IServer as IAppserver;//when this program run on a computer
which's name is not firstshine, error message 'interface not supported'
appears at this line.
except
on e:eintfcasterror do
showmessage('asiyxgl_cx '+e.message);
end;


ClientDataset1.data:=IData.AS_GetRecords(AppProvider,-1,iRowCount,byte(Optio
ns),sSql,Params,OwnerData);
end;

At first,I run Client application and mts on my application server which's
name is 'firstshine',they work correctly. But,when I run client application
on another computer,it don't work.when IData:=IServer as IAppserver is
executed,'Interface not supported' appear.I don't know how can i do.
0
firstshine
Asked:
firstshine
  • 2
1 Solution
 
ziolkoCommented:
Two most possible reasons:
#1: you are trying to run client app on computer where your app is not correctly deployed
#2: it's security problem between "client" machine and "server" machine
ziolko.
0
 
ziolkoCommented:
one more thing to correectly delpoy app that uses IAppServer interface You need DBClient.dll, stdvcl40(50).dll and MIDAS.DLL.
ziolko.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now