2008年07月02日 星期三

delphi调用javaWebService

1. 这个是java编写的WebService地址:http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl

2. 通过Delphi的File——New——Other——WebServices——WSDL Importer 导入这个地址(http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl,上面有
一个文本框让你输入这个网址的。)会生成一个Unit单元文件,保存。

3. 在想调用的Unit单元中uses上面生成的单元。

4. 在调用的时间中这样写:代码如下:
procedure TFrmPerson.BtnOkClick(Sender: TObject);
var
  person: PersonInfo;//声明WebService单元中一个对象
  port: ServerBusinessPort;//WebService一个执行方法的对象
  Result: string; //这个方法的返回值
begin
    port := GetServerBusinessPort();//返回一个对象
    person := PersonInfo.Create;//创建这对象相对于C# 中的new关键字吧
   person.PERSON_ID := PERSONNO.Text; //人员编号
    person.PERSON_NAME := PERSONNAME.Text; //人员姓名
    person.DEPT_NAME := DEPT_NAME.Text; //所属部门
    Result := port.AddPersonInfo(person);//调用方法了,person就是传过去的对象了。
    if Result='1' then begin
    ShowMessage('成功!');
    end else begin
    ShowMessage('失败');
    end;
end;
5. Ok,over 了。