为应用程序add一个remotedatamodule但是,delphi自己生成的代码却不能运行:
类似下面的代码:
unit Unit2;{$WARN SYMBOL_PLATFORM OFF}interfaceuses
Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
DBClient, Project1_TLB;type
TXserver = class(TRemoteDataModule, IXserver)
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;implementation{$R *.DFM}
在添加模块时只是让我填了一个类名就完了,结果不能运行,请问是怎么回事?
类似下面的代码:
unit Unit2;{$WARN SYMBOL_PLATFORM OFF}interfaceuses
Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
DBClient, Project1_TLB;type
TXserver = class(TRemoteDataModule, IXserver)
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;implementation{$R *.DFM}
在添加模块时只是让我填了一个类名就完了,结果不能运行,请问是怎么回事?
initialization
TComponentFactory.Create(ComServer, TXserver,
Class_Xserver, ciMultiInstance, tmApartment);
也可能会出错,但是都不知道为什么.....
class procedure TxServer.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;