开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ServerDataModule.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

ServerDataModule.pas：源码内容
  1. Unit serverdatamodule;
  3. interface
  5. uses
  6.   SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SoapDm, Provider,
  7.   DB, DBTables, DBXpress, FMTBcd, SqlExpr;
  9. type
  10.   ISoapTestDm = interface(IAppServer)
  11.     ['{1F109687-6D8B-4F85-9BF5-EFFC87A9F10F}']
  12.     function GetRecordCount: Integer;
  13.   end;
  15.   TSoapTestDm = class(TSoapDataModule, ISoapTestDm, IAppServer)
  16.     DataSetProvider1: TDataSetProvider;
  17.     SQLConnection1: TSQLConnection;
  18.     SQLDataSet1: TSQLDataSet;
  19.     SQLDataSet2: TSQLDataSet;
  20.   private
  22.   public
  23.     function GetRecordCount: Integer;
  24.   end;
  26. implementation
  28. {$R *.DFM}
  30. procedure TSoapTestDmCreateInstance(out obj: TObject);
  31. begin
  32.   obj := TSoapTestDm.Create(nil);
  33. end;
  35. { TSoapTestDm }
  37. function TSoapTestDm.GetRecordCount: Integer;
  38. begin
  39.   // read in the record count by running a query
  40.   SQLDataSet2.Open;
  41.   Result := SQLDataSet2.Fields[0].AsInteger;
  42.   SQLDataSet2.Close;
  43. end;
  45. initialization
  46.    InvRegistry.RegisterInvokableClass(TSoapTestDm, TSoapTestDmCreateInstance);
  47.    InvRegistry.RegisterInterface(TypeInfo(ISoapTestDm));
  48. end.