home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Midas / InternetExpress / InetXCenter / rdminetxcentermodule.pas < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  2KB  |  64 lines
  1. {
  2.   InternetExpress sample data module.
  3.  
  4.   The remote data module provides data used
  5.   by the InetXCenter sample application.
  6.  
  7. }
  8.  
  9. unit rdmINetXCenterModule;
  10.  
  11. interface
  12.  
  13. uses
  14.   Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  15.   DBClient, rdmINetXCenter_TLB, Stdvcl, Provider, Db, DBTables;
  16.  
  17. type
  18.   TINetXCenterData = class(TRemoteDataModule, IINetXCenterData)
  19.     Session1: TSession;
  20.     SelectCustNames: TQuery;
  21.     OrderItems: TTable;
  22.     SelectCustOrders: TQuery;
  23.     SelectCustOrderSrc: TDataSource;
  24.     CustOrders: TDataSetProvider;
  25.     CustNames: TDataSetProvider;
  26.     SelectAllCustomers: TQuery;
  27.     AllCustomers: TDataSetProvider;
  28.     SelectAllCountries: TQuery;
  29.     AllCountries: TDataSetProvider;
  30.     AllCustOrders: TDataSetProvider;
  31.     SelectAllCustomersSrc: TDataSource;
  32.     CustOrderTable: TTable;
  33.   private
  34.     { Private declarations }
  35.   protected
  36.     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. class procedure TINetXCenterData.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
  46. begin
  47.   if Register then
  48.   begin
  49.     inherited UpdateRegistry(Register, ClassID, ProgID);
  50.     EnableSocketTransport(ClassID);
  51.     EnableWebTransport(ClassID);
  52.   end else
  53.   begin
  54.     DisableSocketTransport(ClassID);
  55.     DisableWebTransport(ClassID);
  56.     inherited UpdateRegistry(Register, ClassID, ProgID);
  57.   end;
  58. end;
  59.  
  60. initialization
  61.   TComponentFactory.Create(ComServer, TINetXCenterData,
  62.     Class_INetXCenterData, ciMultiInstance, tmApartment);
  63. end.
  64.