udmd6dbdemo1.pas

Delphi开发webservice的一套例子

Unit udmD6DBDemo1;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SoapDm, DBXpress,
  Provider, SqlExpr, DB, DBClient, DBLocal, DBLocalS, DBTables;

type
  ID6DBDataModule1 = interface(IAppServer)
    ['{D70E5528-3A05-4E98-BA15-9FE77491EF31}']
  end;

  TdmD6DataModule1 = class(TSoapDataModule, ID6DBDataModule1, IAppServer)
    dbDemo: TDatabase;
    quryBooks: TQuery;
    dspBooks: TDataSetProvider;
    quryConditions: TQuery;
    quryGeneral: TQuery;
    dspConditions: TDataSetProvider;
    dspGeneral: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TD6DBDataModule1CreateInstance(out obj: TObject);
begin
 obj := TdmD6DataModule1.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TdmD6DataModule1, TD6DBDataModule1CreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(ID6DBDataModule1));
end.