RemObjects-ROServerMultiMessage控件使用例子

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

  ROServerMultiMessage的介绍可以参考 http://blog.csdn.net/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;

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