productservice_wadintf.~pas

delphi实现 webservice的例子.有服务端和客户段 利用xml交互.

{ Invokable interface IProductService_WAD }

unit ProductService_WADIntf;

interface    //NativeXML组件

uses InvokeRegistry, Types, XSBuiltIns,xmldom, XMLDoc, XMLIntf, SysUtils;

type
  { Invokable interfaces must derive from IInvokable }
  IProductService_WAD = interface(IInvokable)
  ['{6C4CFBAE-DB92-4160-B40B-DA1301075F3B}']

    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
     function GetProductByDate(Xmldata:WideString):WideString;stdcall;
     function GetProduct(Xmldata:Widestring):WideString;stdcall;
     function UpdateProduct(Xmldata:Widestring):WideString;stdcall;
     Function Login(Xmldata:WideString):Widestring;stdcall;
     function GetProductImage(Xmldata:WideString):WideString:stdcall;
     function PostProductImage(Xmldata:WideString):WideString:stdcall;
  end;

implementation

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

end.