제가 주로 쓰는 방법인데 참고가 되실런지 모르겠군요..
일단 저같은 경우...
프로젝트의 메인폼이나 프로젝트의 최초 진행시.. 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 은 어떻게 구할수
: 있는지요...
:
:
: --답변 미리 감사합니다... 꾸벅 ----
|