锲
锲而不舍
Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi5中写一个com程序,生成的_TLB文件中有如下代码:
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : Taaa
// Help String : aaa Object
// Default Interface: Iaaa
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TaaaProperties= class;
{$ENDIF}
Taaa = class(TOleServer)
private
FIntf: Iaaa;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TaaaProperties;
function GetServerProperties: TaaaProperties;
{$ENDIF}
function GetDefaultInterface: Iaaa;
protected
procedure InitServerData; override;
function Get_Property1(out Value: Integer): HResult;
function Set_Property1(Value: Integer): HResult;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: Iaaa);
procedure Disconnect; override;
function Method1: HResult;
property DefaultInterface: Iaaa read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TaaaProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : Taaa
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TaaaProperties = class(TPersistent)
private
FServer: Taaa;
function GetDefaultInterface: Iaaa;
constructor Create(AServer: Taaa);
protected
function Get_Property1(out Value: Integer): HResult;
function Set_Property1(Value: Integer): HResult;
public
property DefaultInterface: Iaaa read GetDefaultInterface;
published
end;
{$ENDIF}
procedure Register;
为何在delphi7中写com程序,生成的_TLB文件中就没有这些代码了?真是奇怪?!
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : Taaa
// Help String : aaa Object
// Default Interface: Iaaa
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TaaaProperties= class;
{$ENDIF}
Taaa = class(TOleServer)
private
FIntf: Iaaa;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TaaaProperties;
function GetServerProperties: TaaaProperties;
{$ENDIF}
function GetDefaultInterface: Iaaa;
protected
procedure InitServerData; override;
function Get_Property1(out Value: Integer): HResult;
function Set_Property1(Value: Integer): HResult;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: Iaaa);
procedure Disconnect; override;
function Method1: HResult;
property DefaultInterface: Iaaa read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TaaaProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : Taaa
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TaaaProperties = class(TPersistent)
private
FServer: Taaa;
function GetDefaultInterface: Iaaa;
constructor Create(AServer: Taaa);
protected
function Get_Property1(out Value: Integer): HResult;
function Set_Property1(Value: Integer): HResult;
public
property DefaultInterface: Iaaa read GetDefaultInterface;
published
end;
{$ENDIF}
procedure Register;
为何在delphi7中写com程序,生成的_TLB文件中就没有这些代码了?真是奇怪?!