Lyn 님이 쓰신 글 :
: m_ComPort := TApdComPort.Create(self);  
:
: 땅주인 님이 쓰신 글 :
: : 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 문제점이 어딘지..