rdm_watch_server.pas

公司内部监控员工上网记录的系统

unit rdm_watch_server;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, net_watch_server_TLB, StdVcl, Provider, DB, ADODB;

type
  Twatch_server_rdmcom = class(TRemoteDataModule, Iwatch_server_rdmcom)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DSP_search: TDataSetProvider;
    ADOQuery2: TADOQuery;
    DataSetProvider1: TDataSetProvider;
    adduser: TADOQuery;
    dsp_adduser: TDataSetProvider;
    deluser: TADOQuery;
    dsp_deluser: TDataSetProvider;
    deldata: TADOQuery;
    dsp_deldata: TDataSetProvider;
    set_right: TADOQuery;
    dsp_set_right: TDataSetProvider;
    add_operator: TADOQuery;
    dsp_add_operator: TDataSetProvider;
    del_operator: TADOQuery;
    dsp_del_operator: TDataSetProvider;
    general1: TADOQuery;
    general2: TADOQuery;
    dsp_general1: TDataSetProvider;
    dsp_general2: TDataSetProvider;
    search_detail: TADOQuery;
    dspsearch_detail: TDataSetProvider;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

class procedure Twatch_server_rdmcom.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

initialization
  TComponentFactory.Create(ComServer, Twatch_server_rdmcom,
    Class_watch_server_rdmcom, ciMultiInstance, tmApartment);
end.