RemObjects-ROServerMultiMessage控件使用例子

最新推荐文章于 2017-02-15 14:38:00 发布

weixin_30652271

最新推荐文章于 2017-02-15 14:38:00 发布

阅读量146

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/kongshuiping/p/3472245.html

本博客详细介绍了如何使用RemObjects进行服务端和客户端的通信，包括创建服务端和客户端，添加消息类型，以及编写调用事件的代码。

开始学习RemObjects了，先记录下来。

ROServerMultiMessage的介绍可以参考 http://blog.youkuaiyun.com/henreash/article/details/2277977

服务端

先创建服务端

放入TROServerMultiMessage、TROBinMessage、TROSOAPMessage、TROXmlRpcMessage、TROPostMessage、TROJSONMessage

双击TROServerMultiMessage 依次添加 TROBinMessage、TROSOAPMessage、TROXmlRpcMessage、TROPostMessage、TROJSONMessage

如图：

然后双击 TROIndyHTTPServer，把TROServerMultiMessage添加进DisPatchers中

最后编译服务器

客户端

创建客户端后

放入TROServerMultiMessage、TROBinMessage、TROSOAPMessage、TROXmlRpcMessage、TROPostMessage、TROJSONMessage

双击TROServerMultiMessage 依次添加 TROBinMessage、TROSOAPMessage、TROXmlRpcMessage、TROPostMessage、TROJSONMessage

如图：

程序的界面

然后添加调用事件

uses NewLibrary_Intf; 

{$R *.dfm}

procedure TClientForm.MultiplicationClick(Sender: TObject);
var
  NewService: INewService;
  return: integer;
begin
   ROServerMultiMessage1.DefaultMessageIndex:= MessageType.ItemIndex;
   ROChannel.TargetURL:= 'http://localhost:8099/ServerMulti';
   NewService:= CoNewService.Create(ROServerMultiMessage1,ROChannel);

   return:= NewService.Multiplication(strtoint(edit1.Text),strtoint(edit2.Text));
   edit3.Text:= inttostr(return);
end;

　　写的不好的话，请别见怪，初学者而且，请指教。

转载于:https://www.cnblogs.com/kongshuiping/p/3472245.html