用MTS作的多層系統,高手請進(50分)

private
vLoginedlevariant;
myLoginCoor:IxzBooksLogin;
myCoor:IxzBooksUserReg;
JS:IxzBooksJieBook;
RegBook:IxzBooksBookReg;
HS:IxzBooksHS;
Query:IxzBooksQuery;
procedure ClearTabShee2Edit;
{ Private declarations }
public
{ Public declarations }
end;

var
frmxzBooksTest: TfrmxzBooksTest;
isLogined:boolean=False;
implementation
{$R *.dfm}
uses uQueryForm;
procedure TfrmxzBooksTest.FormCreate(Sender: TObject);
var
iniServer:TIniFile;ServerName:string;
begin
try
iniServer:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'ServerName.ini');
with iniServerdo
ServerName:=ReadString('Option','RServerName','');
myLoginCoor:=coxzBooksLogin.CreateRemote(ServerName);
myCoor:=coxzBooksUserReg.CreateRemote(ServerName);
js:=coxzBooksJieBook.CreateRemote(ServerName);
RegBook:=coxzBooksBookReg.CreateRemote(ServerName);
HS:=coxzBooksHS.CreateRemote(ServerName);
Query:=coxzBooksQuery.CreateRemote(ServerName);
iniServer.Free;
except

這是我下載的一個用MTS作的圖書管理系統,
上面的servername倒底指的是甚麼?

从程序里面看出：servername 应该是一个com对象的属性的初始化，包括com对象的名称等
mycolor,js,regbook等应该是第三方控件的实例

myLoginCoor:IxzBooksLogin;
myCoor:IxzBooksUserReg;
JS:IxzBooksJieBook;
RegBook:IxzBooksBookReg;
HS:IxzBooksHS;
Query:IxzBooksQuery;
這些在RDM都是定益的接口,而ServerName指的到底是應用服務器程序名稱,還是應用服務器
所在計算畿的名稱

是應用服務器所在計算畿的名稱
你可以看一下CreateRemote的参数

9494
从createremote函数可以看出是远程应用程序服务器所在的计算机
的名称！

真是有意思，到底是哪个呢？
如果你的程序按照上面的写法能够正常的编译通过的话，
那么你的Interface的接口声明单元应该已经包括在了你的工程文件中，
由于采用的是早期绑定的方式，[red]所以ServerName一定不是远端对象的名字！[/red]
如果实在要猜CreateRemote函数的这个参数话，那就是远端计算机的名字。

应该是远程服务的实例对象

servername应该是应用服务段的某个com对象·！
他下面有很多接口！

不用瞎猜了，ServerName 是服务器所在电脑的名称。
我的软件就是这么写的。