WebService 使用和调试小结

标签: webservicedelphiintegerapplicationexceptionservice
5780人阅读 评论(0) 收藏 举报
分类:

标题:WebService 使用和调试小结

作者:jrq

链接:http://blog.csdn.net/jrq/archive/2006/05/24/752174.aspx

内容:

    对WebService的使用和调试做一下记录。备忘。

    因使用JB2005+AXIS 发布WebService,总有一些奇奇怪怪的问题,故使用JB9。


(一)使用 JB9+AXIS 发布 WebService 服务

   
  1.新建Project--Project,新建Web--Web Application;

  2.新建Web Service--Web Services Configuration;

  3.WebApp选择刚建立的Web Application的名字,其他默认;

  4.建立WebService服务端的类(test.java)。

    -----------------------------

    public class test {
      private static int a;
      private static int b;

      public test() {
      }

      public void setA(int x) {
        this.a=x;
      }

      public  void setB(int y) {
         this.b=y;
      }

      public int getSum() {
        int c=a+b;
        //System.out.println("a:"+a);
        //System.out.println("b:"+b);
        //System.out.println("c:"+c);
        return c;
      }
    }

    -----------------------------

  5.发布 WebService 服务

    (1)右击要发布的类,选择“Export as a Web Service”;

    (2)如果勾选了“Generate client stub”,则发布后同时生成客户端的类及接口测试类。可以不勾择此项;

    (3)“Deploy scope”中可以选择该项为“Session”,其他默认;

    (4)“Selection mode”中选择“Allow selected methods”,然后在“Methods in”中选中类要发布的接口方法。可多选。

    (5)其他默认,点击“Finish”完成发布后,自动生成WSDL(Web Service Description Language)文件。

  6.注意

    类的属性使用了private static修饰符。如“private static int a”。
 
    类的方法不能使用static修饰符,如“public int getSum()”,因为静态的类方法是不能发布为WebService接口的。

 

(二)使用 Delphi7 编写 WebService 的客户端

  1.新建Project & Application;

  2.New-Other-WebService-WSDL Importer,选择WebService服务的WSDL描述文件,也可选择WSDL文件的URL;

  3.单击“Finish”按钮,生成WSDL文件对应*.pas单元文件;

    其内容大致如下:

    ------------------------------------------------------
 test = interface(IInvokable)
      ['{787CE852-EF00-40BA-5802-9BF9DFBF79F0}']
        procedure setA(const a: Integer); stdcall;
        procedure setB(const b: Integer); stdcall;
        function  getSum: Integer; stdcall;
      end;

    function Gettest(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): test;


    implementation

    function Gettest(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): test;
    const
      defWSDL = 'http://127.0.0.1:8088/test/services/test?wsdl';
      defURL  = 'http://127.0.0.1:8088/test/services/test';
      defSvc  = 'testService';
      defPrt  = 'test';
    var
      RIO: THTTPRIO;
    begin
      Result := nil;

      if (Addr = '') then
      begin
        if UseWSDL then
          Addr := defWSDL
        else
          Addr := defURL;
      end;

      if HTTPRIO = nil then
        RIO := THTTPRIO.Create(nil)
      else
        RIO := HTTPRIO;

      try
        Result := (RIO as test);
        if UseWSDL then
        begin
          RIO.WSDLLocation := Addr;
          RIO.Service := defSvc;
          RIO.Port := defPrt;
        end else
          RIO.URL := Addr;
      finally
        if (Result = nil) and (HTTPRIO = nil) then
          RIO.Free;
      end;
    end;


    initialization
      InvRegistry.RegisterInterface(TypeInfo(test), 'http://127.0.0.1:8088/test/services/test', 'UTF-8');
      InvRegistry.RegisterDefaultSOAPAction(TypeInfo(test), '');

    end.
 
    ------------------------------------------------------
 

  4.建议:保存由WSDL文件生成的*.pas单元文件时要重命名(webtest.pas),最好不使用默认名字;

  5.Delphi7编写的WebService客户端调用代码:

    -----------------------------
    uses webtest;

    var atest: test;  //test类
        sum:Integer;
    begin
       atest:=Gettest(); //要uses wsdl对应*.pas单元文件。
       atest.setA(1);
       atest.setB(2);
       sum:=atest.getSum();
       ShowMessage(IntToStr(sum));
    end;

    -----------------------------

  6.注意

   如果服务端类的属性没有加static描述,则Delphi7编写的客户端使用setA()、setB()后再getSum()时不能得到正确的结果。

   因为WebService是无连接的,每次使用类方法时均得到一个新的对象应用,setA()、setB()后再getSum()操作不是针对同一个对象的。

   但加上static后,所有的对象共同使用类的同一个值。如此即可。


   另外,如果在JB9+AXIS发布WebService时,“Deploy scope”中选择的是“Session”,而不是默认的“Request”,

   在服务端类的属性即使不使用static约束,在Delphi的客户端使用setA()、setB()后再getSum(),也是可以得到正确的返回值。

   神奇。^_^


  7.建议

   本例只做测试和解决问题。如果要给WebService服务端传递数据,最好在接口方法中使用参数。

   如修改为getSum(int x,int y)后再发布接口,这个即可使用一个接口方法就可以完成操作,而不必先使用set方法传递参数数据。

 

 (三)使用JB9编写 WebService 的客户端

  1.新建Project--Project;

  2.新建Web Service--Import a Web Service;

  3.在WSDL URL中选择wsdl文件的URL,也可选择WebService服务的WSDL描述文件;

  4.因为是建立WebService的客户端,所以“Generate server-side classes”选择可以不勾选;

  5.在“Package options”中可以修改“Name”为合适的名字;

  6.其余选择默认值,单击“Finish”生成客户端的jajva类文件。一般是6个文件,有其自己的命名规则。可参看JB。

  7.JB9编写的WebService客户端测试类

    -----------------------------

    public class client {

      public client() {
      }

      public static void main(String[] args) {
        try {
          TestService service = new TestServiceLocator();
          Test aClient = service.gettest();
          aClient.setA(1);
          aClient.setB(2);
          int sum = aClient.getSum();
          System.out.println("Sum is:"+sum);
        }
        catch (Exception e) {
          System.err.println("Execution failed. Exception: " + e);
        }
      }

    -----------------------------

  8.注意

    如果服务端类的属性没有加static描述,则JB编写的客户端使用setA()、setB()后再getSum()时亦不能得到正确的结果。

    建议使用带参数的接口方法来传递参数数据。避免使用set方法。


 (四)使用Delphi7调用C#编写的WebService服务

    Delphi7编写的客户端调用C#编写的WebService服务时,如果函数中传递的参数为汉字时,可能出现乱码现象。

    在网上搜索了一些资料,找到解决办法:将HTTPRIO的UseUTF8InHeader属性改为true即可。

    即编辑由WSDL文件生成的*.pas单元文件,在Get函数中增加一句:RIO.HTTPWebNode.UseUTF8InHeader:=True。
   
    代码片断大致如下:

    ------------------

      try
        RIO.HTTPWebNode.UseUTF8InHeader:=True; //添加一句,修改编码方案。
        Result := (RIO as test);
        if UseWSDL then
        begin
          RIO.WSDLLocation := Addr;
          RIO.Service := defSvc;
          RIO.Port := defPrt;
        end else
          RIO.URL := Addr;
      finally
        if (Result = nil) and (HTTPRIO = nil) then
          RIO.Free;
      end;

    ----------------


[--完--]

                                                                                         by  jrq

                                                                                  2006/05/24 凌晨 于穗

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:389738次
    • 积分:4700
    • 等级:
    • 排名:第6176名
    • 原创:106篇
    • 转载:8篇
    • 译文:0篇
    • 评论:112条
    最新评论