unit3.pas

《Delphi7编程100例》代码,书配资料

Unit Unit3;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, DB, ADODB,
  Provider;

type
  IMySoapDataModule = interface(IAppServerSOAP)
    ['{17F9C86B-DE80-4E32-A3EB-BA30CD20F26A}']
  end;

  TMySoapDataModule = class(TSoapDataModule, IMySoapDataModule, IAppServerSOAP)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSetProvider1: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.dfm}

procedure TMySoapDataModuleCreateInstance(out obj: TObject);
begin
  obj := TMySoapDataModule.Create(nil);
end;

initialization
  InvRegistry.RegisterInvokableClass(TMySoapDataModule, TMySoapDataModuleCreateInstance);
  InvRegistry.RegisterInterface(TypeInfo(IMySoapDataModule));
end.