一个COM组件,引入DELPHI后,得到了TLB文件,
然后我这样创建这个COM组件:procedure TForm1.Button1Click(Sender: TObject);
var
test: ITESTCOM;
begin test := CoTESTCOM.Create;
test.start();
end;然后我写了一个事件,想这样:test.success := OnMySuccess();结果提示 ITESTCOMM没有 success 这个member.我输入 test. 后,DELPHI的IDE自动列出了所有的METHOD,但是没有列出EVENT,请问我哪里搞错了?谢谢
然后我这样创建这个COM组件:procedure TForm1.Button1Click(Sender: TObject);
var
test: ITESTCOM;
begin test := CoTESTCOM.Create;
test.start();
end;然后我写了一个事件,想这样:test.success := OnMySuccess();结果提示 ITESTCOMM没有 success 这个member.我输入 test. 后,DELPHI的IDE自动列出了所有的METHOD,但是没有列出EVENT,请问我哪里搞错了?谢谢
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //// $Rev: 8291 $
// File generated on 6/30/2009 12:28:53 PM from Type Library described below.// ************************************************************************ //
// Type Lib: F:\TEST\OCX\MYTESTLib.ocx (1)
// LIBID: {9438A7D0-A8CF-481E-BE22-73179DD5DAFE}
// LCID: 0
// Helpfile:
// HelpString: MYTESTLib 1.0 Type Library
// DepndLst:
// (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interfaceuses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
MYTESTLibMajorVersion = 1;
MYTESTLibMinorVersion = 0; LIBID_MYTESTLib: TGUID = '{9438A7D0-A8CF-481E-BE22-73179DD5DAFE}'; DIID__IMYTESTEvents: TGUID = '{EC6EECAB-1D5F-4C2F-8E3E-894F28BBA1FB}';
IID_IMYTEST: TGUID = '{3DA23073-CC79-4F36-AFBA-65D8D417FEA9}';
CLASS_MYTEST: TGUID = '{CEF6373C-A6CF-4FF0-A1B9-73B5862A23B5}';
type// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_IMYTESTEvents = dispinterface;
IMYTEST = interface;
IMYTESTDisp = dispinterface;// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MYTEST = IMYTEST;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PWideString1 = ^WideString; {*}
// *********************************************************************//
// DispIntf: _IMYTESTEvents
// Flags: (4096) Dispatchable
// GUID: {EC6EECAB-1D5F-4C2F-8E3E-894F28BBA1FB}
// *********************************************************************//
_IMYTESTEvents = dispinterface
['{EC6EECAB-1D5F-4C2F-8E3E-894F28BBA1FB}'] procedure success dispid 1; end;// *********************************************************************//
// Interface: IMYTEST
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {3DA23073-CC79-4F36-AFBA-65D8D417FEA9}
// *********************************************************************//
IMYTEST = interface(IDispatch)
['{3DA23073-CC79-4F36-AFBA-65D8D417FEA9}'] procedure start safecall; end;// *********************************************************************//
// DispIntf: IMYTESTDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {3DA23073-CC79-4F36-AFBA-65D8D417FEA9}
// *********************************************************************//
IMYTESTDisp = dispinterface
['{3DA23073-CC79-4F36-AFBA-65D8D417FEA9}'] procedure start; dispid 2; end;// *********************************************************************//
// The Class CoMYTEST provides a Create and CreateRemote method to
// create instances of the default interface IMYTEST exposed by
// the CoClass MYTEST. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoMYTEST = class
class function Create: IMYTEST;
class function CreateRemote(const MachineName: string): IMYTEST;
end;
TMYTESTSuccess = procedure(ASender: TObject) of object;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TMYTEST
// Help String : MYTEST Class
// Default Interface: IMYTEST
// Def. Intf. DISP? : No
// Event Interface: _IMYTESTEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TMYTESTProperties= class;
{$ENDIF}
TMYTEST = class(TOleServer)
private
FOnSuccess: TNotifyEvent;
FIntf: IMYTEST;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TMYTESTProperties;
function GetServerProperties: TMYTESTProperties;
{$ENDIF}
function GetDefaultInterface: IMYTEST;
protected
procedure InitServerData; override;
procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IMYTEST);
procedure Disconnect; override; procedure start; property DefaultInterface: IMYTEST read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TMYTESTProperties read GetServerProperties;
{$ENDIF}
property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess; end;{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TMYTEST
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TMYTESTProperties = class(TPersistent)
private
FServer: TMYTEST;
function GetDefaultInterface: IMYTEST;
constructor Create(AServer: TMYTEST);
protected
public
property DefaultInterface: IMYTEST read GetDefaultInterface;
published
end;
{$ENDIF}
procedure Register;resourcestring
dtlServerPage = '(none)'; dtlOcxPage = '(none)';implementationuses ComObj;class function CoMYTEST.Create: IMYTEST;
begin
Result := CreateComObject(CLASS_MYTEST) as IMYTEST;
end;class function CoMYTEST.CreateRemote(const MachineName: string): IMYTEST;
begin
Result := CreateRemoteComObject(MachineName, CLASS_MYTEST) as IMYTEST;
end;procedure TMYTEST.InitServerData;
const
CServerData: TServerData = (
ClassID: '{CEF6373C-A6CF-4FF0-A1B9-73B5862A23B5}';
IntfIID: '{3DA23073-CC79-4F36-AFBA-65D8D417FEA9}';
EventIID: '{EC6EECAB-1D5F-4C2F-8E3E-894F28BBA1FB}';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;procedure TMYTEST.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
ConnectEvents(punk);
Fintf:= punk as IMYTEST;
end;
end;procedure TMYTEST.ConnectTo(svrIntf: IMYTEST);
begin
Disconnect;
FIntf := svrIntf;
ConnectEvents(FIntf);
end;procedure TMYTEST.DisConnect;
begin
if Fintf <> nil then
begin
DisconnectEvents(FIntf);
FIntf := nil;
end;
end;function TMYTEST.GetDefaultInterface: IMYTEST;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;constructor TMYTEST.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TMYTESTProperties.Create(Self);
{$ENDIF}
end;destructor TMYTEST.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TMYTEST.GetServerProperties: TMYTESTProperties;
begin
Result := FProps;
end;
{$ENDIF}procedure TMYTEST.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
case DispID of
-1: Exit; // DISPID_UNKNOWN
1: if Assigned(FOnSuccess) then
FOnSuccess(Self);
end; {case DispID}
end;procedure TMYTEST.start;
begin
DefaultInterface.start;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TMYTESTProperties.Create(AServer: TMYTEST);
begin
inherited Create;
FServer := AServer;
end;function TMYTESTProperties.GetDefaultInterface: IMYTEST;
begin
Result := FServer.DefaultInterface;
end;{$ENDIF}procedure Register;
begin
RegisterComponents(dtlServerPage, [TMYTEST]);
end;end.