dataserver.~pas

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

unit DataServer;

interface
 uses
  ProductBinding,SysUtils,imageinfo;
  type
    IDataServer =interface
     function GetProductsByDate(datetype :TDateType):OleVariant;
     function GetProduct(Pid:string):OleVariant;
     function UpdateProduct(Product:TXmlProductType):Integer;  //-1失败  大于0成功
     Function Login(Pid:string;Password:string):boolean;
     function GetProductImage(pid,labelcode:string):TImageInfo;
     function PostProductImage(imageinfo:TImageInfo):WideString;
    end;
implementation

end.