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
[11558] [질문]DBExpress 프로그램 종료시 에러
유진애비 [] 1583 읽음    2007-10-25 21:54
DBExpress를 사용해서 2곳의 서버에 접속을 시키면 프로그램 종료시 에러가 발생하네요.
델파이에서 실행하면 에러가 나는데 exe 파일을 실행하면 에러가 나지 않네요.
그렇다고 exception이 발생하는것도 아니고..
예전에는 잘돌아가던 프로그램인데 포맷후 돌리니까 에러가 나네요.
뭔가 세팅 문제인거 같기도 하고..
소스는 아래와 같이 DB에 연결하고 다른작업없이 종료만 해도 에러가 발생해요.
에러 이미지는 첨부파일로 첨부합니다.
답변 부탁드립니다.

procedure TForm1.FormShow(Sender: TObject);
begin
  // DB1 접속
  with DB1 do begin
    ConnectionName := 'OracleConnection';
    DriverName := 'Oracle';
    GetDriverFunc := 'getSQLDriverORACLE';
    VendorLib := 'OCI.DLL';
    LibraryName := 'dbxora30.dll';

    Params.Values['User_Name'] := 'id';
    Params.Values['Password'] :=  'pwd';
    Params.Values['DataBase'] :=  'tns1';

    try
      Connected := True;
    except
      Application.MessageBox('DataBase1 접속에 실패하였습니다.', '확인', MB_IconInformation + MB_Ok);
    end;
  end;

  // DB2 접속
  with DB2 do begin
    ConnectionName := 'OracleConnection';
    DriverName := 'Oracle';
    GetDriverFunc := 'getSQLDriverORACLE';
    VendorLib := 'OCI.DLL';
    LibraryName := 'dbxora30.dll';

    Params.Values['User_Name'] := 'id';
    Params.Values['Password'] :=  'pwd';
    Params.Values['DataBase'] :=  'tns2';

    try
      Connected := True;
    except
      Application.MessageBox('DataBase2 접속에 실패하였습니다.', '확인', MB_IconInformation + MB_Ok);
    end;
  end;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DB1.Close;
  DB2.Close;
end;

+ -

관련 글 리스트
11558 [질문]DBExpress 프로그램 종료시 에러 유진애비 1583 2007/10/25
11559     Re:[질문]DBExpress 프로그램 종료시 에러 박지훈.임프 1692 2007/10/29
11563         Re:Re:[질문]DBExpress 프로그램 종료시 에러 유진애비 1535 2007/11/01
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.