RemObject服务端配置程序编写.docx

1、RemObject认证服务端程序编写步骤1 功能说明：用remobject编写服务端，通rodl暴露的方法给客户调用，但这些方法需要通过认证才能使用。服务端应提供两种服务：1、 登陆服务提供登陆认证方法2、 应用服务用户编写的具体方法，但需要在登陆服务认证通过的情况下才能使用2 工作示意图3 服务端编写步骤3.1 在硬盘中新建一个文件夹d:testServer3.2 启动delphi3.3 点击菜单filenewother3.4 选择remObjects SDK页面 3.5 再选择 VCL图标, 然后点击OK按钮进入一步在Project Folder：中录入d:testServer点击 adv

2、anced Project Options.按钮，进入高级选项设置然后Server Class选择成TROSuperTCPServer，也可选择其它的Message Class选择TROBinMessag表示采用二进制传输入方式,或者选择其它点击确定返回3.6 再点击OK按钮，这时向导处理完成啦。3.7 点击菜单view project manage3.8 双击testProject.exe设置服务端为默认项目3.9 打开serverForm表单在界面上加入一个控件TROInMemorySessionManager并命名为ROSessionManager在界面上加入一个控件TMemo并命名为m

3、emo。3.10 点击菜单 RemObjects SDKEdit Service Library，进行应用服务器编辑1）将服务名称改为AppService，并且增加一个方法getSessionID2)增加一个服务LogServices, 增加两个方法login(user,password:widestring):booleanlogout(sessionID:widestring):3）点击菜单CodeGendelphiinterface 生成接口文件代码，然后按保存，选择路径为d:testServer4）点击菜单CodeGendelphiImplementationAppService 生成

4、应用服务实现文件代码，然后按保存，选择路径为d:testServer，（注意：如果你已经在实现代码中编写了代码就不要保存，否则你编写的代码会被覆盖，如果你要加方法，可以用delphi打开AppService_Impl单元的interface部份声明方法（例如： function GetSessionID: Widestring;），然后按ctrl+shift+C产生实现代码，然后编写）5）点击菜单CodeGendelphiImplementationLogService 生成登陆服务实现文件代码，然后按保存，选择路径为d:testServer6）点击菜单CodeGendelphiInvoker

5、 生成服务端调用代码，然后按保存，选择路径为d:testServer。3.11 关闭服务器调设置工具返回到delphi，然后在delphi界面按ctrl+F9，进入下面界面选择第二项按OK选择第二项按OK，到此项目初步完成，并且可以编译运行了3.12 保存项目所有文件。接下来是非常重要的设置部分啦。3.13 接口代码编写及相关设置（重点）3.13.1 设置主窗体serverform代码1) 打开主窗口文件FserverForm2) 引用单元SyncObjs3) 定义全局变量 CriticalSection: TCriticalSection; icount: integer 有效实例数4) 编

6、写create方法procedure TServerForm.FormCreate(Sender: TObject);begin CriticalSection:= TCriticalSection.create; ROServer.Active := true;end;5) 增加方法procedure TServerForm.log(Astr: widestring);begin if CriticalSection = nil then exit; CriticalSection.Enter; try try if AStr = then Memo.Lines.Add() else Mem

7、o.Lines.Add(DateTimetoStr(Now) + : + Astr); except end; finally CriticalSection.Leave; end;end;6) 编写ROSessionManager控件的onSessionCreated方法与onSessionDeleted方法;3.13.2 编写接口实现单元文件LogService_Impl1) 引用单元implementation$R *.dfmuses Generated: NewLibrary_Invk, variants,fServerForm;2) 按F12切换到界面编辑窗口设置sessionMan

8、ager为 ServerForm.ROSessionManager3) 增加私有方法procedure TLogService.log(Astr: widestring);begin ServerForm.log(Astr);end;4) 编写login代码function TLogService.login(const userid: Widestring; const password: Widestring): Boolean;begin Log(User + UserID + is trying logon with password + Password + ); if (Sessi

9、on.ValuesLogin Null) then begin Log(User + Session.ValuesLogin + is already connected to session + GUIDToString(ClientID); Log(Login unsuccessful); Result := True; Exit; end; result := (UserID ) and (UserID = Password); / if Result then begin Session.ValuesLogin := UserId; Session.ValuesPassword :=

10、Password; Log(Login successful); end else begin Log(Invalid login!); DestroySession; / Wrong login! The session cannot be persisted end; Log();end;5) 编写logout代码procedure TLogService.logout(const SessionID: Widestring);var aUser: WideString;begin if Session.ValuesLogin Null then aUser := Session.Valu

11、esLogin else aUser := ; Log(User + aUser + has requested logout); Log(); DestroySession; / Removes the session from the SessionManagerend;3.13.3 编写接口实现单元文件AppService_Impl1) 引用单元implementation$R *.dfmuses Generated: NewLibrary_Invk, variants,fServerForm;2) 按F12切换到界面编辑窗口重要设置sessionManager为 ServerForm.

12、ROSessionManager设置RequiresSession为true; 说明：这个参数非常重要，表示应用服务不再产生新的实例，而是用客户robinmessage.clentID来查找服务端创建的session来使用。3) 编写应用函数function TAppService.Sum(const A: Integer; const B: Integer): Integer;begin Result:=a+b;end;function TAppService.GetServerTime: DateTime;begin Result:=now;end;function TAppService

13、.GetSessionID: Widestring;begin Result:=GUIDToString(Session.SessionID);end;保存所有文件，致此服务端已经编写完成。编译运行程序，在浏览器中输入 http:/localhost:8095/如果出现ROSC:Invalid connection string, 表示应用服务器编写成功。4 客户端调用步骤4.1 建立文件夹d:testClient4.2 新启动一个delphi4.3 在项目中引入文件D:testServer NewLibrary_Intf.pas4.4 增加客户端控件1) ROMessage: TROBinM

14、essage; 2) ROChannel: TROSuperTCPChannel;设置属性host 为 localhost /可以自己修改为服务端的ip设置端口为8095 /可以需要设定通讯端口3) logServer: TRORemoteService;设置 channel 为 ROChannel设置 Message 为 ROMessage设置serviceName 为 LogService4) appServer: TRORemoteService;设置 channel 为 ROChannel设置 Message 为 ROMessage设置serviceName 为 AppService5) 引用接口文件到项目中D:testServer NewLibrary_Intf.pas6) 在主窗口中引用NewLibrary_Intf.pas7) 定义全局变量 appsvr:IAppService;logsvr:ILogService;8) 客户端界面9) 代码单元unit tempa;