2008-04-10

Delphi调用asp.net的WebService

procedure TForm1.Button1Click(Sender: TObject);

var

  ss: ServiceSoap;

begin

  try

    HTTPRIO1.WSDLLocation :=

      'http://localhost:4670/WebService/Service.asmx?wsdl';

    HTTPRIO1.Service := 'Service';

    HTTPRIO1.Port := 'ServiceSoap';

    HTTPRIO1.HTTPWebNode.UseUTF8InHeader := True;



    ss := (HTTPRIO1 as ServiceSoap);

    ShowMessage(ss.HelloWorld('Hello, 大家好!'));

  except

    on e: exception do

      showmessage(e.Message);

  end;

end;

//解决中文传参的问题

 

评论
发表评论

您还没有登录，请登录后发表评论

kenter1643
搜索本博客
博客分类
最近加入圈子
存档
最新评论