delphi调用java编写的webservice
delphi调用java编写的webservice
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下测试通过。
Delphi 调用Java 写的WebSevice
无特殊要求，只要能得到wsdl，你可以先在IE里头访问一下试试。
所有的字符参数全部要用widestring