（1）TMTS基本架構

1、TMTS是一個服務器，类似COM+服务器，在接口裏只有一個函數：   

IBizService=interface(IConnectionService) ['{11C672E9-6082-4ACD-93AB-3F3A18E44E6F}'] //clone a interface for multi-thread function Clone:IBizService; //call business mehod in appserver //需要定义ClientContent，因为SOAPBroker.dll中转会需要 function Call(const AServiceName,AMethodName:string; const AParams:OLEVariant;const AServiceObjectStub:integer=-1; const ACallMode:TServiceCallMode=cmSyncCall; const AResultIsFile:Boolean=false; const AResultSaveDirectory:string=''; const AClient:TClientContent=nil):OLEVariant; function CallSync(const AServiceName,AMethodName:string; const AParams:OLEVariant;const AServiceObjectStub:integer=-1; const AResultIsFile:Boolean=false; const AResultSaveDirectory:string=''; const AClient:TClientContent=nil):OLEVariant; //必须有Client参数，因为存在SOAP/Http中转模式 //因为有了Client参数，不能再加eMail参数，因为SOAP中转变时成了IIS电脑的本地信息 function CallAsync(const AServiceName,AMethodName:string; const AParams:OLEVariant;const AServiceObjectStub:integer=-1; const AResultSaveDirectory:string=''; const AResultNotifier:IAsyncCallResultNotifier=nil; const AClient:TClientContent=nil; const AIsShowModalProgress:Boolean=false):TAsyncCallIdentifier;overload; function GetAsyncCallProgress(const AAsyncCallIdentifier:TAsyncCallIdentifier; const AAsyncContent:TAsyncCallContent; const AClient:TClientContent=nil):Boolean; procedure CancelAsyncCall(const AAsyncCallIdentifier:TAsyncCallIdentifier; const AClient:TClientContent=nil); function CombineConnectionString(AComputerName,AServerName,AServerGUID:string;APort:integer):string; function GetDefaultPort:integer; function GetDefaultComputerName:string; function IsServerPortReadOnly:Boolean; end; function TServiceRepository.Call( const AInvokeContent:TInvokeContent): OLEVariant; var Index:integer; i:integer; vMacs:string; vFound:Boolean; begin //来源不同的线程调用本call函数，DCOM的Apartment thread，TCP的Peerthread //建立一个工作线程，这样才能控制超时, //否则用TerminateThread API会资源泄漏，或者客户端Hold住. //有必要作一个工作线程的线程池吗？ //开始一个Activity,根元件可能不需要transaction,故这里不适合处理transaction Result:=null; ClientRepository.Lock; try if (ClientRepository.FUseAuthorizedIPList) and not ClientRepository.FAuthorizedIPList.Find(AInvokeContent.ClientContent.IP,Index) then Raise Exception.CreateFmt(S_ClientIPNotAuthorized,[AInvokeContent.ClientContent.IP]); if (ClientRepository.FUseAuthorizedCardList) and not ClientRepository.FAuthorizedCardList.Find(AInvokeContent.ClientContent.DogCardNo,Index) then Raise Exception.CreateFmt(S_ClientCardNotAuthorized,[AInvokeContent.ClientContent.DogCardNo]); if (ClientRepository.FUseAuthorizedMacList) then begin vFound:=false; for i:=0 to High(AInvokeContent.ClientContent.MACs) do begin if ClientRepository.FAuthorizedMacList.Find(AInvokeContent.ClientContent.Macs[i],Index) then begin vFound:=true; break; end; end; if not vFound then begin vMacs:=''; for i:=0 to High(AInvokeContent.ClientContent.Macs) do vMacs:=vMacs+AInvokeContent.ClientContent.Macs[i]+';'; if vMacs<>'' then Delete(vMacs,Length(vMacs),1); //记录这个授权禁止错误 ServiceLog.CallEnd(AInvokeContent,AInvokeContent.CallMode=cmAsyncCall, 0,false,false,WideFormat(S_ClientMacNotAuthorized,[vMacs])); Raise Exception.CreateFmt(S_ClientMacNotAuthorized,[vMacs]); end; end; finally ClientRepository.UnLock; end; case AInvokeContent.CallMode of cmSyncCall: Result:=SyncCall(AInvokeContent); cmAsyncCall: Result:=AsyncCall(AInvokeContent); cmLockObject: Result:=Integer(LockObject(AInvokeContent)); cmUnLockObject: UnLockObject(AInvokeContent); cmGetAsyncCallStatus: Result:=GetAsyncCallStatus(AInvokeContent); cmCancelAsyncCall: CancelAsyncCall(AInvokeContent); end; end;

這簡化了開發過程，並能使客戶端很容易的實現多種通訊協議的調用，如DCOM，Socket，TCP，SOAP，甚至RS232。一般的方式，如果程序員不停的撰寫新的COM或COM+元件，不停的在元件接口裏增加新的函數，如果需要改變調用協議，如換到SOAP，就需要在SOAP中將這些COM元件及接口函數再定義，會很麻煩。

2、服務器支持用bpl來作爲BusinessObject插件。

3、數據庫的訪問定義了IDBService接口，可以實現不同引擎，如BDE、ADO、DBexpress。

4、BusinessObject的訪問定義了IBizService，客戶端同時擁有IDBServer和IBizServer，即數據庫的訪問可以是直接的數據庫訪問(C/S模式），也可以通過IBizService讓中間層服務器TMTS來訪問數據庫。

5、BusinessObject可以部署在客戶端，指在客戶端Exe進程裏，不是COM dll，因此不需要安裝和註冊。

6、有自己的UI界面，可以观察ServiceObject执行情况。并能以插件形式插入一些特别应用的UI画面。

ServiceObject的方法都定义在published区段，调用时通过RTTI来查找被调用函数。

TServiceProc1=function(const AParams:OLEVariant):OLEVariant of object; TServiceProc2=function(const AParams:OLEVariant;AASyncCallContent:TASyncCallContent):OLEVariant of object; TServiceProc3=function(const AParams:OLEVariant;AASyncCallContent:TASyncCallContent;const AClientContent:TClientContent):OLEVariant of object; function TCustomServiceObject.CallMethod( const AMethodName: string; const AParams: OLEVariant; const AASyncCallContent:TASyncCallContent; const AClientContent:TClientContent): OLEVariant; var AMethod:TServiceProc1; vCount:integer; begin TMethod(AMethod).Data:=Self; TMethod(AMethod).Code:=Self.MethodAddress(AMethodName); if TMethod(AMethod).Code=nil then Raise Exception.CreateFmt(S_MethodNotFind,[AMethodName,FServiceName]); vCount:=GetMethodParamCount2(Self,AMethodName); case vCount of 2:Result:=TServiceProc1(AMethod)(AParams); 3:Result:=TServiceProc2(AMethod)(AParams,AASyncCallContent); 4:Result:=TServiceProc3(AMethod)(AParams,AASyncCallContent,AClientContent); else Raise Exception.CreateFmt(S_NotFoundMethod,[ClassName+':'+AMethodName,InttoStr(vCount)]); end; end;