Development Midas Service side to add a bit of code

Unit Unit2;

{$WARN Symbol_platform OFF}

Interface

Uses
Windows, Messages, Sysutils, Classes, Comserv, Comobj, vclcom, DATABKR,
Dbclient, Project1_tlb, STDVCL, Provider, DB, ADODB;

Type
Ttest = Class (Tremotedatamodule, Itest)
Con1:tadoconnection;
Qry1:tadoquery;
Datasetprovider1:tdatasetprovider;
Private
{Private declarations}
Protected
Public
{Public declarations}
End

Class procedure UpdateRegistry (Register:boolean; const ClassID, progid:string); Override

Implementation

{$R *. DFM}

Class procedure Ttest.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, Ttest,
Class_test, Cimultiinstance, tmapartment);

Comserver.updateregistry (True);

End.

Development Midas Service side to add a bit of code