uwsdbserveriappserver.pas

来自「Delphi开发webservice的一套例子」· PAS 代码 · 共 28 行

Unit uWSDBServerIAppServer;

interface

uses Types, XSBuiltIns;
type

  IAppServer = interface(IInvokable)
    ['{9E346058-9DE2-11D5-8B77-9EB5470E196E}']
    function AS_ApplyUpdates(const ProviderName: WideString; const Delta: Variant; const MaxErrors: Integer; var OwnerData: Variant; out ErrorCount: Integer): Variant;  stdcall;
    function AS_GetRecords(const ProviderName: WideString; const Count: Integer; const Options: Integer; const CommandText: WideString; var Params: Variant; var OwnerData: Variant; out RecsOut: Integer): Variant;  stdcall;
    function AS_DataRequest(const ProviderName: WideString; const Data: Variant): Variant;  stdcall;
    function AS_GetProviderNames: Variant;  stdcall;
    function AS_GetParams(const ProviderName: WideString; var OwnerData: Variant): Variant;  stdcall;
    function AS_RowRequest(const ProviderName: WideString; const Row: Variant; const RequestType: Integer; var OwnerData: Variant): Variant;  stdcall;
    procedure AS_Execute(const ProviderName: WideString; const CommandText: WideString; var Params: Variant; var OwnerData: Variant);  stdcall;
  end;


implementation

uses InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IAppServer), 'urn:Midas-IAppServer', '');

end.