如何用delphi调用java开发的web service程序

Question

如何用delphi调用java开发的web service程序，发布的服务不在本机上，只是用delphi编写一个客户端程序，调用web service，急，在线等！

Answer 1

到www.2ccc.com下载
《Delphi6 SOAP/Web Sevvices》这本书，看前节就会了...

Answer 2

应该是delphi程序去访问web service程序？
我做过delphi用IDHttp控件访问servlet服务程序的，通过idhttp的post事件
如：IdHTTP.Post(aURL, mRequestStream, mResponseXML);aURL为访问的servlet服务程序地址，mRequestStream为delphi发送的请求文件流，mResponseXML为servlet处理后返回的文件流

Answer 3

很简单 啊~  只要java 的WebServices 方提供调用服务的 WSDL文件，然后利用Delphi7子代的 WebServices Importer 导入WSDL文件，这样就会自动生成一个调用Web服务的单元文件，最后引用这个单元文件（interface接口）。

Answer 4

还要加入用THTTPRIO控件，设置属性URL为调用地址，如：http://192.168.0.48:8888/NewWeb/services/Login
调用代码如下：
procedure TForm2.Image2Click(Sender: TObject);
var
  test:LoginWeb.Login; //引用WSDL文件自动生成的单元文件的一个接口
  flag:boolean;
begin
    try
        test:=HTTPRIO1 as LoginWeb.Login;
        flag:= test.loginCheck(ComboBox1.Text,Edit1.Text);// 调用Web服务里的方法
        if(flag=true) then
        begin
      Form2.Hide;
       // unitInfo.Form4.Show;
        //  personInfo.person.Show;
      MainFrm2222.Show;
          end
        else
        begin
        showmessage('用户名密码出错或者数据库未启动!');
        end;
    finally
  //  Form2.Close;
   // 。。
   //   。。
    end;end;