Q&A
- 도움부탁합니다]Report실행후 동일 App를 다시수행하면 Error가 납니다!!!
수고하십니다.
델파이 4.0버전을 사용하고 있으며 3Tier환경에서 사용합니다.
Server(Pro*C -> 업무처리 Logic이 구사되어 있음)
Tuxedo(중계처리)
Client(관련데이터 송수신 처리)
PC : 256M 866MHZ Win-Me
***미리보기 버튼클릭하여 처리하는 부분은 다음과 같습니다.
procedure TMT7878.PreBtnClick(Sender: TObject);
var
MDIChld : TWnChildForm;
ret : Integer;
tmp_ch : String;
begin
Screen.Cursor := crHourGlass;
if (KeyfldChk(ALL_FLD) = FALSE) then begin
Screen.Cursor := crDefault;
exit;
end;
memset(@ai, 0, sizeof(SUBACT302R_INPDATA)); // ai 초기화
memset(@ao, 0, sizeof(SUBACT302R_OUTDATA)); // ao 초기화
case Dmatoi(sJobgb.Text) of
1,2 : strpcopy(ai.sJobGb, sJobgb.Text); // 업무구분
end;
tmp_ch := Copy(sChgb.Text, 1, 2);
strpcopy(ai.sChgb, tmp_ch);
// strpcopy(ai.sYymm, sYymm.Text); // 해당년월
tmpYyyymm := Edit_Yy.Text + Edit_Mm.Text;
strpcopy(ai.sYymm, tmpYyyymm); // 해당년월
// 출력 Rq
ret := DmRqRp( SERVER, 'bacg302r', '0',
sizeof(SUBACT302R_INPDATA), @ai, @ao, M_Code );
Screen.Cursor := crDefault;
if NOT((ret < 0) OR (M_Code[0] = 'E')) then begin
tmp_yyyy := Edit_yy.Text;
tmp_mm := Edit_Mm.Text;
tmp_Chgb := sChgb_Panel.Caption;
Application.CreateForm( TQT7878, QT7878 );
QT7878.QRPT7878.Preview;
MDIChld := TWnChildForm(MainForm.MDIChildren[0]);
MDIChld.CloseBtn.SetFocus;
QT7878.QRPT7878.Free;
end;
MsgDsp(@M_Code);
sJobgb.SetFocus;
end;
이상의 코드를 사용하고 있습니다.
몇번인지는 정확하지 않으나 여러번 다시 들어가서 미리보기를 실행하면
"Access violation at address FABEC7B5 . Read of address FABEC7B5"
에러 메세지가 나옵니다.
어디가 잘못된 것일까요?
답변주시면 감사하겠습니다.
델파이 4.0버전을 사용하고 있으며 3Tier환경에서 사용합니다.
Server(Pro*C -> 업무처리 Logic이 구사되어 있음)
Tuxedo(중계처리)
Client(관련데이터 송수신 처리)
PC : 256M 866MHZ Win-Me
***미리보기 버튼클릭하여 처리하는 부분은 다음과 같습니다.
procedure TMT7878.PreBtnClick(Sender: TObject);
var
MDIChld : TWnChildForm;
ret : Integer;
tmp_ch : String;
begin
Screen.Cursor := crHourGlass;
if (KeyfldChk(ALL_FLD) = FALSE) then begin
Screen.Cursor := crDefault;
exit;
end;
memset(@ai, 0, sizeof(SUBACT302R_INPDATA)); // ai 초기화
memset(@ao, 0, sizeof(SUBACT302R_OUTDATA)); // ao 초기화
case Dmatoi(sJobgb.Text) of
1,2 : strpcopy(ai.sJobGb, sJobgb.Text); // 업무구분
end;
tmp_ch := Copy(sChgb.Text, 1, 2);
strpcopy(ai.sChgb, tmp_ch);
// strpcopy(ai.sYymm, sYymm.Text); // 해당년월
tmpYyyymm := Edit_Yy.Text + Edit_Mm.Text;
strpcopy(ai.sYymm, tmpYyyymm); // 해당년월
// 출력 Rq
ret := DmRqRp( SERVER, 'bacg302r', '0',
sizeof(SUBACT302R_INPDATA), @ai, @ao, M_Code );
Screen.Cursor := crDefault;
if NOT((ret < 0) OR (M_Code[0] = 'E')) then begin
tmp_yyyy := Edit_yy.Text;
tmp_mm := Edit_Mm.Text;
tmp_Chgb := sChgb_Panel.Caption;
Application.CreateForm( TQT7878, QT7878 );
QT7878.QRPT7878.Preview;
MDIChld := TWnChildForm(MainForm.MDIChildren[0]);
MDIChld.CloseBtn.SetFocus;
QT7878.QRPT7878.Free;
end;
MsgDsp(@M_Code);
sJobgb.SetFocus;
end;
이상의 코드를 사용하고 있습니다.
몇번인지는 정확하지 않으나 여러번 다시 들어가서 미리보기를 실행하면
"Access violation at address FABEC7B5 . Read of address FABEC7B5"
에러 메세지가 나옵니다.
어디가 잘못된 것일까요?
답변주시면 감사하겠습니다.
3
COMMENTS
-
-
뭔가를 Create 한다음엔 자원을 되돌려 줘야 하지 않을 까요?
Application.CreateForm( TQT7878, QT7878 );
..(중략)
QT7878.Free; <- 폼을 Free해야 하지 않을까요..... 아님말구...
박성호 wrote:
> 수고하십니다.
> 델파이 4.0버전을 사용하고 있으며 3Tier환경에서 사용합니다.
>
> Server(Pro*C -> 업무처리 Logic이 구사되어 있음)
> Tuxedo(중계처리)
> Client(관련데이터 송수신 처리)
>
> PC : 256M 866MHZ Win-Me
>
> ***미리보기 버튼클릭하여 처리하는 부분은 다음과 같습니다.
>
> procedure TMT7878.PreBtnClick(Sender: TObject);
> var
> MDIChld : TWnChildForm;
> ret : Integer;
> tmp_ch : String;
> begin
> Screen.Cursor := crHourGlass;
> if (KeyfldChk(ALL_FLD) = FALSE) then begin
> Screen.Cursor := crDefault;
> exit;
> end;
>
> memset(@ai, 0, sizeof(SUBACT302R_INPDATA)); // ai 초기화
> memset(@ao, 0, sizeof(SUBACT302R_OUTDATA)); // ao 초기화
>
> case Dmatoi(sJobgb.Text) of
> 1,2 : strpcopy(ai.sJobGb, sJobgb.Text); // 업무구분
> end;
> tmp_ch := Copy(sChgb.Text, 1, 2);
> strpcopy(ai.sChgb, tmp_ch);
> // strpcopy(ai.sYymm, sYymm.Text); // 해당년월
> tmpYyyymm := Edit_Yy.Text + Edit_Mm.Text;
> strpcopy(ai.sYymm, tmpYyyymm); // 해당년월
>
> // 출력 Rq
> ret := DmRqRp( SERVER, 'bacg302r', '0',
> sizeof(SUBACT302R_INPDATA), @ai, @ao, M_Code );
>
> Screen.Cursor := crDefault;
> if NOT((ret < 0) OR (M_Code[0] = 'E')) then begin
> tmp_yyyy := Edit_yy.Text;
> tmp_mm := Edit_Mm.Text;
> tmp_Chgb := sChgb_Panel.Caption;
> Application.CreateForm( TQT7878, QT7878 );
> QT7878.QRPT7878.Preview;
> MDIChld := TWnChildForm(MainForm.MDIChildren[0]);
> MDIChld.CloseBtn.SetFocus;
> QT7878.QRPT7878.Free;
> end;
> MsgDsp(@M_Code);
> sJobgb.SetFocus;
> end;
>
> 이상의 코드를 사용하고 있습니다.
> 몇번인지는 정확하지 않으나 여러번 다시 들어가서 미리보기를 실행하면
>
> "Access violation at address FABEC7B5 . Read of address FABEC7B5"
> 에러 메세지가 나옵니다.
> 어디가 잘못된 것일까요?
>
> 답변주시면 감사하겠습니다.
-
어떤이님 그리고 도움을 주셨던 여러분들께 정말 감사드립니다.
Preview를 폼에도 올려놓고 실행할때는 생성한 리포트용으로
생성한 폼을 Free를 해주어야 하는군요.
혹시 동일한 문제를 갖고 계신분들은 해보시기 바랍니다.
어떤이님의 도움으로 몇날몇일동안의 고민거리가 해결되었습니다.
그리고 글을 올려주시면서 많은 가르침을 주셨던 다른분들께도
깊은 감사드립니다.
즐거운 하루 보내세요.
- 박 성 호 올림 -
(NOTICE) You must be logged in to comment on this post.
-
- 한델우기
- 2001.06.06 03:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대규
- •
- 2001.06.06 03:27
- 3 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.07 07:05Event를 공통으로 사용한 후 다음과 같은 방법으로도 내부에서 구분하여 사용할 수 있습니다. Tag 를 사용...
-
Dorothy•2001.06.06 05:34무슨 말씀이신지 잘 모르겠지만.. 세게의 panel에 비슷한 코딩을 집어넣어야 한다는 소린가여? 각 pa...
-
김대규•2001.06.06 06:19답변 감사합니다 이벤트를 하나로보내면 되는군요... 그리구 테그를사용하는건 첨보는데.. 좋은 참고되었...
-
- 답답이
- •
- 2001.06.06 03:26
- 5 COMMENTS
- /
- 0 LIKES
-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:44스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:43스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
바다를향해•2001.06.15 20:43스플릿트 함수를 간단하게 구현 하세여...... 질문에 의해 얘기를 해보자면 구분문자가 공백(1 character...
-
- 백승환
- 2001.06.06 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 방랑자
- 2001.06.06 03:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 문인호
- •
- 2001.06.06 02:50
- 1 COMMENTS
- /
- 0 LIKES
-
Dorothy•2001.06.06 05:41델파이에서 커서를 사용할수 있는지는 잘 모르겠지만.. 왜 구지 커서를 사용하려 하시는지여? 그냥 쿼리...
-
- 델파이초보
- •
- 2001.06.06 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
Dorothy•2001.06.06 05:43그냥 Preview폼에서 열어줌 되지 않나여? 델파이초보 wrote: > QuickReport에서 (*.QRP) 형식으로 저장...
-
- 초보
- •
- 2001.06.06 01:52
- 2 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.07 07:20File -> New -> Unit 선택하면 Form 이 없는 ???.pas 가 생성됩니다. 이를 File -> Save As 해서 원하는 ...
-
Dorothy•2001.06.06 05:45폼없이 .pas만 가지는 unit을 만드심 됩니다.. 근데 특정기능이라니.....무슨 말씀이신지... 여러가지 함...
-
- 초보델피언
- •
- 2001.06.06 01:23
- 2 COMMENTS
- /
- 0 LIKES
-
허접....^^•2001.06.06 05:10흠 간단하게엽.. 메모장에 HTML로 문서를 작성하시길...ㅋㅋㅋ 전 이방법으로 해결 했죠 ^^ 쿼리한 내용...
-
초보델피언•2001.06.06 05:22감사합니다. 그런데.. 이미지를 그렇게 해서 만든 html에 이미지를 넣어서 통신으로 보내면 이미지는 안가...
-
- 질문
- 2001.06.06 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 시빌더
- 2001.06.06 00:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 김대환
- •
- 2001.06.06 00:31
- 1 COMMENTS
- /
- 0 LIKES
-
김경환•2001.12.21 10:43김대환 wrote: > 윈98에서는 ExitWindowsEx(EWX_SHUTDOWN, 0); 라고하면 시스템이 종료되는데 > > 2000...
-
- 궁금이
- 2001.06.06 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 초봉이
- 2001.06.05 23:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 강영미
- •
- 2001.06.05 23:33
- 6 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.06 01:11한가지 Table을 쓰신다면.. Paradox에서 쓸수 있는 방법을 하나 말쓸드릴까요?? ^^; 우선 Mast Table을 Q...
-
어떤이•2001.06.06 00:41Table 콤포 보다는 Query콤포를 사용하여 해결 하세요.... with Query1 do begin Sql.Clear; Sql....
-
강영미•2001.06.06 01:08어떤이 wrote: > Table 콤포 보다는 Query콤포를 사용하여 해결 하세요.... > > with Query1 do begin ...
-
어떤이•2001.06.06 02:08Query1의 Sql문을 다음과 같이 작성하시고 나서... Select 고객이름, trim(시도명)||" "||trim(시군구...
-
Lee•2001.06.06 01:43이렇게 하면 불러올 수 있지 않나요... 다른분 답변에 코멘트 달아서 죄송.. with Query1 do begin ...
-
하기•2001.06.06 01:40with Query1 do begin Sql.Clear; Sql.Add('Select Post1,Post2,Name,Addr1,Addr2,Addr3,Po...
-
- 박성호
- •
- 2001.06.05 22:22
- 3 COMMENTS
- /
- 0 LIKES
수고하십니다. 델파이 4.0버전을 사용하고 있으며 3Tier환경에서 사용합니다. Server(Pro*C -> 업무처리 Logic이 구사되어 있음) Tuxedo(중계처리) Client(관련데이터 송수신 처리) PC : 256M 866MHZ Win-Me ***미리보기 버튼클릭하여 처...-
변인호•2001.06.06 03:13제가 리포트를 부를때 사용하는 프로시저의 일부입니다.. QFrmReport := TQFrmReport.Creat...
-
어떤이•2001.06.06 02:22뭔가를 Create 한다음엔 자원을 되돌려 줘야 하지 않을 까요? Application.CreateForm( TQT7878, QT787...
-
박성호•2001.06.07 19:05어떤이님 그리고 도움을 주셨던 여러분들께 정말 감사드립니다. Preview를 폼에도 올려놓고 실행할때는 생...
-
- 심인
- 2001.06.05 22:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 우리들
- •
- 2001.06.05 21:51
- 1 COMMENTS
- /
- 0 LIKES
-
김태진•2008.04.26 23:00아래 소스는 2번째 컬럼만 한글로 자동전환되어 입력되게 하는 예제입니다. 도움되시길 바랍니다. pro...
-
- 조복문
- 2001.06.05 21:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 무등
- 2001.06.05 21:13
- 0 COMMENTS
- /
- 0 LIKES
QFrmReport := TQFrmReport.Create(Self);
try
QFrmReport.CleanupInstance; // <-- 요놈을 해주면 별 문제가 없더군요..
QFrmReport.Conf_Report.Preview;
finally
if IsWebComm then timer1.Enabled := True;
QFrmReport.Free;
end;
박성호 wrote:
> 수고하십니다.
> 델파이 4.0버전을 사용하고 있으며 3Tier환경에서 사용합니다.
>
> Server(Pro*C -> 업무처리 Logic이 구사되어 있음)
> Tuxedo(중계처리)
> Client(관련데이터 송수신 처리)
>
> PC : 256M 866MHZ Win-Me
>
> ***미리보기 버튼클릭하여 처리하는 부분은 다음과 같습니다.
>
> procedure TMT7878.PreBtnClick(Sender: TObject);
> var
> MDIChld : TWnChildForm;
> ret : Integer;
> tmp_ch : String;
> begin
> Screen.Cursor := crHourGlass;
> if (KeyfldChk(ALL_FLD) = FALSE) then begin
> Screen.Cursor := crDefault;
> exit;
> end;
>
> memset(@ai, 0, sizeof(SUBACT302R_INPDATA)); // ai 초기화
> memset(@ao, 0, sizeof(SUBACT302R_OUTDATA)); // ao 초기화
>
> case Dmatoi(sJobgb.Text) of
> 1,2 : strpcopy(ai.sJobGb, sJobgb.Text); // 업무구분
> end;
> tmp_ch := Copy(sChgb.Text, 1, 2);
> strpcopy(ai.sChgb, tmp_ch);
> // strpcopy(ai.sYymm, sYymm.Text); // 해당년월
> tmpYyyymm := Edit_Yy.Text + Edit_Mm.Text;
> strpcopy(ai.sYymm, tmpYyyymm); // 해당년월
>
> // 출력 Rq
> ret := DmRqRp( SERVER, 'bacg302r', '0',
> sizeof(SUBACT302R_INPDATA), @ai, @ao, M_Code );
>
> Screen.Cursor := crDefault;
> if NOT((ret < 0) OR (M_Code[0] = 'E')) then begin
> tmp_yyyy := Edit_yy.Text;
> tmp_mm := Edit_Mm.Text;
> tmp_Chgb := sChgb_Panel.Caption;
> Application.CreateForm( TQT7878, QT7878 );
> QT7878.QRPT7878.Preview;
> MDIChld := TWnChildForm(MainForm.MDIChildren[0]);
> MDIChld.CloseBtn.SetFocus;
> QT7878.QRPT7878.Free;
> end;
> MsgDsp(@M_Code);
> sJobgb.SetFocus;
> end;
>
> 이상의 코드를 사용하고 있습니다.
> 몇번인지는 정확하지 않으나 여러번 다시 들어가서 미리보기를 실행하면
>
> "Access violation at address FABEC7B5 . Read of address FABEC7B5"
> 에러 메세지가 나옵니다.
> 어디가 잘못된 것일까요?
>
> 답변주시면 감사하겠습니다.