Remobjects webservice 一些经验

（1）服务端
RO使用Webservice，关键是要设置http 连接通道，选择SOAP的message，然后用其RO的webservice 导出 WSDL接口文件。
为了达到通用接口，一般只设置三个或两个参数，比如是输入参数、输出参数、结果集参数，参数类型可以为XML格式化字符串、JSON格式化字符串，或用RO自带的复合类型变体参数。
一般情况下，在浏览器器观察WSDL接口信息，比如：
http://127.0.0.1:81/soap
其中 81 为 服务端的端口号。
（2）客户端接口。
既然是WebService服务器，那么使用Delphi的自带接口就可以访问 RO WebService 服务器。
在delphi自带的WebService向导（在File菜单->New->Ohter->WebService）中，选择 WSDL Importer 向导，对 WSDL文件或http在线请求，获得delphi方式的WebService接口单元。
如果WebService接口单元是这样：
function GetServFunc(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ServFunc;
那么客户端的调用如下：
var
  ICom:ServFunc;
begin
  ICom := GetServFunc(False,'http://localhost:81/soap');
  ShowMessage(ICom.GetAppIPAddr);
  ShowMessage(ICom.GetAppServTime.NativeToXS);
end;
也许在运行中，你调用WebService接口，可能会碰到下面的异常错误：XML 文档必须有一个顶层元素。

原因是， 服务端的XML根本没有生成 。
在RO中，默认调用的是MSXML.DLL的XML接口，必须要初始化COM接口。COM的初始化方法是 CoInitialize(nil); 我个人最讨厌COM/COM+的接口（顺便鄙视一下微软），这是一个黑盒子的运行方式，你根本不知道他到底做了什么，在多线程下尤其很麻烦或引起干扰（比如UniDAC的MSSQL也基于ADO，线程里也必须初始化CoInitialize）。如果不使用 基于MSXML的TXMLDocument，RO还可以选择OpenXML。OpenXML是100%的VCL编程，还可以运行在 Lazarus上。

要想选择OpenXML，必须修改RO Source 目录下的RemObjects.inc文件。
找到RemObjects.inc文件里的XML内容：
     {$IFDEF MSWINDOWS}
       {$DEFINE RemObjects_MSXML}
     {$ELSE}
       {$DEFINE RemObjects_OpenXML}
     {$ENDIF}
     { if we someone manually defined RemObjects_OpenXML, then undef RemObjects_MSXML }
     {$IFDEF RemObjects_OpenXML}
       {$UNDEF RemObjects_MSXML}
     {$ENDIF}
     将其修改为(多了一个点，或用//来注释)：
  
     { . $IFDEF MSWINDOWS}
       { . $DEFINE RemObjects_MSXML}
     { . $ELSE}
       {$DEFINE RemObjects_OpenXML} //保留这行
     { . $ENDIF}
     { if we someone manually defined RemObjects_OpenXML, then undef RemObjects_MSXML }
     {$IFDEF RemObjects_OpenXML}
       {$UNDEF RemObjects_MSXML}
     {$ENDIF}

然后重新 Build ALL RO的Package 文件即可。




        
        



        







        
          
            
            评论这张
          
        


          
            
              
            
            转发至微博