Q&A
- 서버 다운 되었을때 메세지 처리!
안녕하세요!
데이터베이스 접속할시, 서버가 다운된 상태이면 에러 메세지를 보여주고 로깅 화면을
종료하려고 합니다.
그런데 'A' 부분에서 프로그램이 멈추어 집니다.
해결방법을 알고 계시는 분은 답변 부탁드립니다.
procedure TDM1.DM1Create(Sender: TObject);
begin
// 서버 연결
try
Database1.Connected := True; ==================> A
except
on E: EDBEngineError do
OraErrProc(Pchar(E.message));
end;
if Database1.Connected = True then
SUCCHK := 'Y' ============> 메인 화면 실행
else
SUCCHK := 'N'; ============> 로깅 화면 종료
end;
procedure OraErrProc(tmpE: string);
var
tmpNum : integer;
tmpStr: string;
begin
tmpNum := pos('ORA', tmpE);
tmpStr := copy(tmpE, tmpNum + 4, 5);
tmpNum := strtoint(tmpStr);
case tmpNum of
12154 : Windows.MessageBox(0, '서버 접속에 문제가 생겼습니다. ' + #13 + '잠시 후에 다시 접속해 주십시오.', '접속오류', MB_OK);
end;//end case
end;
2000.1.14
문영미 올림
데이터베이스 접속할시, 서버가 다운된 상태이면 에러 메세지를 보여주고 로깅 화면을
종료하려고 합니다.
그런데 'A' 부분에서 프로그램이 멈추어 집니다.
해결방법을 알고 계시는 분은 답변 부탁드립니다.
procedure TDM1.DM1Create(Sender: TObject);
begin
// 서버 연결
try
Database1.Connected := True; ==================> A
except
on E: EDBEngineError do
OraErrProc(Pchar(E.message));
end;
if Database1.Connected = True then
SUCCHK := 'Y' ============> 메인 화면 실행
else
SUCCHK := 'N'; ============> 로깅 화면 종료
end;
procedure OraErrProc(tmpE: string);
var
tmpNum : integer;
tmpStr: string;
begin
tmpNum := pos('ORA', tmpE);
tmpStr := copy(tmpE, tmpNum + 4, 5);
tmpNum := strtoint(tmpStr);
case tmpNum of
12154 : Windows.MessageBox(0, '서버 접속에 문제가 생겼습니다. ' + #13 + '잠시 후에 다시 접속해 주십시오.', '접속오류', MB_OK);
end;//end case
end;
2000.1.14
문영미 올림
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 송수현
- •
- 2000.01.15 05:16
- 2 COMMENTS
- /
- 0 LIKES
-
nuki•2000.01.15 09:00송수현 wrote: > procedure TForm1.Button1Click(Sender: TObject); > var > CDate: String; > begin... -
nuki•2000.01.16 08:00nuki wrote: > 송수현 wrote: > > procedure TForm1.Button1Click(Sender: TObject); > > var > > CD...
-
- saint09
- •
- 2000.01.15 03:27
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2000.01.15 21:09saint09 wrote: > 배열 대신에 리스트를 사용하면 편리하다는 말을 들었습니다. 리스트에 대해 알고 싶습...
-
- 맨발의 청춘
- •
- 2000.01.15 03:11
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.01.15 07:12맨발의 청춘 wrote: > 폼을 ShowModal로 띄울려는되 잘 않되요.. > 어떻게 해야 하나요. > 예외상황이 ...
-
- 손규만
- •
- 2000.01.15 02:51
- 2 COMMENTS
- /
- 0 LIKES
-
nuki•2000.01.15 09:06손규만 wrote: >
-
손규만•2000.01.15 17:43nuki wrote: > 손규만 wrote: > >
-
- 최장민
- 2000.01.15 02:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 조규춘
- 2000.01.15 01:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 안명호
- 2000.01.15 01:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 강민주
- •
- 2000.01.15 00:43
- 1 COMMENTS
- /
- 0 LIKES
-
aaa•2000.01.15 01:22아래와 같이 해보세요. var i : integer; begin with Table1 do begin Close; Open; ...
-
- 문영미
- •
- 2000.01.15 00:38
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요! 데이터베이스 접속할시, 서버가 다운된 상태이면 에러 메세지를 보여주고 로깅 화면을 종료하려고 합니다. 그런데 'A' 부분에서 프로그램이 멈추어 집니다. 해결방법을 알고 계시는 분은 답변 부탁드립니다. procedure TDM1.D...-
김영대•2000.01.15 02:01문영미 wrote: > 안녕하세요! > > 데이터베이스 접속할시, 서버가 다운된 상태이면 에러 메세지를 보여...
-
- 좋은생각
- 2000.01.15 00:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 좋은생각
- 2000.01.15 00:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2000.01.14 23:35
- 4 COMMENTS
- /
- 0 LIKES
-
김주석•2000.01.15 02:23초보 wrote: > procedure TdaygtearryForm.sqlInsert(Nam:string ; tim:string); > var > sqls: string;...
-
mute•2000.01.14 23:45초보 wrote: > procedure TdaygtearryForm.sqlInsert(Nam:string ; tim:string); > var > sqls: string;...
-
초보•2000.01.15 00:26mute wrote: > 초보 wrote: > > procedure TdaygtearryForm.sqlInsert(Nam:string ; tim:string); > > v...
-
조복기•2000.01.15 02:39안녕하세요.. 프로시저로 던지는 값(Nam:string ; tim:string)하고 쿼리에서 사용하는 파라미터(nam,p...
-
- 아폴로DB를 아시나요?
- 2000.01.14 23:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤티
- 2000.01.14 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄화용
- 2000.01.14 22:13
- 0 COMMENTS
- /
- 0 LIKES
-
- subin
- 2000.01.14 20:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 이광환
- •
- 2000.01.14 19:47
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2000.01.14 22:14이광환 wrote: > paradox의 index를 복구하려면 어떻게 해야 하나요.....? > > index is out of data...
-
- 델초
- •
- 2000.01.14 19:39
- 3 COMMENTS
- /
- 0 LIKES
-
전철호•2000.01.15 04:38델초 wrote: > TWebBrowser로 브라우저를 만들었는데 Tab키가 안 되네요? > 어떻게 하면되나여?? 제홈...
-
델초•2000.01.15 06:25죄송합니다. 사이트연결이 안되네요. 혹시 오타가 있는게 아닌지?
-
전철호•2000.01.22 01:06델초 wrote: > 죄송합니다. > 사이트연결이 안되네요. > 혹시 오타가 있는게 아닌지? http://www.osung...
-
-
김영대•2000.01.14 22:06김진호 wrote: > 델파이에서 워드나 엑셀을 불러오는 것처럼 HWP도 불러올수가 있나요? > > 그렇다면 ...
-
-
- 신화
- •
- 2000.01.14 19:06
- 3 COMMENTS
- /
- 0 LIKES
-
구창민•2000.01.14 20:14신화 wrote: > 안녕하십니까? > 여러개의 데이터를 SendText 명령을 사용하여 연속적으로 보낼 경우 이 ...
-
신화•2000.01.15 20:16구창민 wrote: > 신화 wrote: > > 안녕하십니까? > > 여러개의 데이터를 SendText 명령을 사용하여 연속...
-
구창민•2000.01.20 11:03신화 wrote: > 구창민 wrote: > > 신화 wrote: > > > 안녕하십니까? > > > 여러개의 데이터를 SendText...
> 안녕하세요!
>
> 데이터베이스 접속할시, 서버가 다운된 상태이면 에러 메세지를 보여주고 로깅 화면을
> 종료하려고 합니다.
> 그런데 'A' 부분에서 프로그램이 멈추어 집니다.
> 해결방법을 알고 계시는 분은 답변 부탁드립니다.
>
> procedure TDM1.DM1Create(Sender: TObject);
> begin
> // 서버 연결
> try
> Database1.Connected := True; ==================> A
> except
> on E: EDBEngineError do
> OraErrProc(Pchar(E.message));
> end;
>
> if Database1.Connected = True then
> SUCCHK := 'Y' ============> 메인 화면 실행
> else
> SUCCHK := 'N'; ============> 로깅 화면 종료
> end;
>
> procedure OraErrProc(tmpE: string);
> var
> tmpNum : integer;
> tmpStr: string;
> begin
> tmpNum := pos('ORA', tmpE);
> tmpStr := copy(tmpE, tmpNum + 4, 5);
> tmpNum := strtoint(tmpStr);
>
> case tmpNum of
> 12154 : Windows.MessageBox(0, '서버 접속에 문제가 생겼습니다. ' + #13 + '잠시 후에 다시 접속해 주십시오.', '접속오류', MB_OK);
> end;//end case
> end;
>
> 2000.1.14
> 문영미 올림
제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의
"공개 프로그램 소스 "에서
"[공개] ORACLE 서버의 접속가능여부 검사하기" 를 사용해 보세요