www.pudn.com > mycomdatamodule.rar > Unit1.pas

unit Unit1; 
 
{$WARN SYMBOL_PLATFORM OFF} 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient, 
  MtsRdm, Mtx, server_TLB, DB, ADODB, Provider; 
 
type 
  Tmycomdatamodule = class(TMtsDataModule, Imycomdatamodule) 
    dsp1: TDataSetProvider; 
    adocon1: TADOConnection; 
    adoqry1: TADOQuery; 
  private 
    { Private declarations } 
  protected 
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override; 
  public 
    { Public declarations } 
  end; 
 
var 
  mycomdatamodule: Tmycomdatamodule; 
 
implementation 
 
{$R *.DFM} 
 
class procedure Tmycomdatamodule.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, Tmycomdatamodule, 
    Class_mycomdatamodule, ciMultiInstance, tmApartment); 
end.