midas java开发_开发midas服务端要加入一下代码

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.