AsyncPro를 Wrapping한 Component를 제작한 후 Package 만들어서 등록했습니다.
Component Pallete에 등록었구요..
그런데,
폼에 올려 놓자 마자 첨부한 파일처럼 에러가 발생하느데..
어디를 손을 봐야 하는 지 감을 못잡고 있습니다.
어디가 문제인 지 지적을 해 주셨으면 감사하겠씁니다.
(원래는 C++ Builder로 만든 Component를 Delphi로 Porting 작업을 하였는데..
Pascal 문법에 익숙치 않아서.. 황당한 에러가 있을 지도 모르겠는데요..
검증을 못해서.. -.-;; 우쨌거나 컴파일,링커에러는 다 통과해서 등록은 했는데..
고수님들이 도움을 바랍니다.
감사합니다.
아래는 Class 소스 코드입니다
type
TNotiPort = class(TComponent)
protected
....//중략..
m_ComPort : TApdComPort; // AsyncPro를 멤버로 가지고 있습니다.
....//중략..
// AsyncPro의 이벤트
procedure OnApdComPortOpen( Sender : TObject );
procedure OnApdComPortClose( Sender : TObject );
procedure OnApdComPortReceive( CP : TObject; Count : WORD );
... //중략..
public
// 생성자.
constructor Create(Owner:TComponent); override;
destructor Destory;
// 중략..
published
//Property
property ComPort : integer read FComPort write FComPort;
property Baudrate : integer read FBaudrate write FBaudrate;
//Event
property OnOpen : TNotifyEvent read FOnOpen write FOnOpen;
property OnClose : TNotifyEvent read FOnClose write FOnClose;
property OnReceive : TNotifyEvent read FOnReceive write FOnReceive;
end;
생상자 와 파괴자입니다.
//---------------------------------------------------------------------------
// constructor
constructor TNotiPort.Create(Owner: TComponent);
begin
m_ComPort.Create(self);
m_ComPort.OnPortOpen := OnApdComPortOpen;
m_ComPort.OnPortClose := OnApdComPortClose;
m_ComPort.OnTriggerAvail := OnApdComPortReceive;
inherited Create(Owner); // is it necessary?
end;
//---------------------------------------------------------------------------
// destructor
destructor TNotiPort.Destory();
begin
m_ComPort.Free;
//inherited Destory;
end;
Please, Please 문제점이 어딘지..
|