RemObject認(rèn)證服務(wù)端程序編寫步驟功能說(shuō)明：用remobject編寫服務(wù)端，通rodl暴露的方法給客戶調(diào)用，但這些方法須要通過(guò)認(rèn)證才能運(yùn)用。服務(wù)端應(yīng)供應(yīng)兩種服務(wù)：登陸服務(wù)供應(yīng)登陸認(rèn)證方法應(yīng)用服務(wù)用戶編寫的詳細(xì)方法，但須要在登陸服務(wù)認(rèn)證通過(guò)的狀況下才能運(yùn)用工作示意圖服務(wù)端編寫步驟在硬盤中新建一個(gè)文件夾d:\testServer啟動(dòng)delphi點(diǎn)擊菜單filenewother選擇remObjectsSDK頁(yè)面再選擇VCL圖標(biāo),然后點(diǎn)擊OK按鈕進(jìn)入一步在ProjectFolder：中錄入d:\testServer點(diǎn)擊advancedProjectOptions..按鈕，進(jìn)入高級(jí)選項(xiàng)設(shè)置然后ServerClass選擇成TROSuperTCPServer，也可選擇其它的MessageClass選擇TROBinMessag表示采納二進(jìn)制傳輸入方式,或者選擇其它點(diǎn)擊確定返回再點(diǎn)擊OK按鈕，這時(shí)向?qū)幚硗瓿衫?。點(diǎn)擊菜單viewprojectmanage雙擊testProject.exe設(shè)置服務(wù)端為默認(rèn)項(xiàng)目打開(kāi)serverForm表單在界面上加入一個(gè)控件TROInMemorySessionManager并命名為ROSessionManager在界面上加入一個(gè)控件TMemo并命名為memo。點(diǎn)擊菜單RemObjectsSDKEditServiceLibrary，進(jìn)行應(yīng)用服務(wù)器編輯1）將服務(wù)名稱改為AppService，并且增加一個(gè)方法getSessionID2)增加一個(gè)服務(wù)LogServices,增加兩個(gè)方法login(user,password:widestring):booleanlogout(sessionID:widestring):3）點(diǎn)擊菜單CodeGendelphiinterface生成接口文件代碼，然后按保存，選擇路徑為d:\testServer4）點(diǎn)擊菜單CodeGendelphiImplementationAppService生成應(yīng)用服務(wù)實(shí)現(xiàn)文件代碼，然后按保存，選擇路徑為d:\testServer，（留意：假如你已經(jīng)在實(shí)現(xiàn)代碼中編寫了代碼就不要保存，否則你編寫的代碼會(huì)被覆蓋，假如你要加方法，可以用delphi打開(kāi)AppService_Impl單元的interface部份聲明方法（例如：functionGetSessionID:Widestring;），然后按ctrl+shift+C產(chǎn)生實(shí)現(xiàn)代碼，然后編寫）5）點(diǎn)擊菜單CodeGendelphiImplementationLogService生成登陸服務(wù)實(shí)現(xiàn)文件代碼，然后按保存，選擇路徑為d:\testServer6）點(diǎn)擊菜單CodeGendelphiInvoker生成服務(wù)端調(diào)用代碼，然后按保存，選擇路徑為d:\testServer。關(guān)閉服務(wù)器調(diào)設(shè)置工具返回到delphi，然后在delphi界面按ctrl+F9，進(jìn)入下面界面選擇其次項(xiàng)按OK選擇其次項(xiàng)按OK，到此項(xiàng)目初步完成，并且可以編譯運(yùn)行了保存項(xiàng)目全部文件。接下來(lái)是特別重要的設(shè)置部分啦。接口代碼編寫及相關(guān)設(shè)置（重點(diǎn)）設(shè)置主窗體serverform代碼1)打開(kāi)主窗口文件FserverForm2)引用單元SyncObjs3)定義全局變量CriticalSection:TCriticalSection;icount:integer有效實(shí)例數(shù)4)編寫create方法procedureTServerForm.FormCreate(Sender:TObject);beginCriticalSection:=TCriticalSection.create;ROServer.Active:=true;end;5)增加方法procedureTServerForm.log(Astr:widestring);beginifCriticalSection=nilthenexit;CriticalSection.Enter;trytryifAStr=''thenMemo.Lines.Add('')elseMemo.Lines.Add(DateTimetoStr(Now)+':'+Astr);exceptend;finallyCriticalSection.Leave;end;end;6)編寫ROSessionManager控件的onSessionCreated方法與onSessionDeleted方法;編寫接口實(shí)現(xiàn)單元文件LogService_Impl引用單元implementation{$R*.dfm}uses{Generated:}NewLibrary_Invk,variants,fServerForm;按F12切換到界面編輯窗口設(shè)置sessionManager為ServerForm.ROSessionManager增加私有方法procedureTLogService.log(Astr:widestring);beginServerForm.log(Astr);end;編寫login代碼functionTLogService.login(constuserid:Widestring;constpassword:Widestring):Boolean;beginLog('User'''+UserID+'''istryinglogonwithpassword'''+Password+'''');if(Session.Values['Login']<>Null)thenbeginLog('User'''+Session.Values['Login']+'''isalreadyconnectedtosession'+GUIDToString(ClientID));Log('Loginunsuccessful');Result:=True;Exit;end;result:=(UserID<>'')and(UserID=Password);//ifResultthenbeginSession.Values['Login']:=UserId;Session.Values['Password']:=Password;Log('Loginsuccessful');endelsebeginLog('Invalidlogin!');DestroySession;//Wronglogin!Thesessioncannotbepersistedend;Log('');end;編寫logout代碼procedureTLogService.logout(constSessionID:Widestring);varaUser:WideString;beginifSession.Values['Login']<>NullthenaUser:=Session.Values['Login']elseaUser:='';Log('User'''+aUser+'''hasrequestedlogout');Log('');DestroySession;//RemovesthesessionfromtheSessionManagerend;編寫接口實(shí)現(xiàn)單元文件AppService_Impl引用單元implementation{$R*.dfm}uses{Generated:}NewLibrary_Invk,variants,fServerForm;按F12切換到界面編輯窗口·重要重要設(shè)置sessionManager為ServerForm.ROSessionManager設(shè)置RequiresSession為true;說(shuō)明：這個(gè)參數(shù)特別重要，表示應(yīng)用服務(wù)不再產(chǎn)生新的實(shí)例，而是用客戶robinmessage.clentID來(lái)查找服務(wù)端創(chuàng)建的session來(lái)運(yùn)用。編寫應(yīng)用函數(shù)functionTAppService.Sum(constA:Integer;constB:Integer):Integer;beginResult:=a+b;end;functionTAppService.GetServerTime:DateTime;beginResult:=now;end;functionTAppService.GetSessionID:Widestring;beginResult:=GUIDToString(Session.SessionID);end;保存全部文件，致此服務(wù)端已經(jīng)編寫完成。編譯運(yùn)行程序，在閱讀器中輸入://localhost:8095/假如出現(xiàn)ROSC:Invalidconnectionstring,表示應(yīng)用服務(wù)器編寫勝利。客戶端調(diào)用步驟建立文件夾d:\testClient新啟動(dòng)一個(gè)delphi在項(xiàng)目中引入文件D:\testServer\NewLibrary_Intf.pas增加客戶端控件1)ROMessage:TROBinMessage;2)ROChannel:TROSuperTCPChannel;設(shè)置屬性host為localhost//可以自己修改為服務(wù)端的ip設(shè)置端口為8095//可以須要設(shè)定通訊端口3)logServer:TRORemoteService;設(shè)置channel為ROChannel設(shè)置Message為ROMessage設(shè)置serviceName為L(zhǎng)ogServiceappServer:TRORemoteService;設(shè)置channel為ROChannel設(shè)置Message為ROMessage設(shè)置serviceName為AppService引用接口文件到項(xiàng)目中D:\testServer\NewLibrary_Intf.pas在主窗口中引用NewLibrary_Intf.pas定義全局變量appsvr:IAppService;logsvr:ILogService;客戶端界面代碼單元unittempa;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,uRORemoteService,uROClient,uROSuperTCPChannel,uROBinMessage,NewLibrary_Intf,StdCtrls;typeTForm1=class(TForm)ROMessage:TROBinMessage;ROChannel:TROSuperTCPChannel;logServer:TRORemoteService;appServer:TRORemoteService;Button1:TButton;Edit1:TEdit;Edit2:TEdit;Label1:TLabel;Label2:TLabel;Button2:TButton;Button3:TButton;Button4:TButton;procedureFormCreate(Sender:TObject);procedureFormDestroy(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton4Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}appsvr:IAppService;logsvr:ILogService;end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);beginROChannel.Active:=true;appsvr:=(appServerasIAppService);logsvr:=(logServerasILogService);end;procedureTForm1.FormDestroy(Sender: