求 delphi webserivice 调用例子

求  delphi webserivice 调用例子

---

服务端编写：新建"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"填写你要的服务名，如"SendSmsServices"，然后在SendSmsServiceIntf.pas中添加接口函数：
Delphi(Pascal) code:
{ Invokable interface ISendSmsService }

unit SendSmsServiceIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

{ Invokable interfaces must derive from IInvokable }
ISendSmsService = interface(IInvokable)
['{2DE80373-26E4-49B6-86E1-DC67D456FB90}']

{ Methods of Invokable interface must not use the default }
{ calling convention; stdcall is recommended }
function sendSms(const sendSms1: widestring): widestring; stdcall;
end;

implementation

initialization
{ Invokable interfaces must be registered }
InvRegistry.RegisterInterface(TypeInfo(ISendSmsService));

end.


在SendSmsServiceImpl.pas中写具体的处理过程

Delphi(Pascal) code:
{ Invokable implementation File for TSendSmsService which implements ISendSmsService }

unit SendSmsServiceImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, SendSmsServiceIntf;

type
{ TSendSmsService }
TSendSmsService = c