delphi调用java编写的webservice

webservice服务端基于xfire，至于如何创建基于xfire的服务端，网上有很多文章就不再阐述。

 

JAVA

pojo:

public class GroupInfo implements Serializable{
    private static final long serialVersionUID = 7646885719123155790L;
    private int groupId;        //组id
    private String groupName;    //组名称
    private int parentGroupId;    //上级组id
}

 

方法：

public List<GroupInfo> getAllGroupInfo(String username, String password) {
    IQueryDao queryDao = new QueryDaoImpl();
    int policyid = queryDao.getDefaultPolicyID(username, password);
    if (policyid==0)
        return new ArrayList<GroupInfo>();
    else
        return queryDao.getAllGroupInfo(policyid);
}

说明：传入用户名密码，返回一个list,里面的对象是类GroupInfo的实例。

 

 

.

 

.

 

Delphi

File-->New-->Other-->WebServices-->WSDL Importer,
wsdl source填写http://192.168.1.174:8080/reservices/services/res_query?wsdl，确定后，自动生成了webserive的访问代码，文件名为res_query.pas

 

调用代码如下：

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
  service: res_queryPortType;
  arr: ArrayOfGroupInfo;
begin
  service := Getres_queryPortType(true, 'http://192.168.1.174:8080/res_services/services/res_query?wsdl',nil);
  arr := service.getAllGroupInfo('admin', 'admin');
  memo1.Lines.Clear;
  for I := 0 to Length(arr) do
  begin
    try
      memo1.Lines.Add(arr[I].groupName);
    except
    end;
  end;
end;

 

本例在MyEclipse6.5, XFire1.2, Delphi7下测试通过。