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
[13633] Re:[질문] Component 제작 후 디자인 타임에 등록하면 .. 에러..
Lyn [tohnokanna] 1491 읽음    2011-03-23 22:15
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 문제점이 어딘지..

+ -

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