mtdemo1dbserviceimpl.~pas

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

unit MTDemo1DBServiceImpl;

interface

uses
  MTDemo1DBServiceIntf, InvokeRegistry;

type
  TMTDemo1DBService = class(TInterfacedObject, IMTDemo1DBService)
  public
    function QueryData(const sSQL : String) : String; stdcall;
    function UpdateData(const sData : String) : Integer; stdcall;
  end;

implementation

uses ComObj;

procedure MTDemo1DBServiceFactory(out Obj: TObject);
begin
  Obj := TMTDemo1DBService.Create;
end;

{ TMTDemo1DBService }

function TMTDemo1DBService.QueryData(const sSQL: String): String;
var
  vDODemo : Variant;
  sData : OleVariant;
begin
  //