Q&A
- 해결 못 한쥐 2주가 넘었습니다..제발...
몇번 올렸었는데...잘 안되네여..
에러내용입니다...
Project Sibis.exe raised exception class EAccessViolation with message
'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
Process stopped. Use Step or Run to continue.
에러나는 부분입니다..
procedure TfmMain.FormCreate(Sender: TObject);
var
TheReg: TRegistry;
KeyName: String;
//ValueStr: String;
begin
if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
begin
TheReg := TRegistry.Create;
try
TheReg.RootKey := HKEY_CURRENT_USER;
KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
if TheReg.OpenKey(KeyName, False) then
begin
if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
begin
TheReg.WriteString('DBQ',OpenDialog1.FileName);
TheReg.CloseKey;
end;
end;
finally
TheReg.Free;
end;
fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
end;
Database1.Open;
//OpenDialog1.FileName;
GetConfiguration;
end;
무엇이 문제 일까여...
에러내용입니다...
Project Sibis.exe raised exception class EAccessViolation with message
'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
Process stopped. Use Step or Run to continue.
에러나는 부분입니다..
procedure TfmMain.FormCreate(Sender: TObject);
var
TheReg: TRegistry;
KeyName: String;
//ValueStr: String;
begin
if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
begin
TheReg := TRegistry.Create;
try
TheReg.RootKey := HKEY_CURRENT_USER;
KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
if TheReg.OpenKey(KeyName, False) then
begin
if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
begin
TheReg.WriteString('DBQ',OpenDialog1.FileName);
TheReg.CloseKey;
end;
end;
finally
TheReg.Free;
end;
fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
end;
Database1.Open;
//OpenDialog1.FileName;
GetConfiguration;
end;
무엇이 문제 일까여...
4
COMMENTS
-
-
정말 감사합니다...갈텨 주신데로 했더니 에러가 없어지네여...ㅠ.ㅠ
정말 감사합니다..
구럼 한가지더 질문을...
'데이터베이스를 선택하시겠습니까?에서 예를 하고 디비를 선택하고 들어가면 선택한 디비가 아니고 그 전에 열었던 디비가 나오는데 왜 일까여??
장지용 wrote:
> FormCreate 대신에
> FormShow 에 넣으면 안될까요?
>
>
> 차니 wrote:
> > 몇번 올렸었는데...잘 안되네여..
> >
> > 에러내용입니다...
> > Project Sibis.exe raised exception class EAccessViolation with message
> > 'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
> > Process stopped. Use Step or Run to continue.
> >
> > 에러나는 부분입니다..
> >
> > procedure TfmMain.FormCreate(Sender: TObject);
> > var
> > TheReg: TRegistry;
> > KeyName: String;
> > //ValueStr: String;
> > begin
> > if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
> > begin
> > TheReg := TRegistry.Create;
> > try
> > TheReg.RootKey := HKEY_CURRENT_USER;
> > KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
> > if TheReg.OpenKey(KeyName, False) then
> > begin
> > if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
> > begin
> > TheReg.WriteString('DBQ',OpenDialog1.FileName);
> > TheReg.CloseKey;
> > end;
> > end;
> > finally
> > TheReg.Free;
> > end;
> > fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
> > end;
> > Database1.Open;
> > //OpenDialog1.FileName;
> > GetConfiguration;
> > end;
> >
> > 무엇이 문제 일까여...
-
Database1.Open 하기전에
.......
Database1.DatabaseName := OpenDialog1.FileName;
Database1.Open;
GetConfiguration;
.......
MDB는 안써봐서 될지 안될지 잘 모르겠습니다.
안되시더라도 욕하지 마시길...
차니 wrote:
> 정말 감사합니다...갈텨 주신데로 했더니 에러가 없어지네여...ㅠ.ㅠ
> 정말 감사합니다..
> 구럼 한가지더 질문을...
> '데이터베이스를 선택하시겠습니까?에서 예를 하고 디비를 선택하고 들어가면 선택한 디비가 아니고 그 전에 열었던 디비가 나오는데 왜 일까여??
>
>
> 장지용 wrote:
> > FormCreate 대신에
> > FormShow 에 넣으면 안될까요?
> >
> >
> > 차니 wrote:
> > > 몇번 올렸었는데...잘 안되네여..
> > >
> > > 에러내용입니다...
> > > Project Sibis.exe raised exception class EAccessViolation with message
> > > 'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
> > > Process stopped. Use Step or Run to continue.
> > >
> > > 에러나는 부분입니다..
> > >
> > > procedure TfmMain.FormCreate(Sender: TObject);
> > > var
> > > TheReg: TRegistry;
> > > KeyName: String;
> > > //ValueStr: String;
> > > begin
> > > if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
> > > begin
> > > TheReg := TRegistry.Create;
> > > try
> > > TheReg.RootKey := HKEY_CURRENT_USER;
> > > KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
> > > if TheReg.OpenKey(KeyName, False) then
> > > begin
> > > if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
> > > begin
> > > TheReg.WriteString('DBQ',OpenDialog1.FileName);
> > > TheReg.CloseKey;
> > > end;
> > > end;
> > > finally
> > > TheReg.Free;
> > > end;
> > > fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
> > > end;
> > > Database1.Open;
> > > //OpenDialog1.FileName;
> > > GetConfiguration;
> > > end;
> > >
> > > 무엇이 문제 일까여...
-
이게 레지스터에 등록된 디비를 오픈하는것 같은데...
잘 모르겠네여...제가 프로그램을 짜질않아서리...델파이도 첨이구여...
> > 에러내용입니다...
> > > > Project Sibis.exe raised exception class EAccessViolation with message
> > > > 'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
> > > > Process stopped. Use Step or Run to continue.
> > > >
> > > > 에러나는 부분입니다..
> > > >
> > > > procedure TfmMain.FormCreate(Sender: TObject);
> > > > var
> > > > TheReg: TRegistry;
> > > > KeyName: String;
> > > > //ValueStr: String;
> > > > begin
> > > > if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
> > > > begin
> > > > TheReg := TRegistry.Create;
> > > > try
> > > > TheReg.RootKey := HKEY_CURRENT_USER;
> > > > KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
> > > > if TheReg.OpenKey(KeyName, False) then
> > > > begin
> > > > if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
> > > > begin
> > > > TheReg.WriteString('DBQ',OpenDialog1.FileName);
> > > > TheReg.CloseKey;
> > > > end;
> > > > end;
> > > > finally
> > > > TheReg.Free;
> > > > end;
> > > > fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
> > > > end;
> > > > Database1.Open;
> > > > //OpenDialog1.FileName;
> > > > GetConfiguration;
> > > > end;
> > > >
> > > > 무엇이 문제 일까여...
(NOTICE) You must be logged in to comment on this post.
-
- 버미
- •
- 2000.05.09 00:59
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.09 01:25SQL.ADD(' Select '); Sql.Add(' 성명, 직급, 부서, 재직여부, 일자, '); Sql.Add...
-
- 차니
- •
- 2000.05.09 00:30
- 4 COMMENTS
- /
- 0 LIKES
몇번 올렸었는데...잘 안되네여.. 에러내용입니다... Project Sibis.exe raised exception class EAccessViolation with message 'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF. Process stoppe...-
장지용•2000.05.09 01:28FormCreate 대신에 FormShow 에 넣으면 안될까요? 차니 wrote: > 몇번 올렸었는데...잘 안되네여.....
-
차니•2000.05.09 02:34정말 감사합니다...갈텨 주신데로 했더니 에러가 없어지네여...ㅠ.ㅠ 정말 감사합니다.. 구럼 한가지더 ...
-
장지용•2000.05.09 03:48Database1.Open 하기전에 ....... Database1.DatabaseName := OpenDialog1.FileName; Database1.Open;...
-
차니•2000.05.09 04:04이게 레지스터에 등록된 디비를 오픈하는것 같은데... 잘 모르겠네여...제가 프로그램을 짜질않아서리......
-
- 이인숙
- •
- 2000.05.09 00:17
- 2 COMMENTS
- /
- 0 LIKES
-
bluesea65•2000.05.27 10:57이인숙 wrote: > 주민등록번호로 나이계산하는 소스를 만들었는데 > 날짜형식이 yyyy-mm-dd로 되어야만 ...
-
Mr.Q•2000.05.09 00:29이인숙 wrote: > 주민등록번호로 나이계산하는 소스를 만들었는데 > 날짜형식이 yyyy-mm-dd로 되어야만 ...
-
- 최선미
- 2000.05.09 00:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 장형욱
- 2000.05.09 00:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 박설화
- •
- 2000.05.09 00:03
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.05.09 00:32power(x, n) 형식 단 uses math 선언해야함,.. 그럼 수고.. 박설화 wrote: > x의 n승을 구할려고 하...
-
- 어린왕자
- •
- 2000.05.08 23:56
- 2 COMMENTS
- /
- 0 LIKES
-
etraze.com•2000.05.09 06:06(DBGrid1 as TDrawGrid).FixedCols = 2; 처럼 하시면 됩니다.. 단 MDI에서 실행하시면 모든 dbgrid가 고정...
-
blacklist•2000.05.09 05:04어린왕자 wrote: > 안녕하세요..델초보 어린왕자인데.. > 디비그리드 옵션중에 칼럼을 맘대루 움직이지 ...
-
- 심 해영
- •
- 2000.05.08 23:53
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.09 06:21안녕하세요. 최용일입니다. OnMouseMove같은 이벤트에서 마우스 위치를 감시하고 있다가 마우스 포인터...
-
- 박대규
- •
- 2000.05.08 23:26
- 2 COMMENTS
- /
- 0 LIKES
-
이재원•2000.05.09 14:27자료실에 데모 소스 올려놨읍니다. 다운받으신후에 메시지 주시면 지우죠.
-
이재원•2000.05.08 23:28먼저 새이미지를 잡으신 후에 그전 이미지를 그 위에 XOR쓰셔서 카피 해주시면 됩니다. 으음..써놓고보니 ...
-
-
- 이빈
- •
- 2000.05.08 22:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.09 03:17안녕하세요. 최용일입니다. 여전히 써드파티 컴포넌트만 사용하시는 것 같네요. 먼저 TVideo란 컴포...
-
- 김종근
- •
- 2000.05.08 22:49
- 2 COMMENTS
- /
- 0 LIKES
-
박상윤•2000.05.10 20:31일반적으로 파일의 크기를 줄이기위해서 앞에서 이야기하신 방법을 많이 쓰지요... 프로그램 상에서 그러...
-
cos•2000.05.09 07:05김종근 wrote: > 안녕하세요... > 이곳에서 많은 분들의 도움을 받고 있고 열심히 노력하는 한 사람입니...
-
- 송인섭
- •
- 2000.05.08 21:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.09 03:11안녕하세요. 최용일입니다. Windows API Error 10061에 해당하는 메세지입니다. 10061 No connection...
-
- parkisu
- 2000.05.08 21:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 후니
- •
- 2000.05.08 21:11
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.05.09 00:00퀵피포트에서는 DataSet를 사용하거나 onNeedDate이벤트에서 강제적으로 출력하는 두가지 방법이 있는데. ...
-
- 박설화
- 2000.05.08 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 이주선
- •
- 2000.05.08 21:05
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•2000.05.08 22:16이렇게 해보셔요. 만약 F1이 도움말 키면 if key = Vk_f1 then begin if dbgrid1.Sel...
-
- 서종환
- 2000.05.08 20:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- •
- 2000.05.08 20:21
- 3 COMMENTS
- /
- 0 LIKES
-
parkisu•2000.05.08 21:30최 소 영 wrote: > MDI 폼에서 메인메뉴의 서브 메뉴를 클릭하면 찰드윈도우가 뜨도록 코딩했습니다. 그런...
-
후니•2000.05.08 20:37우선 project -->option에서 auto-create forms로 되어있는 form을 Availlable forms로 옮기고요 form을 ...
-
강인규•2000.05.08 20:32Mdi는 show명령이 아닌걸로 알고있는데 제가 잘못알고있는건지.... 만일 폼을 MDI Chile로 해주셨고 Avail...
-
- 최 소 영
- 2000.05.08 20:21
- 0 COMMENTS
- /
- 0 LIKES
FormShow 에 넣으면 안될까요?
차니 wrote:
> 몇번 올렸었는데...잘 안되네여..
>
> 에러내용입니다...
> Project Sibis.exe raised exception class EAccessViolation with message
> 'Accessviolation at address 0043995B in module 'SIBIS.EXE'. Read or address FFFFFFFF.
> Process stopped. Use Step or Run to continue.
>
> 에러나는 부분입니다..
>
> procedure TfmMain.FormCreate(Sender: TObject);
> var
> TheReg: TRegistry;
> KeyName: String;
> //ValueStr: String;
> begin
> if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then <---- YES를 선택하면 밑에서 에러 NO를 선택하면 문제 없음
> begin
> TheReg := TRegistry.Create;
> try
> TheReg.RootKey := HKEY_CURRENT_USER;
> KeyName := 'SoftwareODBCODBC.INISiBeeODBC';
> if TheReg.OpenKey(KeyName, False) then
> begin
> if OpenDialog1.Execute then <--------- 이부분에서 오류가 나네여???
> begin
> TheReg.WriteString('DBQ',OpenDialog1.FileName);
> TheReg.CloseKey;
> end;
> end;
> finally
> TheReg.Free;
> end;
> fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';
> end;
> Database1.Open;
> //OpenDialog1.FileName;
> GetConfiguration;
> end;
>
> 무엇이 문제 일까여...