delphi 调用webservices 问题！

Question

我用delphi7做下个测试应用，调用webservices ，代码如下：
unit main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient,PublicInterface2;type
  TForm1 = class(TForm)
    Memo2: TMemo;
    Memo1: TMemo;
    HTTPRIO1: THTTPRIO;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
   procedure Button1Click(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;////以下是按钮下的代码
procedure TForm1.Button1Click(Sender: TObject);
Var
  p : PublicInterface  ;
begin
    try
  webser := edit1.Text;
  HTTPRIO1.WSDLLocation := webser;
  ininfo := memo2.Text;
  p := HTTPRIO1 As PublicInterface ;
     outinfo:= p.outCalculate(ininfo);
  p:=nil;
  memo1.Text := outinfo;
     except
  showmessage('webservice 地址可能不正确！或者服务就没有启动！');
end;
end;
这上边是一个按钮下的代码。测试正常。
现在要用delphi 做一个 DLL 给 PB 调用。 不用 窗口了，也就是没有 Form 了，该怎么弄，我该怎么创建 HTTPRIO1 这个对象，代码该怎么写，写在哪里。这两天刚学 delphi 大家指点一下。

Answer 1

为啥不用pb直接调用webservices呢webservice服务器端会提供wsdl接口文档，pb里面用web   service   proxy   wizard从wsdl生成对象，再调用即可(注意把c:\program   files\sybase\shared\powerbuilder下面的pbsoapclient90.pbd加入target)，代码样例：  
  SoapConnection   lsc_conn  
  soapservice   lproxy_obj  
  String   ls_proxy_name   =   "soapservice"//生成的代理对象名称  
  String   ls_url   =   "http://localhost:8080/axis/services/SoapService"//web   service   url  
  //  
  lsc_conn   =   Create   SoapConnection  
  lsc_conn.SetOptions("SoapLog=~"soaplog.txt~"")  
   
  int   li_ret,   i  
  li_ret   =   lsc_conn.Createinstance(   lproxy_obj,   ls_proxy_name,   ls_url)  
  If   li_ret   <>   0   Then  
  MessageBox("错误",   "调用失败，错误号码："   +   String(li_ret))  
  Return    
  End   If  
   
  tns1__requestcontent   lst_request  
  lst_request.arg1   =   5  
  lst_request.arg2   =   "test"  
   
  tns1__returnresult   lst_result  
  lst_result   =   lproxy_obj.GetResult(lst_request)  
   
  MessageBox(String(lst_result.result),   "code:"   +   lst_result.reason.code   +   "~nmessage:"   +   &  
  lst_result.reason.message   +   "~ndesc:"   +   lst_result.reason.desc   )  
  注意pb调用webservice只能返回简单的int   string类型，复杂的结构会出错 

Answer 2

如果要用delphi写dll话你需要建立一个dll工程，然后把你的实现代码写到dll工程里面去

Answer 3

真新鲜，第1次听说写成WS了，还要再把调用WS的功能写成dll,给其它编程语言！

Answer 4

新建一个dll工程，export一个函数，提供参数，返回值
简单..........