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
[9708] Re:파이어버드 에러코드 잡는법
박진수 [jeensoo] 1302 읽음    2004-07-08 09:56
제가 주로 쓰는 방법인데 참고가 되실런지 모르겠군요..

일단 저같은 경우...
프로젝트의 메인폼이나 프로젝트의 최초 진행시..  Application의 Exception 처리부분을
별도의 procedure로 처리를 하고 있습니다.

예를 들어 메인폼에서 이와 같은 처리를 둘 경우 아래와 같은 방법으로 처리 하고 있습니다.

type
  TfrmMAIN = class(TForm)
    imgMAIN2: TImage;
    shpMENU: TShape;
    .
    .
    .
    procedure FormCreate(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btnEXITClick(Sender: TObject);
    .
    .
    .
    procedure AppException(Sender: TObject; E: Exception); // Application 에서 발생하는 Exception 처리
    .
  private
    { Private declarations }
  public
    { Public declarations }
  end;
.
.
.
.
.
procedure TfrmMAIN.FormCreate(Sender: TObject);
begin
    .
    .
    .
     Application.OnException := AppException; // Exception 처리루틴 설정
end;
.
.
.
.
.
procedure TfrmMAIN.AppException(Sender: TObject; E: Exception); // Application 에서 발생하는 Exception 처리
begin
     if(E.ClassName = 'EOleException') then
     begin
          // 해당 Exception 처리..,
     end;
end;
  
-----------------------------------------------------------------------------

아니면 각각의 sql 수행별로..

try  exectpion  end;  구를 사용하시는 것도..



김도형 님이 쓰신 글 :
: firebird1.5 사용시 조회, 입력, 수정, 삭제 시...
:
: 델파이에서 firebird 에러코드 잡아서 상황별로
:
: 뿌려주는 방법을 알고 싶습니다. (예를 들어 중복키 에러... 등등요)
:
: 그리고... 에러코드가 없을시... commit 이나 rollback 하는 방법도 잘 모르겠습니다.
:
:
: 여기에 관해 답변 외 구체적으로 제가 좀 참고할만한 documentation 은 어떻게 구할수
: 있는지요...
:
:
: --답변 미리 감사합니다... 꾸벅 ----

+ -

관련 글 리스트
9702 파이어버드 에러코드 잡는법 김도형 865 2004/07/07
9708     Re:파이어버드 에러코드 잡는법 박진수 1302 2004/07/08
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.