Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[13632] [질문] Component 제작 후 디자인 타임에 등록하면 .. 에러..
땅주인 [heaven2] 1359 읽음    2011-03-23 22:08
Error.jpg 207.5KB TNotiPort를 폼에 올려 놓으면 발생하는 에러 화면
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 문제점이 어딘지..

+ -

관련 글 리스트
13632 [질문] Component 제작 후 디자인 타임에 등록하면 .. 에러.. 땅주인 1359 2011/03/23
13633     Re:[질문] Component 제작 후 디자인 타임에 등록하면 .. 에러.. Lyn 1492 2011/03/23
13634         감사합니다.냉무 땅주인 1322 2011/03/24
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.