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

最新推荐文章于 2024-11-03 11:01:20 发布

weixin_30296405

最新推荐文章于 2024-11-03 11:01:20 发布

阅读量124

点赞数

文章标签： java

原文链接：http://www.cnblogs.com/Kim53622744/p/4388816.html

版权

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.

转载于:https://www.cnblogs.com/Kim53622744/p/4388816.html