您现在的位置:首页 >> 网络通讯 >> 网络通讯 >> 内容

Delphi中访问RemObjects WebService一些经验

时间:2011/9/3 15:11:55 点击:

  核心提示:(1)服务端RO使用Webservice,关键是要设置http 连接通道,选择SOAP的message,然后用其RO的webservice 导出 WSDL接口文件。为了达到通用接口,一般只设置三个或两...

(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

作者:碧水航 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号