(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 文件即可。
文章来源:http://hi.baidu.com/tintinsoft/blog/item/380fec023d7db7e609fa93b9.html