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 문제점이 어딘지..
|