Çó 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